Apró segítség ahhoz, hogyan kell feltölteni ComboBox-ot cellaértékek alapján Excel makróval. Lényeges (legalább is a példa működése szempontjából), hogy legyen egy "Partner" nevű lap, amely "A" oszlopában vannak felsorolva a partnerek nevei. A megjelenő formon aztán ezek közül választhatunk a ComboBox segítségével.
A makró a form Initialize eseményekor fut le.
'Az alapform inícializálása. Itt töltöm fel a comboboxot a partnerek neveivel.
Private Sub UserForm_Initialize()
'A "Partner" lap A oszlopának értékeit töltöme be a ComboBox-ba
For Each c In Sheets("Partner").[A1:A1024]
'Ha a cella nem üres...
If c <> "" Then
'ComboBox feltöltése
cmbPartner.AddItem c.Value
End If
Next c
End Sub
Sok sikert a munkához!
Sziklai Frigyes