ForNext Loop (2000)

Topic

New Reply

Please see attached workbook which I think explains what I am trying to accomplish.
Thank you.

Reply | Quote

Replies

Try this:

Sub GetBlindBogeyScores()
Dim rs As Long
Dim rt As Long
rt = 1
For rs = 1 To Range(“A65536”).End(xlUp).Row
If Right(Range(“B” & rs), 1) = “2” Then
rt = rt + 1
Range(“A” & rs & “:B” & rs).Copy _
Destination:=Range(“E” & rt)
End If
Next rs
End Sub

Reply | Quote

Hans,
This macro works fine, with a few modifications to suit my particular situation.
I thank you very much.

Reply | Quote