-
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
-
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

-
Helló !
Egy olyan kérdésem lenne,hogy van egy táblázatom, melynél az első munkalapon viszem be az adatokat, (Név, Cim, és több oszlopon keresztül tulajdonságok számokkal értékelve). A 2.Munkalapra kerülnek ezek az adatok, de a számokból egy súlyozott indexet csinálok, és ezen indexek szerint szeretném csökkenő sorrendbe tenni őket.
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.
Makróval kell, arra rájöttem, de az istenért nem akar működni :\Köszönöm.
Új hozzászólás Aktív témák
- One otthoni szolgáltatások (TV, internet, telefon)
- AMD vs. INTEL vs. NVIDIA
- Trollok komolyan
- Azonnali alaplapos kérdések órája
- Fejhallgató erősítő és DAC topik
- Amit látnod kell 80’ – 90’ évek, egész estét betöltő mozi filmjei.
- Apple asztali gépek
- World of Warships
- Milyen billentyűzetet vegyek?
- Hobby elektronika
- 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!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- PC Game Pass előfizetés
- KÜLÖNLEGES RITKASÁG! VADIÚJ Microsoft Surface Pro 12 12" Snapdragon X Plus 16GB 512GB LEVENDULA 686g
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 9070 XT 16GB GAMER PC termékbeszámítással
- Samsung Galaxy Tab A9+ 128GB,Újszerű,Dobozaval,12 hónap garanciával
- szinteÚJ Dell Pro 14 Ultra 7 255U 16GB DDR5 1TB AI PC FHD+ 1 év garancia
- BESZÁMÍTÁS! ASRock A520M R5 3600 16GB DDR4 512GB SSD GTX 1060 6GB ZALMAN T3 Plus Deepcool 400W
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

Fferi50