- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- btz: Internet fejlesztés országosan!
- KRTLPC: Ki és hogyan élt túl? Volt ám fennakadás
- Meggyi001: RTX 5060 - Az új népkártya?
- sziku69: Fűzzük össze a szavakat :)
- bigyo108: A vén PC-Főnix újjászületése
- Napkollektor - csak úgy
Hirdetés
Talpon vagyunk, köszönjük a sok biztatást! Ha segíteni szeretnél, boldogan ajánljuk Előfizetéseinket!
Új hozzászólás Aktív témák
-
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 SubAzonban 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").ValueEgyszerű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
- Energiaital topic
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- Luck Dragon: Asszociációs játék. :)
- Autós topik látogatók beszélgetős, offolós topikja
- Allegro vélemények - tapasztalatok
- Kormányok / autós szimulátorok topikja
- Villanyszerelés
- Samsung Galaxy Watch7 - kötelező kör
- Milyen légtisztítót vegyek?
- További aktív témák...
- Garmin Instinct 3 - Amoled 45mm
- Garmin Tactix 7 - Saphire
- HIBÁTLAN iPhone 13 512GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3075
- Microsoft Surface Laptop 5 13,5" i7-1265U 16GB 256GB magyarbill 1 év garancia
- GYÖNYÖRŰ iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3074, 100% Akkumulátor
- DELL Precision 7730 i5-8400H Quadro P3200 16GB 512GB FHD 17 1 év garancia
- Azonnali készpénzes GAMER / üzleti notebook felvásárlás személyesen / csomagküldéssel korrekt áron
- GYÖNYÖRŰ iPhone SE 2020 64GB Red -1 ÉV GARANCIA - Kártyafüggetlen, MS2896, 100% Akkumulátor
- Gamer PC- Számítógép! Csere-Beszámítás! I5 12400F / RTX 3070 8GB / 32GB DDR4 / 500GB SSD+ 2TB HDD
- Amazfit GTR Mini okosóra / Számla / Garancia /
Állásajánlatok
Cég: FOTC
Város: Budapest