-
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
-
Mutt
senior tag
válasz
Yutani
#53162
üzenetére
Szia,
Jól sejtem hogy kimutatást/összegzést akarsz csinálni a különböző cégekre és csak az adatokat akarod behúzni könnyedé, hogy a kész formulák kiadják az eredményt?
Ha igen, akkor szerintem próbáljuk meg Power Query-vel megoldani, ha a fájlok felépítése hasonló.
Két lekérdezést tudok most elképzelni:
1. Mappából a lehetséges fájlnevek kilistázása.
2. A kiválasztott fájlon adatátalakítás szükség szerint.üdv
-
Fferi50
Topikgazda
válasz
Yutani
#53169
üzenetére
Szia!
Egy példa, ami alapján el lehet indulni: A képletet a makró irja be a B2 cellába!!!
A munkalap kódlapjára (lapfülön jobb egérgomb - kód megjelenítése) az alábbi makrót kell beilleszteni:Private Sub Worksheet_Change(ByVal Target As Range)If Intersect(Target, Range("E1:H1")) Is Nothing Then Exit SubApplication.EnableEvents = FalseRange("B1").Formula = "='" & Range("E1").Text & "\[" & Range("F1").Text & "]" & Range("G1").Text & "'!" & Range("H1").TextApplication.EnableEvents = TrueEnd Sub
Ha változtatod az F1:H1 cellákban levő adatot, akkor változik a képlet a B1 cellában és megjelnik az új eredmény. Ebben a formában kell beírni, azaz az útvonal végére nem kell \ és kell a fájl kiterjesztés.
Figyelem, hibakezelés nincs benne. Először töltsd ki a négy cellát és utána másold be a makrót, különben hibaüzeneteket fogsz kapni.
Makróbarátként kell menteni!
Üdv. -
föccer
nagyúr
válasz
Yutani
#53162
üzenetére
Hűűű, ha jól sejtem, akkor vagy adatfrisstés kell neked, vagy makrózni kell.
Függvények csak adatfrissítésen keresztül fognak tudni olyan file-ból frissíteni, ami nincs nyitva.
Vagy makróból mgnyitod a szükséges fájlokat, kiszeded belőle a szükséges adatokat és bezárod ami nem kell.
Új hozzászólás Aktív témák
- Kerti grill és bográcsozó házilag (BBQ, tervek, ötletek, receptek)
- AMD vs. INTEL vs. NVIDIA
- MasterDeeJay: Comet lake (10gen) és DDR3 - mert ilyet is lehet!
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Netfone
- Nintendo Switch 2
- Sorozatok
- TCL LCD és LED TV-k
- Épített vízhűtés (nem kompakt) topic
- Spórolós topik
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Fallout 4 Pip-Boy Edition eladó
- PC Game Pass előfizetés
- LG 77C3 - 77" OLED evo - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox!
- Honor X8a / 4/128GB / Kártyafüggetlen / 12HÓ Garancia
- Prémium PC házak akár 20-40% kedvezménnyel eladók garanciával, számlával! Upd. 03.08
- Dell Precision 7550 i7-10850H 32GB 512GB Nvidia RTX3000 6GB 1 év garancia
- BESZÁMÍTÁS! Asus TUF Gaming RTX 5090 32GB GDDR7 videokártya garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
A munkalap kódlapjára (lapfülön jobb egérgomb - kód megjelenítése) az alábbi makrót kell beilleszteni:
Fferi50