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!

Macro Modification Help
 

hi
this seems to be what is doing it.
Rows(i).Copy Rows(dlr)
you are coping an entire row and pasting and entire row.
if you try to shift left one cel, you will get a script out of range error
or something like that. and so long as you are coping an entire row, it will
always paste at "A".
you code give no indications as to how much data you need(wnat) to copy. and
without seeing our data, i can't really recomend anything specific.
generically you must copy only the range of data you wish then paste that at
"B"
range("somehting").copy cells(dlr,"B")

regards
FSt1


"akemeny" wrote:

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!