Clear cells if

[jimmisavage]

Hi, I'm looking for a code to delete cells C2:AE2 if AB2="TRUE". I need this for each row down to 2000 - so clear C100:AE100 if AB100-"TRUE" etc.

Can someone help with this?

Many thanks
Jim

 

[DanteAmor]

Try this

Sub clear_cells()
  Dim i As Long
  Application.ScreenUpdating = False
  For i = 2 To Range("AB" & Rows.Count).End(xlUp).Row
    If Range("AB" & i).Value = True Then
      Range("C" & i & ":AE" & i).ClearContents
    End If
  Next
  MsgBox "End"
End Sub

 

[jimmisavage]

Try this

Sub clear_cells()
  Dim i As Long
  Application.ScreenUpdating = False
  For i = 2 To Range("AB" & Rows.Count).End(xlUp).Row
    If Range("AB" & i).Value = True Then
      Range("C" & i & ":AE" & i).ClearContents
    End If
  Next
  MsgBox "End"
End Sub

Thanks DanteAmor, this works great

 

[DanteAmor]

Im glad to help you, thanks for the feedback.