- Bemutatkoztak a be quiet! Light Base 500 szériás, kábeleket rejtő házai
- A Chieftec néhány terméke fehér köntöst öltött
- Sokkal drágább lett az „olcsó” Tesla, mint várták
- Egy fontos tényező akadályozhatja a csúcstechnológiás chipgyártást az USA-ban?
- Visszatért a mítosz, a legenda, a világ leghasznosabb terméke!
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Házimozi haladó szinten
- Nvidia GPU-k jövője - amit tudni vélünk
- Milyen processzort vegyek?
- Milyen belső merevlemezt vegyek?
- Videószerkesztés
- Fejhallgató erősítő és DAC topik
- Amazon Kindle
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Mi történik a szemeddel, ha napi 8 órát monitort nézel? | Orvos válaszol
Hirdetés
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)
Ú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
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- LEGO klub
- One otthoni szolgáltatások (TV, internet, telefon)
- Házimozi haladó szinten
- Nvidia GPU-k jövője - amit tudni vélünk
- Sokkal drágább lett az „olcsó” Tesla, mint várták
- Apple iPhone 17 Pro Max – fennsík
- Vigneau interaktív lokálblogja
- Milyen processzort vegyek?
- Mibe tegyem a megtakarításaimat?
- További aktív témák...
- HP EliteBook 650 G9 12. generációs i5 / 16GB RAM / 256GB SSD / FHD
- Eladó Macbook Pro mid-2019 i5 8GB RAM 256 GB tárhely 4 thunderbolt
- Lenovo ThinkPad E15 (20RD) i5 / 8 GB / 256 GB SSD / Full HD IPS
- új állapotó, Apple AirPods 4, 1 év garancia
- új, makulátlan állapotú, Apple iPad 11" 2025 128GB WiFi Ezüst, 1,5 év garancia
- PS4 Pro 1TB + DualShock 4 Controller Játékkonzol
- Dell Latitude 7440 -14"FHD+1 IPS - i5-1345U 16GB - 512GB - Win11 - 1 év garancia + Dokkoló + 240W DC
- Gamer egerek és billentyűzetek kitűnő árakon!
- SzinteÚJ! HP Elitebook 860 G10 i7-1355U 16GB 1000GB 16" FHD+ Gar.: 1 év
- ÁRGARANCIA!Épített KomPhone i5 10400F 16/32GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest