Hi - I have a data set that I need to fill down 4000 rows. I want the code to go down and find the name "January" then write Company1 on the 1st finding and Company 2 on the 2nd finding... Can you guys take a look at my code below, I am not placing the counter in the right place:
Thank you for your help!
Sub Fill()
nR = Cells(Rows.Count, 4).End(xlUp).Row
counter = 1
For i = 15 To nR
Select Case Cells(i, 4)
Case "January"
Cells(i, 4).Offset(0, -1) = "Company" & ncounter
End Select
Next i
ncounter = counter + 1
End Sub
Thank you for your help!
Sub Fill()
nR = Cells(Rows.Count, 4).End(xlUp).Row
counter = 1
For i = 15 To nR
Select Case Cells(i, 4)
Case "January"
Cells(i, 4).Offset(0, -1) = "Company" & ncounter
End Select
Next i
ncounter = counter + 1
End Sub