L
LuisE
I’m want to loop thru sheet 1 to 5 and the copy “A1:F last cellâ€
Then go to the “Aging†tab and paste from in next empty row in column F.
I’ planning in using it also with Excel 2007 which will change the last
possible cell to 1,024,xxx but I don’t know how to deal with both.
I don’t have any problem copying the range from the looping sheets but when
it comes to paste it it overlaps. Here is what I have but it is not working.
If
Worksheets("Aging").Range("F1").End(xlDown).Row=Worksheets("Aging").Range("F65536").Row Then
LastRowAging = 2
Else
LastRowAging =
Worksheets("Aging").Range("A1").SpecialCells(xlLastCell).Row
End If
Worksheets("Aging").Activate
Worksheets("Aging").Cells(LastRowAging, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End if
Thanks in advance
Then go to the “Aging†tab and paste from in next empty row in column F.
I’ planning in using it also with Excel 2007 which will change the last
possible cell to 1,024,xxx but I don’t know how to deal with both.
I don’t have any problem copying the range from the looping sheets but when
it comes to paste it it overlaps. Here is what I have but it is not working.
If
Worksheets("Aging").Range("F1").End(xlDown).Row=Worksheets("Aging").Range("F65536").Row Then
LastRowAging = 2
Else
LastRowAging =
Worksheets("Aging").Range("A1").SpecialCells(xlLastCell).Row
End If
Worksheets("Aging").Activate
Worksheets("Aging").Cells(LastRowAging, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End if
Thanks in advance