Hirdetés
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- Brogyi: CTEK akkumulátor töltő és másolatai
- gerner1
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- GoodSpeed: Márkaváltás sok-sok év után
- CaNNa3IS: Kis előkarácsonyi muzsika csak nektek
- Gurulunk, WAZE?!
-
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
válasz
CarrGomm
#27190
üzenetére
Szia!
Ez a két kis függvény bármilyen sok szóközzel tagolt névből leveszi az utolsó tagot és beleteszi az adott cellába:
Function nevveg(ByRef rng As Range) As String
nevveg = Mid(rng.value, InStrRev(rng.value, " ") + 1) 'a név utolsó tagja
End Function
Function neveleje(ByRef rng As Range) As String
neveleje = Left(rng.value, InStrRev(rng.value, " ") - 1) ' a név utolsó tagja nélküli rész
End FunctionA függvényeket egy makró modulba kell bevinned, utána úgy használhatod, mint egy beépített függvényt.
Üdv.
-
karlkani
aktív tag
válasz
CarrGomm
#27179
üzenetére
Az, hogy Kovács Géza József helyett legyen Kovács Géza és külön József, megoldható.
A1 Kovács Géza József
B1 =BAL(A1;SZÖVEG.KERES(" ";A1)-1)
C1 =HAHIBA(KÖZÉP(A1;HOSSZ(B1)+2;HOSSZ(A1)-HOSSZ(B1)-HOSSZ(E1)-2);"")
D1 =ÖSSZEFŰZ(B1;" ";C1)
E1 =CSERE(A1;1;SZÖVEG.KERES("^";HELYETTE(A1;" ";"^";HOSSZ(A1)-HOSSZ(HELYETTE(A1;" ";""))));"")A nevek ugye az A oszlopban vannak. Kijelölöd b1-E1-ig, majd lehúzod, ameddig kell, a B és C oszlopokat, elrejted. Ha előtaggal kezdődik a név (dr., ifj., stb), akkor azt a vezetéknévhez csapja hozzá.
-
karlkani
aktív tag
Új hozzászólás Aktív témák
- Jövedelem
- Revolut
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Lightyear - befektetési app
- Spórolós topik
- Kormányok / autós szimulátorok topikja
- Soundbar, soundplate, hangprojektor
- Formula-1
- Már elérhető a mobilokra szánt Pokémon Trading Card Game Pocket
- World of Warships
- További aktív témák...
- BLACK FRIDAY! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Keresem a Barkács Balázs Játékokat
- MS SQL Server 2016, 2017, 2019
- iPhone 13 mini 128GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS4052, 100% Akkumulátor
- Netatmo Presence okos kültéri kamera / 12 hó jótállás
- Játékra vagy Munkára! Csere-Beszámítás! I7 3930K / Nvida GTX Titan X / 16GB DDR3 / 500GB SSD!
- iPhone XS Max 256GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3997, 100% Akkumulátor
- Xiaomi Redmi Note 14 Pro+ 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50
