Hirdetés
- Luck Dragon: Asszociációs játék. :)
- balojazz: Szódakészítés üzembiztosan és olcsón! Figyelem, csak hardcore szódázóknak!
- sziku69: Fűzzük össze a szavakat :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- suste: Openwrt Barrier Breaker 14.07 saját verzió Tp-link routerekre
- Őskoczka
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- gban: Ingyen kellene, de tegnapra
- MasterDeeJay: Harc a DDR5 árak ellen (sodimm asztali gépben 1. rész)
- Elektromos rásegítésű kerékpárok
-
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
-
Fferi50
Topikgazda
válasz
rovgab
#52855
üzenetére
Szia!
1. Kézzel: Kijelölöd a teljes területet amit szűrni kívánsz, szűrés nélkül- Ezután lapelrendezés - nyomtatási terület kijelölése. A szűrő alkalmazás után csak a látszó területet fogja nyomtatni.
Természetesen ezt minden munkalapon meg kell csinálnod.
2. Makróval:
Ha az A1 cellától kezdődik a területed:
ActiveSheet.PageSetup.PrintArea=Range("A1").CurrentRegion.Address
Ha nem az első sortól, akkor a terület első celláját kell beírnod, pl. A5 ha az ötödik sortól kezdődik. FONTOS a terület legyen "leválasztva", azaz előtte - utána legyen üres sor, illetve üres oszlop ha nem az első oszlopban kezdődik (pl. D5, akkor a 4. sor és a C oszlop legyen üres, A1 helyére D5 kerüljön a makróba).
Ezután bármilyen szűrés esetén csak az adott tartományban látható sorok kerülnek kinyomtatásra.
ActiveSheet helyére írhatod ezt is Sheets("név"), ezáltal bármelyik munkalap nyomtatási területét beállíthatod, anélkül, hogy át kellene váltanod rá.
Remélem sikerülni fog.
Üdv.
Új hozzászólás Aktív témák
- Robotporszívók
- Bittorrent topik
- AMD Navi Radeon™ RX 9xxx sorozat
- Autós topik
- Poco F8 Pro – titkos favorit lehet belőle
- A fociról könnyedén, egy baráti társaságban
- Villanyszerelés
- Apple iPhone 17 - alap
- Modding és elektronikai kérdések
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- PC Játékok
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Használt 1TB NVME SSD-k.
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- 27% - iiyama ProLite XUB2763QSU-B1 IPS Monitor! 2560x1440 / 100Hz / 2ms / FreeSync
- Telefon felváráslás!! Xiaomi Redmi Note 11, Xiaomi Redmi Note 11 Pro, Xiaomi 11 Lite
- Lenovo L13 G4 Core i5-1335U 10 mag 12 szál 16Gb Ram 256Gb NVMe Touch Boltból Számlával Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50