Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- Geri Bátyó: Ezt pedig azért, mert...
- MasterDeeJay: Mi ez a pici videókártya? AMD E9173 teszt
- mefistofeles: Az elhízás nem akaratgyengeség! 2 Ahogy én csinálom.......
- Geri Bátyó: Agglegénykonyha különkiadás 2 – Kajás poénok
- talmida: My Art II.
- Real Racing 3 - Freemium csoda
- Luck Dragon: Asszociációs játék. :)
- gban: Ingyen kellene, de tegnapra
Ú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
- Autós topik
- Bluetooth hangszórók
- iPhone Ultra néven jöhet az Apple első foldja, nem lesz olcsó mulatság
- Nintendo Switch 2
- Genshin Impact (PC, PS4, Android, iOS)
- HiFi műszaki szemmel - sztereó hangrendszerek
- E-roller topik
- Synology NAS
- TCL LCD és LED TV-k
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- További aktív témák...
- DJI Mini 3 RC drón szett - újszerű állapotban, táskával
- Asztali PC , i7 9700 , RX 6600 XT , 16GB DDR4 , 512GB NVME , 1TB HDD
- Microsoft Xbox Series X 1TB Játékkonzol 2 konti (kiegészítőkkel)
- ZBook Fury 17 G7 17.3" FHD IPS i7-10850H RTX 3000 32GB 512GB NVMe ujjolv IR kam gar
- iPhone 13 512GB 100% (1év Garancia)
- iPhone 14 Pro Max 256GB 100% (1év Garancia)
- HIBÁTLAN iPhone 15 Pro 128GB Black Titanium-1 ÉV GARANCIA - Kártyafüggetlen, MS4660
- BESZÁMÍTÁS! ASUS TUF GeForce RTX 3080 Ti 12GB videokártya garanciával hibátlan működéssel
- Lenovo T14s Gen 1 i5 10. gen., 16GB RAM, 256-512GB SSD, jó akku, számla, 6 hó gar
- GYÖNYÖRŰ iPhone 14 Pro Max 128GB Deep Purple - 1 ÉV GARANCIA -Kártyafüggetlen, MS3702
Á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
