Hirdetés
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- balojazz: Szódakészítés üzembiztosan és olcsón! Figyelem, csak hardcore szódázóknak!
- gban: Meghalt Chuck Norris
- GoodSpeed: Samsung DV90DG52A0ABLE hőszivattyús szárítógép
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
- aquark: Zsebszámológépek
- eBay-es kütyük kis pénzért
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
bela85
aktív tag
Egy újabb kérdés.. mivel makróban nem vagyok teljesen otthon...
Adott egy excelben levő nyomtatvány a munka1 lapon.. a B3 mezőbe szeretném a nevet írni, de úgy, hogy makróval a másik lapról a B2-tól ameddig van töltve az oszlop.
Makrórögzítővel elkezdtem (mivel leprogramozni nem tudom), frankón működik, de kéne bele egy for ciklus ami végigmegy a munka2 lap B2 cellájrától, hogy meddig van töltve a B oszlop.. és ismétli a makrot.

Tudna valaki segíteni benne?
Köszönöm előre is!
Sheets("Munka1").Select
Range("B3").Select
Selection.ClearContents
Sheets("Munka2").Select
Range("B2").Select
Selection.Copy
Sheets("Munka1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Munka1").Select
Range("B3").Select
Selection.ClearContents
Sheets("Munka2").Select
Range("B3").Select
Selection.Copy
Sheets("Munka1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Új hozzászólás Aktív témák
- Trollok komolyan
- Ventilátorok - Ház, CPU (borda, radiátor), VGA
- Motorola Moto G06 Power – nagyfater új zakót vett
- Luck Dragon: Asszociációs játék. :)
- Túraautó topik
- Külföldi prepaid SIM-ek itthon
- Robotporszívók
- sziku69: Fűzzük össze a szavakat :)
- World of Warships
- Jogász topik
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- MS SQL Server 2016, 2017, 2019
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- 10+ db - Lenovo LOQ (15IRX10) - Intel Core i7-13650HX, RTX 5060
- Dell Latitude 7290,12.5",FHD,i5-7300U,8GB DDR4,256GB SSD,WIN11
- HP 150W töltők (19.5V 7.7A) kis kék, kerek, 4.5x3.0mm
- HP ProBook 450 G8 15,6" i5 1135 G7, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
- GAMER PC! Intel Ultra 7 265 / RTX 5070 / 32GB 6000MHz / 1TB Gen4 / 750w Gold!
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50