- Depression: Hardver rúzs effektus?
- Brogyi: CTEK akkumulátor töltő és másolatai
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Ndruu: Segíts kereshetővé tenni a PH-s arcképeket!
- Pajac: Nincs rá kapacitásom
- sziku69: Fűzzük össze a szavakat :)
- total90: SSD és HDD árak 2026-ban – most kell vásárolni, vagy várni 2028-ig?
- hcl: Eszelős szívatás : kijelzőtükrözés 2026
- D@reeo: Pi-hole és a Telekom Sagemcom F@st 5670 DNS beállítása
- sziku69: Szólánc.
-
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
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Arc Raiders
- MW2 - MW3 játékosok baráti köre
- PCI Express 7.0 – Brutális sebesség, de minek?
- Renault, Dacia topik
- ZIDOO médialejátszók
- Garmin Edge 1050 kerékpáros óra: mindenből a legtöbbet
- World of Tanks - MMO
- Fejhallgató erősítő és DAC topik
- Depression: Hardver rúzs effektus?
- További aktív témák...
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Bioshock 2 Special Edition
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Eladó Apple iPhone 11 Pro Max 64GB Arany / 12 hónap jótállás
- Xiaomi 15T Pro 512GB, Kártyafüggetlen, 1 Év Garanciával
- HIBÁTLAN iPhone 12 mini 64GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3818
- Apple iPhone 13 Pro Max 256GB,Átlagos,Dobozaval,12 hónap garanciával
- Akció! ÚJ akku! Lenovo ThinkPad X1 Extreme Gen2 i7-9850H 32GB 1000GB GTX1650 500nit 4K UHD 1 év gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50