Help make this code loop thoruhg properly?

[30136353]

Hi Guys,

I have the below code which currently opens up a postcode website, searches an address ( made up from cells from row 2, column 4 + 5 ), then returns the search result into row 2 column 7... This works fine but doesn't seemt o loop properly, all the rows in the workbook get the same first post code pasted into every cell down column 7, anyone any idea? Thanks.

Dim i As Long
i = 2

Do While Not IsEmpty(Cells(i, 4).Value)

    IE.document.getElementsByName("val")(0).Value = Cells(i, 4) & " " & Cells(i, 5) & ", Edinburgh"
IE.document.forms(0).submit

Dim postcodeDiv As Object
Dim parts As Variant, Postcode As String
Do
Set postcodeDiv = IE.document.getElementsByClassName("postcode")(0)
DoEvents
Loop While postcodeDiv Is Nothing
parts = Split(postcodeDiv.innerText, "Postcode: ")
Postcode = Split(parts(1), vbCrLf)(0)

Cells(i, 7).Value = Postcode
i = i + 1
Loop

 

[rlv01]

Probably because for whatever reason, Postcode is always evaluating to the same value. Whether this:

        parts = Split(postcodeDiv.innerText, "Postcode: ")

has anything to do with that, I cannot say; but it's an error since the delimiter for the Split function must be a single character , not a string like "Postcode: " . Use the VBE debugger to single-step (F8) through the code to see where it is going off the rails.