Values from bold cells to combobox?

[Bmj]

Hi,

I have several sheets with cell-values which I want to use in a ComboBox
(AddItem) - not the whole range, but only those cells with eg a bold font.
How can I do this with VBA? There are also some sheets where the wanted
cells are not with a bold fold, but with a "x" as value in the cell next to
it (differnt column). Is there an easy way of also including these values??

Best Regards,
Bmj

 

[Bob Phillips]

If Range("A1").Font.Bold Then
Combobox1.AddItem Range(A1").Value
End If

If Range("H1").Offset(0,1).Value = "x" Then
Combobox1.AddItem.Range("H1").Value
End If

 

[Bmj]

hmmm... no, it didn't work. The Combox is empty. But, this seems to work
(but only solves the bold font problem):

Dim rwindex As Integer
Dim colIndex As Integer

For rwindex = 1 To 10
For colIndex = 1 To 10
With Worksheets("Shett1").Cells(rwindex, colIndex)
If .Font.Bold = True Then Combobox1.AddItem
Cells(rwindex, colIndex).Value
End With
Next colIndex
Next rwindex

Regards,
Bmj

 

[Bob Phillips]

so combine them


Dim rwindex As Integer
Dim colIndex As Integer

For rwindex = 1 To 10
For colIndex = 1 To 10
With Worksheets("Shett1").Cells(rwindex, colIndex)
If .Font.Bold = True Or _
.Offset(0,1).Value = "x" Then
Combobox1.AddItem _
Cells(rwindex, colIndex).Value
End If
End With
Next colIndex
Next rwindex

 

[Bmj]

Thank you )

so combine them


Dim rwindex As Integer
Dim colIndex As Integer

For rwindex = 1 To 10
For colIndex = 1 To 10
With Worksheets("Shett1").Cells(rwindex, colIndex)
If .Font.Bold = True Or _
.Offset(0,1).Value = "x" Then
Combobox1.AddItem _
Cells(rwindex, colIndex).Value
End If
End With
Next colIndex
Next rwindex


--

HTH

RP