- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Kikapcsolható lesz a PWM az iPhone 17 modelleken
- Okosóra és okoskiegészítő topik
- One mobilszolgáltatások
- Apple Watch Sport - ez is csak egy okosóra
- Merész dizájn és új teleobjektív az iPhone 17 Pro mobilokban
- Apple iPhone 17 - alap
- Bemutatkozott a Poco F2 Pro (már megint)
- Samsung Galaxy A55 - új év, régi stratégia
- Honor Magic6 Pro - kör közepén számok
-
Mobilarena
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
válasz
dm1970 #38896 üzenetére
Szia!
Sajnos nem látok igazán direkt képletes megoldást.
Viszont a keres-cserél képletekben szerintem elég gyorsan működik, nem kell kézzel átírni az egészet.
Vagy ugyanaz makróval:Range("D1").Formula = Left([a1].Formula, InStr([a1].Formula, "[")) & [i1].Value & Mid([a1].Formula, InStr([a1].Formula, "]"))
Ez a sor a D1 cellába beírja az A1 cellában levő képletet, módosítva az I1 cellában levő fájlnévre.A makrót beírhatod pl. a munkalap Change eseménykezelőjébe.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then 'ha az a1 cella v?ltozott
Range("D1").Formula = Left([a1].Formula, InStr([a1].Formula, "[")) & [i1].Value & Mid([a1].Formula, InStr([a1].Formula, "]"))
End If
End SubValahányszor az A1 cella értékét módosítod, a D1 cella képlete módosulni fog.
Ez persze csak elindító gondolatnak jó, a pontos paramétereket neked kell kiókumulálni.
Természetesen ha a fájlnevekben van szabályosság, azt lehet a makróban is kezelni.Üdv.
Új hozzászólás Aktív témák
- Okos Otthon / Smart Home
- One otthoni szolgáltatások (TV, internet, telefon)
- Autós topik látogatók beszélgetős, offolós topikja
- Borderlands 4
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Milyen routert?
- Apple asztali gépek
- Mozilla Firefox
- sellerbuyer: Mivel fotózz és videózz 2025-ben? Elég egy mobil vagy kell egy kamera?
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- További aktív témák...
- Keresem az alábbi PC játékokat! (Teljes lista a leírásban!)
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Eredeti - Choice - Bundle - Steam kulcsok beszerzése. Írj kérés PM-et!
- Game Pass Ultimate előfizetések 4 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- MS SQL Server 2016, 2017, 2019
- Apple iPhone 11 Pro / 64GB / Kártyafüggetlen / 12Hó Garancia / 100% akku
- BESZÁMÍTÁS! MSI MPG Z490 GAMING EDGE WIFI alaplap garanciával hibátlan működéssel
- ÓRIÁSI AKCIÓK / MICROSOFT WINDOWS 10,11 / OFFICE 16,19,21,24 / VÍRUS,VPN VÉDELEM / SZÁMLA / 0-24
- Eladó szép állapotú Samsung S10+ 8/128GB / 12 hó jótállás
- Apple iPhone 11 64GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest