Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro Modification Help
How can I modify the macro below so that it will paste everything starting
with Column B instead of column A? I have tried every combination I can think of, but I couldn't get it to work. Private Sub Workbook_Open() lr = Application.Max(2, Cells(Rows.Count, 2).End(xlUp).Row) 'MsgBox lr Rows("2:" & lr).ClearContents With Workbooks("QIC.xls").Worksheets("Overturns_QIC") slr = .Cells(Rows.Count, "c").End(xlUp).Row 'MsgBox slr For i = 2 To slr dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1 ' If .Cells(i, "y") = 30 Then .Rows(i).Copy Rows(dlr) If .Cells(i, "y") = 30 And Not .Cells(i, "x") = "Paid" Then ..Rows(i).Copy Rows(dlr) Next i With Workbooks("FI.xls").Worksheets("Overturns_FI") slr = .Cells(Rows.Count, "c").End(xlUp).Row 'MsgBox slr For i = 2 To slr dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1 ' If .Cells(i, "y") = 30 Then .Rows(i).Copy Rows(dlr) If .Cells(i, "y") = 30 And Not .Cells(i, "x") = "Paid" Then ..Rows(i).Copy Rows(dlr) Next i End With End With End Sub Thanks! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro - modification | Excel Discussion (Misc queries) | |||
Macro Modification | Excel Worksheet Functions | |||
Macro Modification | Excel Worksheet Functions | |||
Macro modification | Excel Discussion (Misc queries) | |||
Macro Modification Help | Excel Worksheet Functions |