Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows with bold or italic text
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 -- MAYDAY ------------------------------------------------------------------------ MAYDAY's Profile: http://www.excelforum.com/member.php...o&userid=13548 View this thread: http://www.excelforum.com/showthread...hreadid=478043 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows with bold or italic text
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows with bold or italic text
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 "MAYDAY" wrote in message ... 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 -- MAYDAY ------------------------------------------------------------------------ MAYDAY's Profile: http://www.excelforum.com/member.php...o&userid=13548 View this thread: http://www.excelforum.com/showthread...hreadid=478043 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete rows with bold or italic text
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 "John" wrote in message ... 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 "MAYDAY" wrote in message ... 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 -- MAYDAY ------------------------------------------------------------------------ MAYDAY's Profile: http://www.excelforum.com/member.php...o&userid=13548 View this thread: http://www.excelforum.com/showthread...hreadid=478043 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How copy a cell with mixed text (regular, bold, italic) with a fo. | Excel Discussion (Misc queries) | |||
Font/Color/Bold/Italic Remain Same | Excel Discussion (Misc queries) | |||
Formula to identify character formatting (bold, italic, etc) | Excel Worksheet Functions | |||
How to apply both Italic & Bold in Header & Footer? | Excel Discussion (Misc queries) | |||
Show or hide rows when text is bold or italic | Excel Programming |