-
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
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- OLED monitor topic
- Apple MacBook
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Szeged és környéke adok-veszek-beszélgetek
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- Projektor topic
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Pedzegeti az új Xbox irányát a Microsoft
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Microsoft és egyéb dobozos retro szoftverek
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

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