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

• Bobrooney senior tag

  #2164

  #2162 vilag

  2013-07-05 23:10:22

  Új Válasz

  Ú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

  

  Bobrooney

  senior tag

  #2162 vilag

  #2162 vilag

  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???

  Ha Select Case-el megoldod kicsit szebb lesz a kódod (help)

• vilag tag

  #2163

  #2162 vilag

  2013-07-05 11:45:31

  Új Válasz

  Ú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

  

  vilag

  tag

  #2162 vilag

  #2162 vilag

  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???

  Közben a saját kérdésem nyomán meg is találtam a választ.

  A probléma az volt, hogy menet közben programból megnyitottam egy másik fájlt, így az lett az aktív munkafüzet.
  Mivel az új aktív munkafüzetben nem volt olyan munkalap ezért a RowSourceot nem tudta beállítani.

  Szóval mindössze a megnyitás után a ThisWorkBokk.Activate parancsot kellett kiadnom és minden rendbe jött.

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