Hirdetés
- Luck Dragon: Asszociációs játék. :)
- Magga: PLEX: multimédia az egész lakásban
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- sziku69: Szólánc.
- eBay-es kütyük kis pénzért
- Gurulunk, WAZE?!
- gban: Ingyen kellene, de tegnapra
- GoodSpeed: Én és a Battlefield 6
- Brogyi: CTEK akkumulátor töltő és másolatai
Új hozzászólás Aktív témák
-
alfa20
senior tag
Szia!
Én így oldanám meg, viszont a Do While-ban lévő első két sort én elhagynám, az ha nincs miértje, szerintem felesleges. Illetve a "3 cellát összefűzni (szóköz nélkül)" arra utalt, hogy a cellák közt ne legyen szünet vagy a tartalmukban?
Ha a tartalmukban, akkor vedd ki a kommentet a ' szóköz eltávolítása:Sub main()
Application.ScreenUpdating = False
Dim usorKesz, alapSor As Long
usorKesz = Sheets("Kész").Range("A" & Rows.Count).End(xlUp).Row
alapSor = 1
Sheets("Alap").Select
Do While (Cells(alapSor, 1) <> "")
Cells(alapSor, 1).Copy
Sheets("Összefűz").Range("A2").PasteSpecial
Sheets("Kész").Cells(usorKesz + alapSor, 1) = Sheets("Összefűz").Range("A1") & _
Sheets("Összefűz").Range("A2") & Sheets("Összefűz").Range("A3")
' szóköz eltávolítása:
'Sheets("Kész").Cells(usorKesz + alapSor, 1).Replace What:=" ", Replacement:=""
alapSor = alapSor + 1
Loop
Sheets("Kiegészít").Range("A1:A16").Copy
Sheets("Kész").Range("A" & usorKesz + alapSor).PasteSpecial
Application.ScreenUpdating = True
End Suberre gondoltál?
Új hozzászólás Aktív témák
- A fociról könnyedén, egy baráti társaságban
- Luck Dragon: Asszociációs játék. :)
- One otthoni szolgáltatások (TV, internet, telefon)
- Gentoo Linux
- Xbox Series X|S
- Windows Insider Program
- Futás, futópályák
- Linux kezdőknek
- Kormányok / autós szimulátorok topikja
- Okos Otthon / Smart Home
- További aktív témák...
- Asus ROG FLOW X13 x360 Érintős MINI Gamer laptop -50% Ryzen 9 6900HS 16GB/1TB RTX 3050Ti 4GB FHD+
- DJI FPV Fly More Combo drón szett - CARBON
- Eladó RedMagic 9 pro (16/512 GB)
- Gamer PC - R7 5800X, RTX 3070 és 16gb RAM + GARANCIA
- Samsung Galaxy S25 / FE / 25 Ultra / S25 Edge / Flip 7 - 256GB / 512GB - Bontatlan - 2/3 év gari
- Bomba ár! Dell Latitude E7250 - i5-i7 I 8GB I 256SSD I 12,5" HD I HDMI I Cam I W10 I Garancia!
- 4G Microsoft Surface Go 2 m3-8100Y 8GB 128GB 1 év garancia
- BESZÁMÍTÁS! Gigabyte GA-H610M i3 12100F 16GB DDR4 512GB SSD RX 6600 8GB Rampage SHIVA CM 600W
- Új állapotú, csúcstechnológiás Roborock Saros Z70 robotporszívó
- Samsung Galaxy S24 FE / 8/128GB / Kártyafüggetlen / 12Hó Garancia
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő