

naplnenie comboboxu excel vba
Potrebujem naplnit combobox na excelovskom harku zoznamom harkov z ineho zozita. Kedze som tam zapasil s problemami, tak som stiahol priklad a vytvoril jednoduchy priklad , na ktorom by som to vyskusal. A ejhla, ale tam je chyba , Object required. Makro Vyber je priradene na tlacitko na skusanie
Niekto skusenejsi? Opravit tak, aby sa nemuselo ist cez OLE
ked pisem ten prikaz, tak po bodke mi napoveda ponuka v pohode na vyber
Sub vyber()
ComboBox_Create
ComboBox_InputRange
End Sub
Sub ComboBox_Create()
Dim Cell As Range
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("hárok1")
sht.DropDowns.Add(20, 20, 100, 15).Name = "ComboBox1"
End Sub
Sub ComboBox_InputRange()
Dim Cell As Range
Dim sht As Worksheet
Dim myArray As Variant
Dim myDropDown As Shape
Set sht = ThisWorkbook.Worksheets("hárok1")
Set myDropDown = sht.Shapes("ComboBox1")
myArray = Array("Q1", "Q2", "Q3", "Q4")
myDropDown.OLEFormat.Object.List = Array("Q1", "Q2", "Q3", "Q4") ' tento funguje
myDropDown.ControlFormat.List = Array("Q1", "Q2", "Q3", "Q4") ' Object required
End Sub
Nejsem u PC tak jen nástřel.
Dim myDropDown As Shape změn na Dim myDropDown As Objekt
To ma napadlo ako prve a jedine, v tom povodnom , tam mi to neslo.
V tomto to zamenit ma nenapadlo, tu funguje.
V tom mojom povodnom bude asi este niekde nejaka bota, tam mi to nepomohlo.
Dik za nakopnutie.
Vybavene, musim hladat v povodnom lepsie.