Hirdetés
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- 4K vs 8K – Megéri-e a 8K TV 2026-ban?
- Projektor topic
- Szédületes tempót rejt OneXPlayer 3 az 1-ben kézi PC-je
- 5.1, 7.1 és gamer fejhallgatók
- Vezeték nélküli fülhallgatók
- Milyen TV-t vegyek?
- OLED TV topic
- Bambu Lab 3D nyomtatók
- Fejhallgató erősítő és DAC topik
-
PROHARDVER!
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Fferi50
Topikgazda
válasz
nebulo0128
#23792
üzenetére
Szia!
Most egy olyan dodonai választ fogsz kapni, hogy "az excel sokmindenre képes, de sokmindenre nem".
Alapjában véve táblázatkezelőnek "indult", de mára már "adatbázis kezelő" is nyomokban.Ahhoz amit szeretnél, szerintem kell egy olyan makró, amelyik a cella beírása után lefuttatja a cella értékének megfelelő lekérdezést és az eredményt beírja a cella melletti tartományba. Vagyis minden cellaértékre külön-külön kell lefutnia a lekérdezésnek. Viszont ez a lekérdezés (querytable) lehet egy konkrét helyen (akár rejtett munkalapon) és onnan másolódik be az adott cella mellé.
Vagyis a lekérdezés tábla értéke mindig változik az aktuális cella értékének megfelelően, viszont az egyszer már a cella mellé másolt értékek nem változnak.Pl. querytable helye munka2!A1:X2 egy sor fejléc egy sor adat
Munka1.A1 cellájába beírod "valami", a worksheet_change esemény erre lefuttatja a lekérdezést az A1 ez az eseménykezelőben Target nevű objektumként található - értékével, majd a Munka2!A2:X2 értéket bemásolja a Munka1. B1 cellájától kezdődően.
Ezután
Munka1 A2 cellájába beírod "valami2", a worksheet_change esemény megcsinálja a fentieket a Target.value értékkel -azaz az A2-ben levő valami2 -vel majd Munka2!A2:X2 értékekekt bemásolja a Munka1.B2 cellájától kezdődően (Munka1.B2 cella = Target.Offset(0,1) az eseménykezelőben.
És így tovább...."Csak" a lekérdezést és az eseménykezelőt kell jól megírni........ Nyilván ellenőrizni kell, hogy valóban olyan helyre írtak be értéket, ahova a cikkszám való és valóban létező cikkszámot írtak be.
Remélem, tudod hasznosítani amit írtam, ha gondolod privi is jöhet.
Üdv.
Új hozzászólás Aktív témák
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- PC Game Pass előfizetés
- The Elder Scrolls Online Imperial Collector s Edition
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- AKCIÓ! MSI ThinA15 B7VF-449XHU Gamer notebook - R7 7735HS 16GB DDR5 1TB SSD nVidia RTX 4060 8GB
- Apple Watch 9 GPS + Cellular 45 mm
- 27% - GIGABYTE RX 7800 XT GAMING OC 16G Videokártya
- Bomba ár! Lenovo ThinkPad T14 G2i - i5-11G I 16GB I 512GB SSD I 14" FHD I Cam I W11 I Garancia!
- Apple Magic Mouse (USB-C) - Fehér
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
