- Megérkezett a Google Pixel 7 és 7 Pro
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Okosóra és okoskiegészítő topik
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- iPhone topik
- Samsung Galaxy S25 - végre van kicsi!
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
- Huawei Mate 10 Pro - mestersége az intelligencia
- Google Pixel topik
- Szuperkijelzővel készül a Huawei Mate 80 RS
Hirdetés
-
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
-
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
Hirdetés
- Kertészet, mezőgazdaság topik
- Kuponkunyeráló
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Megérkezett a Google Pixel 7 és 7 Pro
- Milyen egeret válasszak?
- A lemondást javasolja az Intel vezetőjének Donald Trump
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Lopakodva befutott a Radeon RX 9060
- Villanyszerelés
- HÁZIMOZI / HIFI / TV beárazás
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Lenovo Thunderbolt 3 kábel (4X90U90617)
- BESZÁMÍTÁS! MSI B450M R7 1700X 16GB DDR4 128GB SSD 1TB HDD GTX 1650 Super 4GB Zalman T7 Chieftec 400
- Bomba ár! Lenovo ThinkPad X250 - i7-5GEN I 8GB I 256GB SSD I 12,5" HD I Cam I W10 I Garancia!
- Eladó karcmentes Honor 20e 4/64GB / kék / 12 hó jótállással
- MacBook, Apple M1 / M2 kompatibilis dokkolók, DisplayLink 4K, USB-C, Type-C
Állásajánlatok
Cég: FOTC
Város: Budapest