Macro to clear text

HowardC · Jun 3rd 2016

I need a macro to clear all text and values , except colored data

Your assistance is most appreciated

cytop · Jun 3rd 2016

Re: Macro to clear text

Coloured background? Coloured text? Any conditional formatting? If so which version of Excel?

HowardC · Jun 3rd 2016

Re: Macro to clear text

Thanks for reply. It is text colored using fill color. There is no conditional formatting. I am using Office 2013

cytop · Jun 3rd 2016

Re: Macro to clear text

Fill Colour is the background colour assigned to a cell so assuming you mean the Font colour.

Code

Sub Clearit(r As Excel.Range)
   
   Dim c As Excel.Range
   
   For Each c In r
      
      If c.Font.Color <> 0 Then
         c.Clear
      End If
   Next
   
End Sub

Display More

Call it passing a range

Code

ClearIt Range("A1:C50")

or simply select some cells and pass the selection

Code

ClearIt Selection

HowardC · Jun 3rd 2016

Re: Macro to clear text

Thanks for the help

Macro to clear text

Participate now!

Share