Hirdetés
- Soundbar, soundplate, hangprojektor
- Azonnali informatikai kérdések órája
- Projektor topic
- Harcba és Rómába vezet az új AMD Software
- 5.1, 7.1 és gamer fejhallgatók
- Steam Deck
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Ez a tágas mikrotorony már faberakással is választható
- Akciókamerák
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
-
PROHARDVER!
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
- Black Friday november 29. / Cyber Monday december 2.
- Soundbar, soundplate, hangprojektor
- Kuponkunyeráló
- Azonnali informatikai kérdések órája
- iPhone topik
- Kerékpárosok, bringások ide!
- GoodSpeed: Alza+ Megéri?
- Projektor topic
- Garancia kérdés, fogyasztóvédelem
- Harcba és Rómába vezet az új AMD Software
- További aktív témák...
- Xiaomi Redmi Note 13 512GB, Kártyafüggetlen, 1 Év Garanciával
- VADIÚJ Bontatlan! Honor 400 Lite 8/256 AMOLED 120Hz Velvet Grey, Dual SIM 2év gar
- IKEA Format lámpák eladóak (Egyben kedvezménnyel vihető!)
- 365 NAPRA RÉSZLETRE BANKMNETES KAMATMENTES , GAMER PC ,LAPTOPOK , GAMER SZÉKEK , GAMER MONITOROK
- GYÖNYÖRŰ iPhone 14 128GB Starlight -1 ÉV GARANCIA -Kártyafüggetlen, MS3677
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

Fferi50

