Combobox vullen

[Jack Nouws]

Hallo,

Met deze code laat ik een combobox vullen waarbij de gegevens in 1 kolom staan.

Private Sub UserForm_Initialize()
  With Sheets("Machines")
          C1.RowSource = .UsedRange.Columns(2).Address
  End With
End Sub

Maar hoe laat ik een combobox vullen als de gegevens in 1 rij staan?

Met vr gr,
Jack.

 

[HSV]

Dit bedoel je Jack?

Private Sub UserForm_Initialize()
  With Sheets("Machines")
          C1.List = Application.Transpose(.Rows(2).SpecialCells(2))
  End With
End Sub

 

[Jack Nouws]

Perfect Harry, bedankt voor de snelle reaktie!

Gr, Jack.