Hirdetés
- MasterDeeJay: Egy nem átlagos Asus videókártya (GTX950M 2GB GDDR3)
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- eBay-es kütyük kis pénzért
- Candy: AOOSTAR WTR PRO – NAS, alkoss, gyarapíts
- sziku69: Szólánc.
- Luck Dragon: MárkaLánc
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- Mr Dini: Mindent a StreamSharkról!
-
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
Szia!
"Esély nincs arra, hogy ezt-azt ne kelljen futtatgatni manuálisan, amikor változik a cella?"
Erre való az eseménykezelés:Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("K1")) Is Nothing thenApplication.EnableEvents = FalseRange("A1").Formula="='c:\abc\def\[termeles" & Range("K1").Value & ".xls]" & Range("K1").Value & "'!A10"Application.EnableEvents = TrueEnd IfEnd Sub
Ezt annak a munkalapnak a kódlapjára kell bemásolni, ahol változtatni szeretnéd az adatokat.
Természetesen a többi cellára is meg kell ezt csinálni.
Ha felteszel valahova egy mintát, akkor megnézem, hogyan lehetne egyszerűbben, mert ha ugyanazok a fájlok változnak, akkor egy Csere - képletben makróval is meg lehet tenni a változtatást, ha előtte már megvannak a képletek normálisan. Csak azt kell tudni, hogy mit - mire kell változtatni.Üdv.
Új hozzászólás Aktív témák
- Milyen légkondit a lakásba?
- Vezetékes FEJhallgatók
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Autós topik
- Samsung Galaxy A54 - türelemjáték
- PlayStation 5
- Mesterséges intelligencia topik
- AMD vs. INTEL vs. NVIDIA
- Milyen légtisztítót vegyek?
- Call of Duty: Modern Warfare (2019)
- További aktív témák...
- MS SQL Server 2016, 2017, 2019
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- ÚJ Lenovo ThinkPad L14 G6 - 14"WUXGA - Ultra 5 225U - 16GB - 512GB - Win11 P - 3 + év gyári garancia
- LG 27UP850K-W - 27" IPS LED - 3840x2160 4K - DisplayHDR 400 - USB Type-C - AMD FreeSync
- SK Hynix 16GB és 32GB DDR4 so dimm 3200MHz modulok számlával, 6 hó garanciával
- ÚJ AKCIÓS HP EliteBook 6 G1a Ryzen 5 PRO 230 16GB DDR5 512GB FHD+ 16:10 már jobbik kijelző, gar 2028
- 4TB Gen4x4 SSD
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50