- Redmi Note 13 Pro 5G - nem százas, kétszázas!
- Bivalyerős lett a Poco F6 és F6 Pro
- Honor Magic5 Pro - kamerák bűvöletében
- Huawei Watch GT 4 - kerek karék
- Akár három Z Fold6 is érkezhet idén
- Google Pixel topik
- Vodafone mobilszolgáltatások
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Tetszene, ha ilyen lenne a HMD Skyline?
- One UI 6.1.1 hamarosan, One UI 7 még idén
Hirdetés
-
Telefont, fülhallgatót és órát is hoz a CMF by Nothing július 8-ra
ma Megerősítette a márka első nemzetközi bemutatójuk időpontját és az ott prezentálni tervezett eszközeiket.
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
-
Mozgásban a The Smurfs: Dreams
gp Az új játék a tervek szerint október végén debütál PC-n és konzolokon.
Új hozzászólás Aktív témák
-
EkSYS
senior tag
Sziasztok!
Érdekes problémával találkoztam, s nem tudom mi a megoldás:
Adott egy leltári kivét forma. Az első kombó ami be is van pipálva gyakorlatilag beadja az összes alkatrészgyártót. Majd a nagy kombó ami le is van gördítve meg kiadja minden olyan tétel típusát ami az első kombóban kiválasztott értéknek megfelel. Egyszerű. Ehhez az alábbi megoldásokat használtam:
1.kombó betöltése:
Do While Worksheets("alkresz").Range("A" & sor2).Value <> ""
sor2 = sor2 + 1
leltar1.ComboBox2.AddItem Worksheets("leltarpivo").Range("I" & sor2).Value
Loop
sor2 = sor2 - 1
Worksheets("alkresz").ActivateMajd betöltöm a nagy kombót:
Public Sub alkatcombo5toltes()
Dim sor As Integer
Dim xkeres(1 To 10) As String
xkeres1 = ""
xkeres2 = ""
sor = 2If leltar1.CheckBox1.Value = True Then
xkeres1 = leltar1.ComboBox1.Value
Else
End IfIf leltar1.CheckBox2.Value = True Then
xkeres2 = leltar1.ComboBox2.Value
Else
End Ifleltar1.ComboBox5.Clear
Do While Worksheets("alkresz").Range("A" & sor).Value <> ""
'PME
If Worksheets("alkresz").Range("I" & sor).Value = xkeres1 Then
leltar1.ComboBox5.AddItem Worksheets("alkresz").Range("E" & sor).Value
'Alk.gyártó
ElseIf Worksheets("alkresz").Range("H" & sor).Value = xkeres2 Then
leltar1.ComboBox5.AddItem Worksheets("alkresz").Range("E" & sor).ValueEnd If
sor = sor + 1Loop
A probléma az hogy a képen látható a nagy kombóban kiválasztott érték a helyes, csakis az a másik 3 nem. De az mindig benne marad. mindent szépen megtalál, csak ez a nyomorult 3 marad bent mindig.
Valakinek hasonló tapasztalata? Ötlete?Eki - az eredeti
Új hozzászólás Aktív témák
- Béta iOS-t használók topikja
- ViewSonic VX2779-HD-Pro: megfizethető gamer monitor
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Opel topik
- eBay
- Politika
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- EA Sports WRC '23
- Autós topik látogatók beszélgetős, offolós topikja
- Debrecen és környéke adok-veszek-beszélgetek
- További aktív témák...