VBA for Clearing Cell if value not stated in the array

[NachoBoacity]

I have column "D" with a lot of values, however I would only like to keep the cells within that column which contain values "132" or "133" or "54". How could I clear content if value is not stated in the array?

This is the closest code I found... It is broken as I tried to adjust it to my scenario, so probably not even worth looking at!

Thank you.

Sub MyClearMacro()

    Dim lr As Long
    Dim r As Long
   
    Application.ScreenUpdating = False
   
'   Find last row in column P with data
    lr = Cells(Rows.Count, "D").End(xlUp).Row
   
'   Loop through all rows
    For r = 2 To lr
        If Cells(r, "D") <> "133" Or "132"  OR "Etc Etc" Then Range(Cells(r, "D"), Cells(r, "D")).ClearContents
    Next r
   
    Application.ScreenUpdating = True
   
 
End Sub

 

[Peter_SSs]

When posting vba code in the forum, please use the available code tags. It makes your code much easier to read/debug. My signature block below has more details. I have added the tags for you this time.

See if this does what you want.

Sub MyClearMacro()
    Dim lr As Long
    Dim r As Long
  
    Application.ScreenUpdating = False
'   Find last row in column P with data
    lr = Cells(Rows.Count, "D").End(xlUp).Row
  
'   Loop through all rows
    For r = 2 To lr
        Select Case Cells(r, "D").Value
          Case 133, 132, 54
          Case Else
            Cells(r, "D").ClearContents
        End Select
    Next r
    Application.ScreenUpdating = True
End Sub