- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Luck Dragon: Asszociációs játék. :)
- norbx: IRC a 90-es évek és a 2000-es évek elején
- sziku69: Fűzzük össze a szavakat :)
- Candy: IGPU dGPU passthrough, avagy a nem minden arany, amin megy a Furmark
- Klaus Duran: Marathon
- sziku69: Szólánc.
- hcl: Samsung S21FE pakolás
- MasterDeeJay: Comet lake (10gen) és DDR3 - mert ilyet is lehet!
- Luck Dragon: Alza kuponok – aktuális kedvezmények, tippek és tapasztalatok (külön igényre)
-
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
- eMAG vélemények - tapasztalatok
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Luck Dragon: Asszociációs játék. :)
- Telekom mobilszolgáltatások
- Vicces képek
- Jövedelem
- Hobby rádiós topik
- Samsung Galaxy Felhasználók OFF topicja
- Goddess of Victory:Nikke
- További aktív témák...
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Dell Latitude 7410 Intel I7-10810U Refurbished - Garancia - Akció!
- HP Elitebook 850 G8 15,6" i5 1135 G7, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
- BESZÁMÍTÁS! Nintendo Switch OLED 64GB játékkonzol extrával garanciával hibátlan működéssel
- iKing.Hu - Apple iPhone 13 Pro Alpine Green ProMotion 120 Hz, Pro kamerák 128 GB-100%
- Kingston DDR3 ramok 4GB
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50