While loop in excel macros

Question

I am trying to write an excel macros using a loop to go through two columns of dates, comparing the dates in excel and replace some values in another column if the dates are the same.

This is my excel code, could someone tell me what is wrong with it? I keep getting the error Loop without Do.

Sub automatic_replace_using_do_while_loop()
Dim A As Integer, H As Integer
A = 1
H = 1

Do While H < 1186
If Cells(A, 1).Value = Cells(H, 8).Value Then
    Cells(H, 6).Value = Cells(i, 11)
    H = H + 1
    A = A + 1
Else
    H = H + 1
Loop


End Sub

Thanks!

user4039065 · Accepted Answer · 2016-05-09 01:50:57Z

2

That isn't the way I would try to match dates but you never ended your If statement.

Do While H < 1186
    If Cells(A, 1).Value = Cells(H, 8).Value Then
        Cells(H, 6).Value = Cells(i, 11)
        H = H + 1
        A = A + 1
    Else
        H = H + 1
    END IF
Loop

I don't know where i comes into play. I think you meant

    Cells(H, 6).Value = Cells(A, 11)

answered May 9, 2016 at 1:50

user4039065

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

Collectives™ on Stack Overflow

While loop in excel macros

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related