VBA - Check value on range and delete its line

[vabtroni]

Hello everyone, hope I can find you all ok.

Now to question. The range is A1:B20. I need a macro that checks the values on column B within that range, and whenever the value there is 0, "" or has letters, it deletes the cell content on both column B and A.

Any chance I could get some help here?

Best regards everyone,
Vasco.

 

[Joe4]

Can you post a sample of your data, so we can see what it looks like and what it is that you are trying to leave?
Are you just trying to leave non-zero numeric values?

 

[vabtroni]

Can you post a sample of your data, so we can see what it looks like and what it is that you are trying to leave?
Are you just trying to leave non-zero numeric values?

Yes. The value on column B must be non-zero numeric values. All other data on column B will force the macro to delete it, as well as the value on the same line on column A.

 

[Joe4]

Try this code:

Sub MyClearMacro()

    Dim r As Long
    
    Application.ScreenUpdating = False
    
    For r = 1 To 20
'       Check to see if value in column B is numeric
        If IsNumeric(Cells(r, "B")) And Cells(r, "B") <> 0 Then
'           Do nothing
        Else
'           Clear columns A and B
            Range(Cells(r, "A"), Cells(r, "B")).ClearContents
        End If
    Next r
    
    Application.ScreenUpdating = True
    
End Sub