- Google Pixel topik
- Telekom mobilszolgáltatások
- Egy szenzor, két zoomkamera: újraírta a Huawei a mobilfotózás történetét
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Google Pixel 9 Pro XL - hét szűk esztendő
- Milyen okostelefont vegyek?
- Mi nincs, grafén akku van: itt a Xiaomi 11T és 11T Pro
- iPhone topik
- Samsung Galaxy S21 FE 5G - utóirat
-
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
Szia!
Talán indirekt függvénnyel megoldható lenne...
A munkalapok neveit felírod az első (vagy a 100. sorba) ebben a formában:'12th July ''06'!
Az aposztrófok azért kellenek, hogy a nevet értelmezni tudja a képletben.
Ezután a képlet, ha pl. a B oszlopban kezdődnek a munkalap nevek:=INDIREKT(B$1 & "B5")
Ezt végig lehet húzni a soron jobbra és így az első sorban levő munkalapról a B5 cella értéke kerül bele.
Ezt még lehetne kombinálni pl. azzal, hogy a második sorban x-eket teszel abban az oszlopban, amelyik adatra szükséged van.
Akkor a képlet (nyilván legalább a harmadik sortól):=HA(B2="x";INDIREKT(B$1 & "B5");"")
Vagyis csak akkor lesz benne értékes adat, ha x van a B2 cellában. Ez a képlet is húzható jobbra.
A plusz munka - ami szerintem megéri, hogy a munkalapok neveit ki kell gyűjtened egyszer.
Erre egy kis makró:Sub nevkigyujto()
Dim sh As Worksheet, x As Long
x = 2
For Each sh In Sheets
If sh.Name <> ActiveSheet.Name Then
If InStr(sh.Name, "'") > 0 Then
Cells(1, x).Value = "'" & Replace(sh.Name, "'", "''") & "'!"
Else
Cells(1, x).Value = "'" & sh.Name & "'!"
x = x + 1
End If
End If
Next
End Sub
Ez abban a formában gyűjti ki az első sorba a munkalap neveket, hogy az INDIREKT függvényben használni lehessen.
Szúrd be az üres munkalapot a többiek elé és futtasd le a makrót. Ha utána már nincs rá szükséged, akkor mentésnél hagyd figyelmen kívül a makrós figyelmeztetést - egyébként makróbarátként vagy bináris fájlként (xlsm ill. xlsb) kell mentened.
A makrót Alt+F11 után Insert Module részbe kell bevinned.Üdv.
Új hozzászólás Aktív témák
- Xiaomi AX3600 WiFi 6 AIoT Router
- Bestbuy játékok
- Xbox Series X|S
- sziku69: Fűzzük össze a szavakat :)
- Google Pixel topik
- Splitgate 2 - Ma este érkezik a teljes változat
- Okos Otthon / Smart Home
- Ismét a Gigabyte alaplapjaival van az Erő
- Luck Dragon: Asszociációs játék. :)
- Akciókamerák
- További aktív témák...
- Sea of Thieves Premium Edition és Egyéb Játékkulcsok.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Antivírus szoftverek, VPN
- Bomba ár! Lenovo ThinkPad L390 - i7-8GEN I 8GB I 256SSD I 13,3" HD I HDMI I Cam I W11 I Gari!
- SZÜNETMENTES TÁPOK
- Bomba ár! Dell Latitude 5500 - i5-8GEN I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Garancia!
- Bomba ár! Lenovo ThinkPad T480s - i7-8GEN I 16GB I 256GB I 14" WQHD I HDMI I Cam I W11 I Gari!
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: PC Trade Systems Kft.
Város: Szeged