-
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
-
Mutt
aktív tag
válasz koxkids #17813 üzenetére
Hello,
Ő ugye bármilyen változásra lefut, hogy lehetne, hogy csak akkor fusson le, ha lent átváltok a Munka2-re?
Ahogy írod is a Workbook_SheetChange esemény minden alkalommal lefut, amikor bármelyik lapon változás történik.Neked a Munka2-es lap Activate eseményére kell tenned a kódot.
Private Sub Worksheet_Activate()
<kódod>
End Sub
ü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
- Az Xbox Series X|S konzolnak három új verziója jön idén
- Kés topik
- Samsung Galaxy A54 - türelemjáték
- Telekom mobilszolgáltatások
- Eredeti játékok OFF topik
- OFF TOPIC 44 - Te mondd, hogy offtopic, a te hangod mélyebb!
- OLED TV topic
- Milyen cserélhető objektíves gépet?
- EAFC 24
- exHWSW - Értünk mindenhez IS
- További aktív témák...
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eladó Steam kulcsok kedvező áron!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen