Delete rows with bold or italic text

[MAYDAY]

Hi,

I have a spreadsheet a large spreadsheet. I need to look at the text
in column D and if there is any cell with bold or italicized text in
column D, I want the entire row to be deleted.

Thanks in advance for any help!

Robbin

 

[twox4s]

Robbin:

Copy this sub procedure into a module in your workbook.

Sub DeleteRows()

Dim UsedRows As Long
Dim RowCnt As Long

UsedRows = ActiveSheet.UsedRange.Rows.Count

For RowCnt = 1 To UsedRows

Select Case Selection.Item(RowCnt).Font.FontStyle

Case "Bold", "Italic"

Rows(RowCnt).Delete

End Select

Next RowCnt

End Sub

Once you have it there, select the entire row(D) and run the macro,
"DeleteRows", from your macros list. On the odd chance that you don't
understand any of this, reply and I'll talk you through it in more
detail.

Mark

 

[John]

Hi Robbin,

Have a go with this (it's based on a continuous column of values and stops
when it gets to a blank ("") cell):

Sub CheckForBold()

Dim wks As Worksheet
Dim iRow As Integer

iRow = 1
Set wks = Application.ActiveSheet

Do Until wks.Cells(iRow, 4).Value = ""
If wks.Cells(iRow, 4).Font.Bold = True Then
wks.Rows(iRow).Delete
Else
iRow = iRow + 1
End If
Loop

End Sub

Best regards

John

 

[John]

Sorry, forgot the italics:

Sub CheckForBold()

Dim wks As Worksheet
Dim iRow As Integer

iRow = 1
Set wks = Application.ActiveSheet

Do Until wks.Cells(iRow, 4).Value = ""
If wks.Cells(iRow, 4).Font.Bold = True Or _
wks.Cells(iRow, 4).Font.Italic = True Then
wks.Rows(iRow).Delete
Else
iRow = iRow + 1
End If
Loop

End Sub