Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- aquark: Zsebszámológépek
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- MasterDeeJay: Comet lake (10gen) és DDR3 - mert ilyet is lehet!
- MasterDeeJay: Mi ez a pici videókártya? AMD E9173 teszt
- eBay-es kütyük kis pénzért
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- Candy: Kossuth Lajos azt üzente, elfogyott a gémergépe
Új hozzászólás Aktív témák
-
alfa20
senior tag
nézd meg ezt:
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(1, 1) <> "")
Cells(1, 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")
alapSor = alapSor + 1
Sheets("Alap").Cells(1, 1).Delete
Loop
Sheets("Kiegészít").Range("A1:A16").Copy
Sheets("Kész").Range("A" & usorKesz + alapSor).PasteSpecial
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub -
xml2
újonc
Nagyon köszönöm a segítséget, pont erre gondoltam!
Ha másolás helyett inkább kivágást szeretnék, akkor a Copy helyett mehet mindenhova Cut, ugye?
A tartalomban nem szerettem volna szóközt, úgyhogy kivettem a megjegyzést.Szerk: Közben lázasan kerestem a hibát a saját művemben, jelzem, megtaláltam
Félreértettelek, és az egyes tartalmak között nem szerettem volna szünetet, gondolom így értetted, hogy a cellák között. Tehát mégse kell az a sor 
Új hozzászólás Aktív témák
- Mesterséges intelligencia topik
- TCL LCD és LED TV-k
- Pécs és környéke adok-veszek-beszélgetek
- Kés topik
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Vicces képek
- CASIO órák kedvelők topicja!
- Pedzegeti az új Xbox irányát a Microsoft
- További aktív témák...
- SZUPER Akcióban Új Bontatlan Dyson V15 Origin 3 év gyártói garanciával Azonnal Átvehető
- Makulátlan Dell14",core i5,8-32GB DDR4,MAGYAR Vil.bill,256-512GB SSD,jó akku,W11
- Újszerű ÉRINTŐS Dell,14"FullHd IPS,8.gen core i5(8x3,6Ghz)8-32GB/256-512GB,MAGYAR Vil.bill
- Megkímélt ÉRINTŐS Dell,14"FullHd IPS,core i5,8-32GB DDR4,MAGYAR Vil.bill,256-512GB SSD,jó akku,W11
- BESZÁMÍTÁS! Intel Core i9 11900KF 8 mag 16 szál processzor garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Félreértettelek, és az egyes tartalmak között nem szerettem volna szünetet, gondolom így értetted, hogy a cellák között. Tehát mégse kell az a sor
