-
Fototrend
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
-
ny.janos
tag
válasz
tombar #39970 üzenetére
Szia!
Olyan megoldást, melyre te gondolsz (ha jól értem), hogy egy adott cella értékét megváltoztatod, és azzal mintegy automatikusan megváltozik a szűrt állomány, véleményem szerint (makró nélkül - amihez én nem értek) nem tud az excel. Ugyanakkor:
1. használhatod a speciális szűrést, ahol könnyedén változtathatod az értéket.
2. beszúrhatsz egy segédoszlopot, melyben vizsgálod a szűrendő értéked a kívánt értékedet tartalmazó cellához képest (ha a szűrendő tartományod B oszlop, a fix értéked pedig B5, akkor a képlet a segédoszlopban:=$B1>$B$5
Majd a segédoszlop igaz értékeire szűrsz.A szűrést mindkettő esetben frissítened kell, ha változik az összehasonlítási alapul szolgáló értéked.
-
m.zmrzlina
senior tag
válasz
tombar #24488 üzenetére
Sub masol()
Range("A1:G1").Copy
elsoures = Worksheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets("Munka2").Range("A" & elsoures).PasteSpecial Paste:=xlPasteAll
End SubAz első sor kijelöli a másolni kívánt tartományt (ez nyilván nálad teljesen más)
A második megadja, hogy a Munka2 munkalap A oszlopának melyik az első üres cellája
A harmadik odamásolja a kijelölt tartományt.Meg lehet csinálni egy utasításban is:
Worksheets("Munka2").Range("A" & Worksheets("Munka2").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteAll
Ugyanaz az eredmény csak az első valamennyivel átláthatóbb.
Új hozzászólás Aktív témák
- Árváltozás + játék DVD: Watch Dogs Deadsec Edititon
- Stalker Clear Sky Limited Collector's Edition
- Calman Home for LG licenc (PGenerator támogatással) ÚJ ára 66.000 Ft.
- Árváltozás: Deus Ex Human Revolution Collector's Edition
- AKCIÓ! Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Samsung Galaxy S25 Ultra Titanium Jetblack Titán dizájn, 120 Hz AMOLED, AI Pro kamera
- Új és újszerű 13-14 Gamer, ultrabook, üzleti, 2in1, X360, Touch készülékek kedvező áron Garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Acer Nitro 5 AN515 I7 9 gen 32 gb 1650
- Új Razer 16 QHD+ OLED 240Hz i9-14900HX 24mag 32GB 2TB SSD Nvidia RTX 4090 16GB 175W Win11 Garancia
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Laptopműhely Bt.
Város: Budapest