Hirdetés
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- sh4d0w: Kalózkodás. Kalózkodás?
- bambano: Bambanő háza tája
- Hieronymus: Kalózkodás. Kalózkodás? hozzászólás
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- droidic: Windows 11 önállóság nélküli világ: a kontroll új korszaka
-
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
-
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
- Műholdas AI chippel fedné le a bolygót a Samsung
- Linux kezdőknek
- AMD GPU-k jövője - amit tudni vélünk
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Kormányok / autós szimulátorok topikja
- Villanyszerelés
- Apple iPhone 15 - a bevált módszer
- Synology NAS
- Kertészet, mezőgazdaság topik
- BestBuy topik
- További aktív témák...
- iPhone 12 Pro 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3581
- Lenovo ThinkPad T14s Gen 2 i5-1135G7 16GB 512GB 1 év garancia
- HATALMAS AKCIÓK! GARANCIA, SZÁMLA - Windows 10 11, Office 2016 2019 2021,2024, vírusírtók, VPN
- Eredeti Microsoft Windows 10 / 11 Pro OEM licenc Akciós áron! 64/32 bit Azonnali kézbesítéssel
- BESZÁMÍTÁS! Asus B560M i5 10400F 16GB DDR4 512B SSD RX 6600XT 8GB AeroCool DS Cube ADATA 600W
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest

Fferi50
