Loop through all values

Question

I want to loop through a column and modify the adjacent column if a certain value is found.

I have it semi-working. It only modifies one value rather than all instances.

Sub PopulateField()

    For i = 2 To Rows.Count

        If Cells(i, 2).Value = "25 December 2018" Then
            Cells(i, 3).Value = "Holiday"
            Exit For
        End If
    Next i

End Sub

I would like it to be:

25 December 2018    Holiday
25 December 2018    Holiday
25 December 2018    Holiday
25 December 2018    Holiday
25 December 2018    Holiday

But currently it's only:

25 December 2018    Holiday
25 December 2018    
25 December 2018    
25 December 2018    
25 December 2018

It doesn't seem to be iterating over all values.

Also you probably don't need to loop to Rows.Count. See here for how to find the last row. — BigBen
– BigBen, Commented Dec 20, 2018 at 21:14

BigBen · Accepted Answer · 2018-12-20 21:00:35Z

3

You're exiting the loop after the first instance of 25 December 2018.

Get rid of the Exit For to continue iterating.

answered Dec 20, 2018 at 21:00

BigBen

50.4k7 gold badges29 silver badges45 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Loop through all values

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related