ccofmars
New Member
- Joined
- May 20, 2010
- Messages
- 44
Hi, can someone help me? please.... It may be very easy for you all but i am having an issue including a loop in this macro. I am trying to do the same thing fro each row until it reaches a blank row. then i just want the marco to stop.
the macro is copying a cell from one tab and paste it to another.
there are about 500 rows, so I dont want to record for every row on teh sheet. Besides, from one day to another, i do not have the same numebr of rows. thank you all so much for your assitance with this
Sub CopyPasteWithLoop()
Sheets("DATA DUMP").Select
Range("A3").Select
Selection.Copy
Sheets("CALCULATOR").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E5:J5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DATA DUMP").Select
Range("J3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CALCULATOR").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E5:J5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DATA DUMP").Select
Range("J4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5").Select
End Sub
the macro is copying a cell from one tab and paste it to another.
there are about 500 rows, so I dont want to record for every row on teh sheet. Besides, from one day to another, i do not have the same numebr of rows. thank you all so much for your assitance with this
Sub CopyPasteWithLoop()
Sheets("DATA DUMP").Select
Range("A3").Select
Selection.Copy
Sheets("CALCULATOR").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E5:J5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DATA DUMP").Select
Range("J3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CALCULATOR").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E5:J5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("DATA DUMP").Select
Range("J4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5").Select
End Sub