Clear Contents - NonBold cells

G

Guest

I have roughly 500-700 rows of information. All of my information is between
columns B and K. I would like to run a macro the clears the contents of the
cells based on NonBold font. For example; if b12 is is not bold, i want to
clear contents on b12:k12. Can anyone help?

Thanks,
Steve
 
T

Trevor Shuttleworth

Steve

some examples:

Sub test1()
If Range("B12").Font.Bold = False Then
Range("B12:K12").Clear
End If
End Sub

Sub test2()
Dim i As Long
For i = 2 To 14
If Range("B" & i).Font.Bold = False Then
Range("B" & i & ":K" & i).Clear
End If
Next 'i
End Sub

The first is specific to row 12; the second is for rows 2 to 14 - change to
suit.

Regards

Trevor
 
G

Guest

Worked great. Thanks Trevor.

Trevor Shuttleworth said:
Steve

some examples:

Sub test1()
If Range("B12").Font.Bold = False Then
Range("B12:K12").Clear
End If
End Sub

Sub test2()
Dim i As Long
For i = 2 To 14
If Range("B" & i).Font.Bold = False Then
Range("B" & i & ":K" & i).Clear
End If
Next 'i
End Sub

The first is specific to row 12; the second is for rows 2 to 14 - change to
suit.

Regards

Trevor
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Comparing cell contents, know cell address 4
Macro to clear contents of certain cells 4
add a warning before running a macro 4
Stepping down a cell when a value is entered 2
ADD A BUTTON TO A CELL TO DELETE A RANGE OF CELLS? 3
Excel - randomly locking cells? 6
Track changes mislabels my changes 1
clearing data but retaining formulas 10

Top