Hi,
Just wondering if someone could help me with this issue.
The first error I get is about the Else (else without if), I take it that I'm not using the "exit do"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
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.
Bookmarks