Hirdetés
- Candy: AOOSTAR WTR PRO – NAS, alkoss, gyarapíts
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Magga: PLEX: multimédia az egész lakásban
- Luck Dragon: MárkaLánc
- Mr Dini: Mindent a StreamSharkról!
- Parci: Milyen mosógépet vegyek?
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- eBay-es kütyük kis pénzért
-
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
- Sony Xperia 1 V - kizárólag igényeseknek
- Beköltöztette az AI-t az iOS az Apple Musicba
- Xiaomi 17 Ultra - jó az optikája
- iPhone topik
- Okos otthon - Home Assistant, openHAB és más nyílt rendszerek
- Napelem
- Diablo II: Classic és Resurrected
- Crimson Desert
- Milyen billentyűzetet vegyek?
- Samsung LCD és LED TV-k
- További aktív témák...
- Tavaszi RAKTÁRSÖPRÉS!!! - Videókártyák, Monitorok, Notebookok, Stb. - Szaküzletből! Számlával!
- HIBÁTLAN iPhone 11 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS4494, 100% Akkumulátor
- DDR5 8/ 16/ 32GB 4800-5600MHz UDIMM PC RAM, több db- számla, garancia
- Google Pixel 7 / 8/128GB / Kártyafüggetlen / 12Hó Garancia
- HIBÁTLAN iPhone 12 256GB Blue-1 ÉV GARANCIA - Kártyafüggetlen, MS4462
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50