Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Mercy - Need help with Copy/Paste VBA
My reverse engineering skills have finally failed me =(
I need to copy rows based on a set value in Column A, to a different worksheet and start on the next empty row. I also need to paste special as the values in the source sheet are generated via formulas. Sub CopySAP() RowCount = 2 With Worksheets("SAPUpload").Range("a3:a200") Set c = .Find("1", LookIn:=xlValues) If Not c Is Nothing Then firstAddress = c.Address Do c.EntireRow.Copy _ Destination:=Worksheets("SAPUpload2").Rows(RowCoun t) RowCount = RowCount + 1 Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address < firstAddress End If End With End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Automating copy/paste/paste special when row references change | Excel Programming | |||
which line mercy script | Excel Discussion (Misc queries) | |||
help w/ generic copy & paste/paste special routine | Excel Programming | |||
Excel cut/Paste Problem: Year changes after data is copy and paste | Excel Discussion (Misc queries) | |||
Copy and Paste macro needs to paste to a changing cell reference | Excel Programming |