mikeprice53
Active Member
- Joined
- Jan 21, 2003
- Messages
- 297
the code below is what I am using to try and copy every row that i is greater than 0 in column CQ ( there could be a few hundred ) but not only am i struggling to get the code sorted for "If i > 0 copy the entire row that i is on" but how to do it for the humber I am after going to the other sheet...
Please help my brain is racked... Thanks
Sub copyrow()
Dim Rng As Range
Set Rng = Sheets("a").Range("CQ7:CQ1200")
For i = 1 To 1200
If i > 0 copy the entire row that i is on
Selection.Copy
sheets("mikessheet").select
Range("A6000").End(xlUp).Select
ActiveCell.Offset(1, 0).Activate
Selection.PasteSpecial Paste:=xlPasteValues
Next i
End Sub
Please help my brain is racked... Thanks