If value higher than x, clear content

[freshtomm]

Hi,
i need to modificate the VBA code below to just clear content in colums A:D, not to delete entire row. Is that possible?

Dim i As Long
  For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
  If (Range("C" & i).Value <= 2016) Then
  Range("C" & i).EntireRow.delete
  End If
  Next i

Thanks.

 

[Khalid NGO]

Hi,

Just replace delete with ClearContents

Sub test()
Dim i As Long
  For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
  If (Range("C" & i).Value <= 2016) Then
  Range("C" & i).EntireRow.ClearContents
      End If
  Next i
End Sub

Regards,

 

[freshtomm]

But i dont want to clear content in entire row, but just in columns A:D.

 

[Khalid NGO]

Hi,

Remove the .EnitreRow
And add column D

Sub test()
Dim i As Long
  For i = Range("C" & Rows.Count).End(xlUp).Row To 1 Step -1
  If (Range("C" & i).Value <= 2016) Then
  Range("C" & i).ClearContents
  Range("D" & i).ClearContents
  End If
  Next i
End Sub

Regards,

 

[freshtomm]

It will clear content just in column C, not in A:D.

 

[Khalid NGO]

Dear plz check again

 

[freshtomm]

I see, thank you very much.