Deleting certain cells based on condition in other cell

[Jovinchious]

Hi everyone.
I need one VBA Macro code and just cant go trough it...I ll appreciate any help.
So, I need the following....

If cells in column B start with "1" (i have numbers like 3003, 3200, 11000,10022 etc..) then empty/erase cells of the same row from column "O" to column "Q".

Thanks in advance.

 

[Joe4]

Welcome to the Board!

Try this code:

Sub MyClearCells()

    Dim r As Long
    Dim lr As Long
    
    Application.ScreenUpdating = False
    
'   Find last row in column B with data
    lr = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Loop through all rows
    For r = 1 To lr
'       See if first character in column B is "1"
        If Left(Cells(r, "B"), 1) = "1" Then
'           Clear column O-Q
            Range(Cells(r, "O"), Cells(r, "Q")).ClearContents
        End If
    Next r
    
    Application.ScreenUpdating = True
    
End Sub

 

[Jovinchious]

Welcome to the Board!

Try this code:

Sub MyClearCells()

    Dim r As Long
    Dim lr As Long
   
    Application.ScreenUpdating = False
   
'   Find last row in column B with data
    lr = Cells(Rows.Count, "B").End(xlUp).Row
   
'   Loop through all rows
    For r = 1 To lr
'       See if first character in column B is "1"
        If Left(Cells(r, "B"), 1) = "1" Then
'           Clear column O-Q
            Range(Cells(r, "O"), Cells(r, "Q")).ClearContents
        End If
    Next r
   
    Application.ScreenUpdating = True
   
End Sub

Thank you very much! Works smooth.

 

[Joe4]

You are welcome.
Glad I was able to help!