Hi,

Just wondering if someone could help me with this issue.



i = 15
j = 15

Do While Cells(i, 1) <> ""
Month = Left(Cells(i, 5), 6)

Do Until Month = (Cells(j, 31))
If Month = Cells(j, 31) Then Exit Do
Else
j = j + 1
Loop
Cells(i, 6) = Cells(j, 31)
i = i + 1
Loop
The first error I get is about the Else (else without if), I take it that I'm not using the "exit do"

If I try to code that differently I then find I get another error saying "loop without do" so again I take it that I'm not coding the nested loop correctly.

Can someone help point me in the right direction?


The overall aim of the code is to go through a column, compare the first six characters to another column; find a match, and copy the corresponding value in the row back in beside the original list.