I need a bit of advice

[Sharid]

Hi
FOR INFO ONLY - I have placed all three rows of code together for you viewing, normally they all are in their own IF statement.

I need a bit of advice, looking at the code below. I can not see any difference, however I am having an issue with this code for column B ONLY see image. Column B is empty there are no hidden items in it and there is nothing in the code that states that column B should START at one down.

wsSheet.Cells(Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row + 1, "A").Offset(y, 0).Value = HtmlText
wsSheet.Cells(Sheet3.Cells(Sheet3.Rows.Count, "B").End(xlUp).Row + 1, "B").Offset(y, 0).Value = HtmlText
wsSheet.Cells(Sheet3.Cells(Sheet3.Rows.Count, "C").End(xlUp).Row + 1, "C").Offset(y, 0).Value = HtmlText

As you can see it does not put the data into the right place for column B ONLY all other column data is fine.

If I change the code to this:

wsSheet.Cells(Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row + 1, "A").Offset(y, 0).Value = HtmlText
wsSheet.Cells(Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row + 1, "B").Offset(y, 0).Value = HtmlText
wsSheet.Cells(Sheet3.Cells(Sheet3.Rows.Count, "C").End(xlUp).Row + 1, "C").Offset(y, 0).Value = HtmlText

Then the problem fixes itself.

I guess my question are

• WHY is this happening for COLUMN B only?
• And how should the code be written?

Should it be LIKE this for ALL of the columns

wsSheet.Cells(Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row + 1, "A").Offset(y, 0).Value = HtmlText
wsSheet.Cells(Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row + 1, "B").Offset(y, 0).Value = HtmlText
wsSheet.Cells(Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row + 1, "C").Offset(y, 0).Value = HtmlText

I have a rough idea of what the code is doing, could someone break it down with comments so i know what each part of the code is doing.

Thanks in advance

 

[Sharid]

Sorry I forgot to include these

y = 0
    Set Html = objIE.document
        Set elements = Html.getElementsByClassName("sresult lvresult clearfix li shic")
    
For Each element In elements

Dim wsSheet As Worksheet
Dim wb As Workbook
Dim HtmlText As Variant
    Set wb = ThisWorkbook
         Set wsSheet = wb.Sheets("Sheet3")

And

y = y + 1
Next element

 

[Sharid]

can anyone advise on this, please.