Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delet row if bold
Does anyone have a macro to evaluate column A and delete if formatting is
<bold? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delet row if bold
Jeff,
Sub DeleteBold() Dim myRow As Long For myRow = Range("A65536").End(xlUp).Row To 1 Step -1 If Cells(myRow, 1).Font.Bold Then Cells(myRow, 1).EntireRow.Delete Next myRow End Sub HTH, Bernie MS Excel MVP "jeffbert" wrote in message ... Does anyone have a macro to evaluate column A and delete if formatting is <bold? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delet row if bold
Sub DeleteBold()
set rng =Range("a1: a" &[a65536].End(xlup).Row) For each c in rng If c.font.Bold = True Then c.Clear End if Next End Sub DM "jeffbert" wrote in message ... Does anyone have a macro to evaluate column A and delete if formatting is <bold? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delet row if bold
Thanks to both of you for the help. Is there a way to select a variable
column? I have just run across a situation where sometimes I need column A, sometimes B, etc. "David Myle" wrote: Sub DeleteBold() set rng =Range("a1: a" &[a65536].End(xlup).Row) For each c in rng If c.font.Bold = True Then c.Clear End if Next End Sub DM "jeffbert" wrote in message ... Does anyone have a macro to evaluate column A and delete if formatting is <bold? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delet row if bold
Sub DeleteBold()
Dim myRow As Long Dim col as long col = ActiveCell.Column For myRow = Cells((rows.count,col) _ .End(xlUp).Row To 1 Step -1 If Cells(myRow, col).Font.Bold Then _ Cells(myRow, 1).EntireRow.Delete Next myRow End Sub -- Regards, Tom Ogilvy "jeffbert" wrote in message ... Thanks to both of you for the help. Is there a way to select a variable column? I have just run across a situation where sometimes I need column A, sometimes B, etc. "David Myle" wrote: Sub DeleteBold() set rng =Range("a1: a" &[a65536].End(xlup).Row) For each c in rng If c.font.Bold = True Then c.Clear End if Next End Sub DM "jeffbert" wrote in message ... Does anyone have a macro to evaluate column A and delete if formatting is <bold? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to delet the blank rows in whole sheet at a time | Excel Worksheet Functions | |||
Delet Duplicate Blanks rows | Excel Worksheet Functions | |||
delet multiple entries on same row(different columns) | Excel Discussion (Misc queries) | |||
DELET PERTICULER WORD FROM THE EXCEL SHEET | Excel Worksheet Functions | |||
Once criteria has been met, delet the same row. | Excel Programming |