Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy & Paste values macro...almost there?
Hi there, l am struggling with the final tweaks of the macro below, l can
to find and select the correct data(thanks to this ng) after the data is selected it is copied, then l want to paste the values (values only) into the correct ws...l have got it to go to the correct ws but I just don't know how to get it to paste the values there...have l structured the macro incorrectly..... any help would be very welcome....TIA Sub aaarrrggghhhh() Dim SheetName As String Dim sheetnumber As Long Dim rightsheet As Long Dim idnumber As String Dim activeid As String Dim xlrow As Long Dim scennumber As Variant 'this bit finally selects and copies the data (took me ages!) Sheets("Live History").Select Sheets("Live History").Range("A1").End(xlDown).Select Range(ActiveCell, ActiveCell.Offset(0, 20)).Select Selection.Copy Sheets("Live History").Select Sheets("Live History").Range("N1").End(xlDown).Select ActiveCell.Offset(0, 5).Select idnumber = ActiveCell.Value Sheets("Selection").Select For sheetnumber = 1 To 5 xlrow = 3 SheetName = "S" & Format(sheetnumber, "##0") Sheets(SheetName).Select rightsheet = Sheets("Live History").Range("H1").End(xlDown).Value scennumber = ActiveSheet.Cells(3, 2).Value 'This bit finds the right place to paste (suprised myself) If rightsheet = scennumber Then ActiveSheet.Range("BW3").End(xlDown).Select ActiveCell.Offset(1, 0).Select End If Next End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to copy & paste-special-values data to selected worksheets | Excel Discussion (Misc queries) | |||
Need help with macro to copy, paste, and clear cell values | Excel Discussion (Misc queries) | |||
copy paste values macro | Excel Discussion (Misc queries) | |||
Macro for copy and paste values | Excel Discussion (Misc queries) | |||
Copy range in macro using paste special values | Excel Discussion (Misc queries) |