edit: sorted
[code] Sub OperatorProp()
For i = 3 To 500
For j = 3 To 1727 If Cells(j, "C") = Cells(i, "H") Then myStr = myStr & Cells(j, "B") & ", " End If
Next j Range("I" & i).Value = myStr myStr = "" Next i
End Sub [/code]
But is there a way to get the code to keep going until the end of the list without entering in the first and last value of the for loop?
@kicks66 started
London Fixed Gear and Single-Speed is a community of predominantly fixed gear and single-speed cyclists in and around London, UK.
This site is supported almost exclusively by donations. Please consider donating a small amount regularly.
edit: sorted
[code]
Sub OperatorProp()
For i = 3 To 500
Next j
Range("I" & i).Value = myStr
myStr = ""
Next i
End Sub
[/code]
But is there a way to get the code to keep going until the end of the list without entering in the first and last value of the for loop?