code to clear contents of cell except for cells with x

[Victtor]

Hello,

I need a vba code to clear contents of cells F5:AG33 unless that cell has an x in it.

Thanks in advance

 

[Fluff]

What do you have in those cells values, or formula?

 

[Victtor]

Values

 

[Fluff]

How about

Sub Keepx()

   With Range("F5:AG33")
      .Replace "x", "=x", xlWhole, , False, , False, False
      .SpecialCells(xlConstants).ClearContents
      .Replace "=x", "x", xlWhole, , False, , False, False
   End With
End Sub

 

[Haluk]

Try this, if it helps ...

    For Each cell In Range("F5:AG33")
        If LCase(cell) <> "x" Then cell.ClearContents
    Next

 

[Rick Rothstein]

Here is another macro (a one-line) that should also do what you asked for...

Sub KeepXes()
  [F5:AG33]=[IF(F5:AG33="x","x","")]
End Sub

 

[Victtor]

Thanks everyone,

I tried all three and all of them worked!!

Again Thanks

 

[Fluff]

Glad we could help & thanks for the feedback