Hi is there a way to print something in a list box based on ht
formatting of data in a column?

I want Excel to search through a column and if text in a cell is bol
then to print that text in a list box. Any ideas?

Thanks so much

--
Message posted from http://www.ExcelForum.com

Anyone

--
Message posted from http://www.ExcelForum.com

Sheeny,

This is for a userform it works here.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim i As Long
Dim myrng As Range
Worksheets("Sheet1").Activate
Set myrng = Worksheets("sheet1").Cells(1, 1).CurrentRegion
For i = 1 To myrng.Rows.Count
With UserForm1
If myrng(i, 1).Font.Bold = True Then
.ListBox1.AddItem myrng(i, 1).Value
End If

End With
Next i
End Sub


HTH


Charle

--
Message posted from http://www.ExcelForum.com

This is what I have right now...any ideas as to what i need to do t
make it work??

Private Sub CmdRec_Click()
Application.ScreenUpdating = False
Dim i As Long

Sheet3.Activate

With Sheet3

For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
If .Cells(i, "A").Font.Bold = True Then
ListOld.AddItem .Cells(i, "A").Value
End If
Next i

End With

End Su

--
Message posted from http://www.ExcelForum.com

Your code works here if the cell's font is really bold.

It doesn't work if the bold is caused by conditional formatting. Is that
what you're looking for by any chance?


Sheeny < wrote:

This is what I have right now...any ideas as to what i need to do to
make it work??

Private Sub CmdRec_Click()
Application.ScreenUpdating = False
Dim i As Long

Sheet3.Activate

With Sheet3

For i = 1 To .Range("A" & Rows.Count).End(xlUp).Row
If .Cells(i, "A").Font.Bold = True Then
ListOld.AddItem .Cells(i, "A").Value
End If
Next i

End With

End Sub


---
Message posted from http://www.ExcelForum.com/

Hi

Yes I was just playing around and realized thats my problem.

Is there a way to read conditional formatting?

Thanks

--
Message posted from http://www.ExcelForum.com