Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- mefistofeles: Az elhízás nem akaratgyengeség!
- gban: Ingyen kellene, de tegnapra
- GoodSpeed: Daikin FTXF35E / RXF35F Sensira 3,3 kW Inverteres klíma - a Sztori
- Brogyi: CTEK akkumulátor töltő és másolatai
- sziku69: Fűzzük össze a szavakat :)
- Klaus Duran: RCS
- Luck Dragon: Asszociációs játék. :)
- lkristóf: Prohardver fórum userscript – hogy lásd, mikor neked válaszoltak
- gerner1
-
LOGOUT
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
Melorin
#50122
üzenetére
Szia!
Szerintem is makrós megoldás kell:
A rendelés táblád eseménykezelőjébe kell egy rövid makró, amelyik bemásolja az "adatbázisból" a képet.
Pl.Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 ThenIf IsEmpty(Target) Then Exit SubApplication.EnableEvents = FalseSheets("Adatbázis").Range("A1:A50000").Find(what:=Target.Row, LookIn:=xlValues, lookat:=xlWhole).Offset(0, 1).Copy Destination:=Target.Offset(0, 1)Application.EnableEvents = TrueEnd IfEnd Sub
Amikor a sor első cellájába érték kerül, megkeresi az adatbázisban és átmásolja a képet. A feltételezés itt az, hogy az adatbázisban az anyag azonosító az első oszlop és mellette van a kép továbbá a sor második cellájába kell másolni.
Nincs benne hibakezelés, tehát ha olyan érték kerülne be, ami nincs az adatbázisban, akkor hibával megáll. Természetesen ezt lehet kezelni.
Figyelem! Ebben az esetben makróbarátként kell mentened azt a fájlt, amivel dolgozol. A mások által nézett fájl már lehet makrómentes.
Üdv.
Új hozzászólás Aktív témák
- Diablo II: Classic és Resurrected
- Sokkal jobb ajánlat lett elődjénél az iPhone 17e
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- mefistofeles: Az elhízás nem akaratgyengeség!
- Huawei P10 - pisztácia nem is volt
- Kerékpárosok, bringások ide!
- Építő/felújító topik
- Gyúrósok ide!
- PlayStation 5
- Milyen routert?
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- The Elder Scrolls Online Imperial Collector s Edition
- Microsoft és egyéb dobozos retro szoftverek
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Beszámítás! HP Elitebook 8 G1i 14 FHD notebook - Ultra 5 235U 16GB DDR5 256GB SSD Intel IGP W11
- Kuriózum: Ozark Trail (amerikai) fejlámpa 600 lumen
- BESZÁMÍTÁS! Gigabyte G1.Sniper Z97 chipset alaplap garanciával hibátlan működéssel
- Keresünk iPhone 15/15 Plus/15 Pro/15 Pro Max
- iPhone 16 Pro Max 256GB 92% (1év Garancia)- AKCIÓ
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50