Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro that delets all cells containg ALL words in bold
I have a macro which delets content from cells if there is bold text in cell
.. Sub Delete_Bold_Text() Dim i For Each cell In ActiveSheet.UsedRange cell.Select For i = 1 To Len(ActiveCell) If ActiveCell.Characters(Start:=i, _ Length:=1).Font.Bold = True Then ActiveCell.ClearContents End If Next Next End Sub The problem is that i have cells in which there is "normal" text and bolded text and i don't want them deleted . I want to be deleted only cells in which all text is bolded . Can this be done ? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro that delets all cells containg ALL words in bold
Option Explicit
Sub Delete_Bold_Text2() Dim myCell As Range For Each myCell In ActiveSheet.UsedRange.Cells If myCell.Font.Bold = True Then myCell.ClearContents End If Next myCell End Sub andrei wrote: I have a macro which delets content from cells if there is bold text in cell . Sub Delete_Bold_Text() Dim i For Each cell In ActiveSheet.UsedRange cell.Select For i = 1 To Len(ActiveCell) If ActiveCell.Characters(Start:=i, _ Length:=1).Font.Bold = True Then ActiveCell.ClearContents End If Next Next End Sub The problem is that i have cells in which there is "normal" text and bolded text and i don't want them deleted . I want to be deleted only cells in which all text is bolded . Can this be done ? -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro that delets all cells containg ALL words in bold
Hi,
If you test a cell for bold and only some of the text is bold Excel throws an error so this can be utilised in the code to simply move on and ignore that cell. Sub Delete_Bold_Text() On Error Resume Next For Each Cell In ActiveSheet.UsedRange If Cell.Font.Bold Then Cell.ClearContents End If Next End Sub Mike "andrei" wrote: I have a macro which delets content from cells if there is bold text in cell . Sub Delete_Bold_Text() Dim i For Each cell In ActiveSheet.UsedRange cell.Select For i = 1 To Len(ActiveCell) If ActiveCell.Characters(Start:=i, _ Length:=1).Font.Bold = True Then ActiveCell.ClearContents End If Next Next End Sub The problem is that i have cells in which there is "normal" text and bolded text and i don't want them deleted . I want to be deleted only cells in which all text is bolded . Can this be done ? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro that delets all cells containg ALL words in bold
Thanks guys !
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro which searches for a character . When found delets what's be | Excel Programming | |||
Make 1st word in cell bold after combining words from two cells | Excel Programming | |||
How do I bold certain words or letters in a Msgbox in Excel macro | Excel Programming | |||
select all cells in an active sheet containg links to other (external) workbooks. | Excel Programming | |||
conditional formating using cells containg dates | Excel Discussion (Misc queries) |