-
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
-
Delila_1
veterán
válasz
lacko81
#3377
üzenetére
Tegnap a D oszlopba került az utca és a házszám.
Van itt egy kis makró, ami az E oszlopba írja az utcát, az F-be a házszámot.Sub hazszam()
sor = 1
Do While Cells(sor, 4) <> ""
nev = Cells(sor, 4)
For b = Len(nev) To 1 Step -1
If Mid(nev, b, 1) = Chr(32) Then
Cells(sor, 5) = Left(nev, b - 1)
Cells(sor, 6) = Right(nev, Len(nev) - b)
Exit For
End If
Next
sor = sor + 1
Loop
End Sub -
Gh0sT
addikt
válasz
lacko81
#3371
üzenetére
Ez már egy kicsit okosabb, többféle címformátumot is kezel.
=HA(HIBÁS(SZÖVEG.KERES(" ";A1));A1;HA(HIBÁS(JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)+1)));JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)));HA(HIBÁS(SZÖVEG.KERES(" ";JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)+1))));JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;SZÖVEG.KERES(" ";A1)+1));JOBB(A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1;HOSSZ(A1)-SZÖVEG.KERES(" ";A1))))))
MOD: remélem látszik az egész, én tudom scrollozni a teljes kódot.
-
Delila_1
veterán
válasz
lacko81
#3366
üzenetére
Adatok szétszedése:
Vegyük, hogy A1-ben van a címed.B1-> =bal(a1;4)
C1-> =közép(a1;5;szöveg.talál(" ";a1;6)-5)
D1-> =jobb(a1;hossz(a1)-szöveg.talál(" ";a1;6))Ezeket végigmásolod, utána érdemes a B
oszlopokat másolni, és ugyanoda irányítottan az értékeket beilleszteni.Adatok összemásolása:
=A1&" "&B1&" "&C1... stb.
Új hozzászólás Aktív témák
- Kertészet, mezőgazdaság topik
- Anime filmek és sorozatok
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Világ Ninjái és Kódfejtői, egyesüljetek!
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- exHWSW - Értünk mindenhez IS
- Diablo IV
- Kaspersky Antivirus és Internet Security Fórum
- Gyúrósok ide!
- EAFC 26
- További aktív témák...
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- iPhone 13 256GB 100% (1év Garancia) - ÚJ EREDETI AKKUMULÁTOR - AKCIÓ
- HP EliteBook 840 G7 14" i5 10210u, 16GB RAM, SSD, jó akku, számla, 6 hó gar
- Lenovo magyar laptop billentyűzetre van szükséged? Akármelyik verzióban segítünk!
- BESZÁMÍTÁS! Apple Macbook Air 15 M4 16GB RAM 512GB SSD notebook garanciával hibátlan működéssel
- Beszámítás! Apple Mac Mini M4 16GB 256GB számítógép garanciával, hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

oszlopokat másolni, és ugyanoda irányítottan az értékeket beilleszteni.
Fferi50