Macro with different ranges

[slohman]

How can I select different cells instead of just 1 cell


LR = Sheets(SheetName).Range("CC" & Rows.Count).End(xlUp).Row

MyCol = 21

MyRow = 39

For i = 121 To 121

If Sheets(SheetName).Range("CC" & i).Value > 1 Then

Sheets("JJRobbins").Cells(MyRow, MyCol).Value = Sheets(SheetName).Range("CC" & i).Value

MyCol = 21

MyRow = MyRow + 1

End If


I am using this macro but now need to select range 121, 124, 127, & 130 so I thin the i = 121 is the problem but dont know to fix it?

 

[Debraj]

Hi Slohman,


use the below line,

For i = 121 To 130 Step 3


instead of For i = 121 To 121

Regards,

Deb

 

[Debraj]

BTW.. If 121,124.. are not in a pattern then you can use the below code also...

[pre]

Sub test()
Source = Array(121, 124, 127, 130)
LR = Sheets(Sheetname).Range("CC" & Rows.Count).End(xlUp).Row
MyCol = 21
MyRow = 39
For i = LBound(Source) To UBound(Source)
If Sheets(Sheetname).Range("CC" & Source(i)) > 1 Then
Sheets("JJRobbins").Cells(MyRow, MyCol) = Sheets(Sheetname).Range("CC" & Source(i))
'MyCol = 21
MyRow = MyRow + 1
End If
Next i
End Sub

[/pre]
Regards,

Deb