
Zde je pro ilustraci kód načtení záznamů do ComoBoxu Cx4
-----------------------------------------------------
Private Sub UserForm_Initialize()
Dim nacti As Worksheet
Set nacti = ThisWorkbook.Worksheets("evidence")
Cx4.RowSource = nacti.Name & "!A4:B" & nacti.Range("A3").End(xlDown).Row
UserForm4.Cx4.SetFocus
End Sub
-----------------------------------------------------
AL(28.12.2013 0:24)citovat#016938
Pmn nespojitú oblasť buniek do RowSource nenačítaš, budeš musieť asi použiť AddItem, po tom, čo si vyselektuješ záznamy, ktoré chceš v tom kombe mať. Tzn. načítať vyhovujúce záznamy do poľa (napríklad) a z neho potom v cykle do toho comboboxu pridávať jednotlivo prostredníctvom AddItem.

Pánové, jste oba úžasní a máte moje symfonie.
Kmárečku, to je přesně to, co potřebuji.
Ještě jednou děkuji a přeji pohodový víkend

nechci se do toho montovat ale nebyl by vhodnější LISTBOX se základními (nebo všemi) údaji ...
jeden krok místo dvou??