ListFillRange – Visual Basic – Fórum – Programujte.com

Hi all,
nikdy jsem s VBA nedělal a teď s ním mám problém. Mám pole se seznamem a potřebuji do něj dostat data, která se určují podle jíneho pole se seznamem. Tak jsem i řekl, že bych to mohl udělat takto.

Private Sub ComboBox4_Change()

	If  Range("F76") = 1 Then

        	ComboBox4.ListFillRange = "Výpočet!N117:O122"

	End If

    

	If Range("F76") = 2 Then

        	ComboBox4.ListFillRange = "Výpočet!N123:O142"

	End If

    

	If Range("F76") = 3 Then

        	ComboBox4.ListFillRange = "Výpočet!N143:O217"

	End If

End Sub

Nenašiel som u ComboBoxu metódu ListFillRange ! Ja som položky pridával cez AddItem! Tvoj kód je asi zacyklený, preto to zamrzne. Zrejme pridaním položky sa opäť aktivuje udalosť Change a ide to potom dookola ! Skús použiť udalosť Click.

Hi,
jen bych chtěl poděkovat za radu se změnou události. Jakmile jsem tan nastavil Click, tak to již bylo lepší a úplně nejlepší to bylo s událostí OnFocus.