-
GAMEPOD.hu
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
-
őstag
válasz koxkids #17797 üzenetére
Mégis lenne egy kérdésem
Itt a sorbarendező kód:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveWorkbook.Worksheets("Munka2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Munka2").Sort.SortFields.Add Key:=Range("H1"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Munka2").Sort
.SetRange Range("B1:H322")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End SubŐ ugye bármilyen változásra lefut, hogy lehetne, hogy csak akkor fusson le, ha lent átváltok a Munka2-re?
Mert ha az Munka1-en írom be az adatok, zavaróan felvillan. Mintha átlátszana a Munka1-es lap, az adatok nekem ugyis csak akkor kellenek, ha megnézem a Munka2-t.Köszi
-
Mutt
aktív tag
válasz koxkids #17797 üzenetére
Hello,
Tehát amint írok be az első munkalapon új céget, a 2. munkalapon amint bekerül a sorok közé az új adat, automatikusan csökkenő sorrendben jelenjen meg.
Ha érdekel, akkor makró nélkül is meg lehet oldalni a NAGY (LARGE) függvény és vmilyen kereső függvény (FKERES, ELTOLÁS stb.) eltolásával is meg lehet oldalni.
Felraktam ide egy egyszerű példát, az első táblázatba felvitt értékeket a másodikban csökkenő sorrendben jeleníti meg.
üdv.
A tanácsaimat ingyen adom. Ha nem tetszik, akkor kérlek ne kritizáld! / https://github.com/viszi/codes/tree/master/Excel
Új hozzászólás Aktív témák
- Autós topik látogatók beszélgetős, offolós topikja
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Xbox tulajok OFF topicja
- Luck Dragon: Asszociációs játék. :)
- Óra topik
- Építő/felújító topik
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Milyen routert?
- Kerékpárosok, bringások ide!
- ZIDOO médialejátszók
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen