Compare last cell values in two columns

[excel_2009]

Hi Excel gurus,

I'm struggling to find a solution for this (via VBA), but is it possible to compare the last two cells in 2 columns for example, column A has 50 cells populate (A1-A50) however column B has 5 populated, is it possible to highlight this discrepancy? i.e the count of active cells in column A and B do not match thus showing a message box flagging this?

Many thanks!!

 

[Joe4]

Do you mean something like this?

Sub CheckCols()

    Dim lrA As Long
    Dim lrB As Long
    
'   Find last row with data in column A
    lrA = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Find last row with data in column B
    lrB = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Compare values
    If lrA <> lrB Then
        MsgBox "Last row in column A is " & lrA & vbCrLf & _
                "Last row in column B is " & lrB, vbOKOnly, "LAST CELLS IN COLUMNS DON'T MATCH!"
    End If
                
End Sub

 

[excel_2009]

Hi Joe!

This is perfect, thank you SO MUCH!!

 

[Joe4]

You are welcome.