- iPhone topik
- Honor Magic8 Pro - bevált recept kölcsönvett hozzávalókkal
- Telekom mobilszolgáltatások
- Kiszivárgott a Pixel 10a specifikációja
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Soundcore Sleep A30 - a hosszú házasság titka
- Új lapkakészlettel frissített a Vivo V60 Lite
- Megérkezett Európába az Oppo vékony órája
- One mobilszolgáltatások
- Nemzetközi vizekre evezett a Realme GT 7 és GT 7T
-
Mobilarena
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
- Arc Raiders
- Fejhallgató erősítő és DAC topik
- Anglia - élmények, tapasztalatok
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Kormányok / autós szimulátorok topikja
- Autós kamerák
- Nintendo Switch 2
- VGA kibeszélő offtopik
- Gaming notebook topik
- Elvonult a zimankó, de a hardverek nem mennek sehová
- További aktív témák...
- BESZÁMÍTÁS! HP Elitedesk 800 G4 SFF brand számítógép - i5 8500 16GB DDR4 256GB SSD UHD630 250W WIN11
- Owl Labs Owl Bar 4K Videokonferencia Rendszer FRS100
- ÁRGARANCIA!Épített KomPhone Ryzen 7 9800X3D 32/64GB RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
- BESZÁMÍTÁS! ASUS ROG B760 i9 14900K 32GB DDR5 1TB SSD Asus ROG RTX 3090 24GB Zalman Z1 1000W
- Telefon felvásárlás!! Apple Watch Series 9/Apple Watch Ultra/Apple Watch Ultra 2
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50

