-
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$5Majd 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
- 228 - Lenovo LOQ (15IRX10) - Intel Core i7-13650HX, RTX 5060
- 218 - Lenovo ThinkBook 16p (G5 IRX) - Intel Core i9-14900HX, RTX 4060
- Xiaomi Redmi Note 14 6/128GB fekete / 2028.01.12 - ig jótállás
- Akció!!! Sosemhasznált! HP OmniBook 5 i7-1355U 16GB 512GB 16" FHD+ Gar.: 1 év
- iPhone 17 Pro 256 GB Kozmosz - Bontatlan !! www.stylebolt.hu - Apple eszközök - Számlás
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50