- eldiablo: Mennyire strapabíró egy GShock?
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Graphics: OnePlus 13R - Üzemidőbajnok és remek képességek
- eBay-es kütyük kis pénzért
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Magga: PLEX: multimédia az egész lakásban
- Graphics: Hello Moto! - Kipróbáltam a Motorola Moto G55 5G-t. (videó is)
- t72killer: Fürdőkád kontra elektromosság: XXI.század
- btz: Internet fejlesztés országosan!
-
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!
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
Hirdetés
- eldiablo: Mennyire strapabíró egy GShock?
- OLED monitor topic
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Facebook és Messenger
- Skype topic
- Tomb Raider IV-VI Remastered teszt
- Május 5-én csörög utoljára a Skype
- The Division 2 (PC, XO, PS4)
- Windows 11
- Saját márkás HDD-ket követel meg az egyes NAS-okhoz a Synology
- További aktív témák...
- Nothing Phone 2 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- Csere-Beszámítás! Sapphire Pulse RX 7900XTX 24GB Videokártya!
- AKCIÓ! Gigabyte AORUS 16X (2024) Gamer notebook - i7 14650HX 16GB RAM 1TB SSD RTX 4070 8GBWin11
- DOKKOLÓ BAZÁR! Lenovo, HP, DELL és egyéb más dokkolók (TELJES SZETTEK)
- Országos! KÉSZPÉNZES - UTALÁSOS VIDEOKÁRTYA FELVÁSÁRLÁS! Korrekt áron! NVIDIA!
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest