-
Fototrend
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
-
Delila_1
veterán
válasz
LED333
#38875
üzenetére
Az elsőre a válasz, hogy a laphoz kell rendelned egy makrót. Ennek a módját megtalálod a Téma összefoglalóban.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target > "" Then
Sheets(2).Select
ActiveSheet.Shapes(Target).Select
End If
End SubNálam a terméknevek az A oszlopban vannak. A második lapon lévő képek nevei megegyeznek az első lap termékneveivel.
Ha a neveket tartalmazó lapon nem az A oszlopban vannak a nevek, akkor az If Target.Column = 1 -nél írd át az 1-et annyira, ahányadik oszlopra kattintást kell figyelnie a makrónak.
Ha a képek nem a 2. lapon vannak, akkor a Sheets(2).Select sorban kell átírnod a 2-t.A füzetet makróbarátként (xlsm) kell mentened.
Most nem ugrik be a második kérdésedre a válasz, de majdcsak jön valaki, aki kapásból tudja.

Új hozzászólás Aktív témák
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Microsoft és egyéb dobozos retro szoftverek
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- PC Game Pass előfizetés
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Keresünk Galaxy S23/S23+/S23 Ultra/S23 FE
- Ventilátor bazár /NZXT/CORSAIR/LIAN LI/DEEPCOOL/ZALMAN/120MM/140MM/VEZÉRLŐK/LED KIT-ek/
- Samsung Galaxy A16 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
- ÁRGARANCIA! Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5080 16GB GAMER PC termékbeszámítással
- AKCIÓS PRECÍZIÓS KÉSZÜLÉK! 7560 i7-11850H 32GB RAM 1TB SSD Nvidia RTX A5000 16GB 1 év gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50