2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Új hozzászólás Aktív témák

  • #2162 vilag tag
    Új Válasz #2162
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    vilag

    tag

    Volna nekem egy gondom.
    Vélhetően nem nagy probléma, csak egyszerűen nem értem az okát.

    Van nekem ugye egy UserFormon több comboboxom.

    Az egyik ComboBoxnak a másikból vezérelve szeretnék értéktartományt adni a következő módon:

    Combobox17_Change()
    (...)
    If ComboBox17.Value = 1 Then ComboBox18.RowSource = "Egységdíjak!b5:c21"
    If ComboBox17.Value = 2 Then ComboBox18.RowSource = "Egységdíjak!b23:c33"
    If ComboBox17.Value = 3 Then ComboBox18.RowSource = "Egységdíjak!b35:c38"
    If ComboBox17.Value = 4 Then ComboBox18.RowSource = "Egységdíjak!b40:c43"
    If ComboBox17.Value = 5 Then ComboBox18.RowSource = "Egységdíjak!b45:c56"
    If ComboBox17.Value = 6 Then ComboBox18.RowSource = "Egységdíjak!b58:c58"
    If ComboBox17.Value = 7 Then ComboBox18.RowSource = "Egységdíjak!b60:c63"
    If ComboBox17.Value = 8 Then ComboBox18.RowSource = "Egységdíjak!b65:c66"
    (...)

    End Sub

    Azonban ez a hibaüzenet jelenik meg:

    "Could not set the RowSource property. Invalid property value."

    Ehhez a programkódhoz egy másik UserFormon kiadott parancs juttat el, miszerint:
    UserForm1.ComboBox17.Value = Workbooks(filenev).Sheets(1).Range("b2").Value

    Egyszerűen nem értem miért nem hajlandó beadni ezt a szöveges értéket beállítani.
    Esetleg a ComboBox18 valamelyik tulajdonsága még nincs megfelelő állapotban ahhoz, hogy a RowSourceot be tudja, állítani?
    Ha így lenne, akkor melyik az a tulajdonság amelyik nem megfelelő?

    Esetleg nem az az aktív munkafüzet amiben ez a munkalap található?
    Lehet itt teljes hivatkozást megadni???

Új hozzászólás Aktív témák