- Apple iPhone 17 - alap
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Google Pixel topik
- Honor 200 - kétszázért pont jó lenne
- Apple iPhone Air - almacsutka
- Nagyon apró félokos a HMD új mobilja
- Samsung Galaxy S23 Ultra - non plus ultra
- Milyen GPS-t vegyek?
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- One mobilszolgáltatások
Ú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
- EA Sports WRC '23
- Sütés, főzés és konyhai praktikák
- exHWSW - Értünk mindenhez IS
- Jövőre jósolják a memóriahiányt, ami egy évtizedig is fennmaradhat?
- E-roller topik
- Óvodások homokozója
- Kamionok, fuvarozás, logisztika topik
- Apple iPhone 17 - alap
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Google Pixel topik
- További aktív témák...
- Playstation 5 lemezes 825GB CFI-1216A, újra fém pasztázva, 6 hónap garanciával, Bp-i üzletből eladó!
- MSI MEG Z-790 ACE alaplap + INTEL CORE I9 13900K proci + 32 GB DDR5 memória Félkonfig
- AFOX GTX 1050 Ti 4GB GDDR5
- Lenovo Tab P11 Pro 2. Gen. Billentyűzet és Tok - Szürke
- GLORIOUS Aura 145-KEY Mechanical Keycaps - White
- Telefon felvásárlás!! Honor 200 Lite, Honor 200, Honor 200 Pro, Honor 200 Smart
- HIBÁTLAN iPhone 12 mini 64GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3454, 94% Akkumulátor
- HIBÁTLAN iPhone 13 Pro Max 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3521
- BESZÁMÍTÁS! Apple Macbook Pro 16" 2019 i7 16GB 500GB 5300M 4GB macbook garanciával hibátlan működés
- AKCIÓ! Lenovo Thinkpad T14 Gen 5 üzleti - Ultra 7 165U 16GB DDR5 512GB SSD Intel Graphics WIN11
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest