Clear Contents - NonBold cells
 

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

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


"Steve" wrote in message
...
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

Worked great. Thanks Trevor.

"Trevor Shuttleworth" wrote:

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


"Steve" wrote in message
...
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

You are very welcome


"Steve" wrote in message
...
Worked great. Thanks Trevor.

"Trevor Shuttleworth" wrote:

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


"Steve" wrote in message
...
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