Hirdetés
- Luck Dragon: Asszociációs játék. :)
- urandom0: Száműztem az AI-t az életemből
- MasterDeeJay: Harc a DDR5 árak ellen
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- GoodSpeed: Harcban az adathalászokkal - az AI tud segíteni?
- gban: Ingyen kellene, de tegnapra
- sziku69: Fűzzük össze a szavakat :)
- Elektromos rásegítésű kerékpárok
- droidic: [Memory Leak] Az agy defragmentálása
- GoodSpeed: 3I/Atlas: Üstökös vagy idegen civilizáció űrhajója?
-
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
- Újra Realme telefont tervezett Fukaszava Naotó
- Derült égből villámcsapás: vége a Ford elektromos kalandjának
- Spórolós topik
- És akkor a memóriapánik után beköszöntött a HDD-pánik
- One mobilszolgáltatások
- Billentyűzet-választó: mechanikus vs membrános – kinek melyik a jobb?
- Fujifilm X
- Mini-ITX
- PlayStation 5
- Íme az év legszebb játékai - a Digital Foundry szerint
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- MS SQL Server 2016, 2017, 2019
- Keresem a Barkács Balázs Játékokat
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
- Apple iPhone 13 Mini 128GB,Újszerű,Adatkabel,12 hónap garanciával
- BESZÁMÍTÁS! MSI X99A i7 5820K 16GB DDR4 240GB SSD 1TB HDD GTX 1050Ti 4GB Deepcool Ducase V2 600W
- Készpénzes / Utalásos Számítógép felvásárlás! Személyesen vagy Postával!
- iPhone 17 Pro Max Silver - Bontatlan !! www.stylebolt.hu - Apple eszközök és tartozékok !!
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50
