VBA: Headers missing not match

[vbanewbie68]

Dear Sir or Madam

Please see the screenshot below.

I created a new workbook as a macro. The 1st row has the correct headers as previously agreed with the developer.

When I capture the data from the report that is linked to a platform connected to a website, I expected the data with the headers to match the 1st row.

However when I exported the data from the platform to the macro workbook I have noticed it does not match, as the 2nd headers are missing the Postcode.

The question is how do I insert a new column on the 2nd row to flag up to display a blank, showing there is data missing or that does not match.

Hope this makes sense?

Thank you

V

 

[shknbk2]

This code will compare row 2 to row 1, and if the data isn't the same in a column, it shifts the data right for the unmatched data. However, it is simple code. There is no room for "close" data. For example, in your data, the result might not be what you expect because, besides missing PostCode, the second row doesn't match "addr 4" that I can tell. In this case, the code will shift addr and the rest of the data completely to column R (the end of row 1). Additional code would need to be added to try to account for these differences where one column is off, but the rest of the data is okay.

Sub CompareHeaders()
    Dim i As Integer
    i = 1
    While Cells(1, i).Value <> ""
        If Cells(2, i).Value <> Cells(1, i).Value Then
            Cells(2, i).Insert xlToRight
        End If
        i = i + 1
    Wend
End Sub

 

[vbanewbie68]

This code will compare row 2 to row 1, and if the data isn't the same in a column, it shifts the data right for the unmatched data. However, it is simple code. There is no room for "close" data. For example, in your data, the result might not be what you expect because, besides missing PostCode, the second row doesn't match "addr 4" that I can tell. In this case, the code will shift addr and the rest of the data completely to column R (the end of row 1). Additional code would need to be added to try to account for these differences where one column is off, but the rest of the data is okay.

Sub CompareHeaders()
    Dim i As Integer
    i = 1
    While Cells(1, i).Value <> ""
        If Cells(2, i).Value <> Cells(1, i).Value Then
            Cells(2, i).Insert xlToRight
        End If
        i = i + 1
    Wend
End Sub

Thank you for this. I am pleased it worked at my end. Thank you so much of your time on this matter. Much appreciated.

Best regards

V