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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 09:37 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com