- Épített vízhűtés (nem kompakt) topic
- HiFi műszaki szemmel - sztereó hangrendszerek
- Autós kamerák
- Fejhallgató erősítő és DAC topik
- Nem akármilyen új GeForce jöhet idén
- Vezetékes FEJhallgatók
- Azonnali informatikai kérdések órája
- Döbbenetesen sok energia kell az érkező Nova Lake működéséhez?
- Milyen egeret válasszak?
- Nvidia GPU-k jövője - amit tudni vélünk
-
PROHARDVER!
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
- World of Warships
- Épített vízhűtés (nem kompakt) topic
- Miskolc és környéke adok-veszek-beszélgetek
- Battlefield 6
- Húszmillió mobilara adta ki a Honor a tízparancsot
- HiFi műszaki szemmel - sztereó hangrendszerek
- mefistofeles: Az elhízás nem akaratgyengeség!
- One otthoni szolgáltatások (TV, internet, telefon)
- Autós kamerák
- Xbox Series X|S
- További aktív témák...
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Antivírus szoftverek, VPN
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- LG 65B4 - 65" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- ÁRGARANCIA!Épített KomPhone Ultra 7 265KF 32/64GB RAM RTX 5090 32GB GAMER PC termékbeszámítással
- Dell Latitude 3510 15,6", i5 10210U, 8-16GB RAM, SSD, jó akku, számla, garancia
- BESZÁMÍTÁS! Sapphire B650M R5 7500F 32GB DDR5 1TB SSD RTX 3080 10GB Lian LI LANCOOL 207 FSP 750W
- Jo Nesbo: LEOPÁRD (nem olvasott)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Fferi50

