austenr
05-20-2005, 09:48 AM
I have this for loop:
Sub FindTotals()
FinalRow = Cells(65536, 1).End(xlUp).Row
For i = 2 To FinalRow
If Cells(i, 4).Value = "JUNE" Then
'Copy a range on the same row
'Paste to another range on another worksheet
End If
Next i
End Sub
Need to copy a range of cells on the same row and paste it to another worksheet in say A1. How do you do that?
Sub FindTotals()
FinalRow = Cells(65536, 1).End(xlUp).Row
For i = 2 To FinalRow
If Cells(i, 4).Value = "JUNE" Then
'Copy a range on the same row
'Paste to another range on another worksheet
End If
Next i
End Sub
Need to copy a range of cells on the same row and paste it to another worksheet in say A1. How do you do that?