Új hozzászólás Aktív témák

• #17825 Mutt senior tag koxkids #17813

  Új Válasz 2013-04-17 23:00:41 #17825

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

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

• #17822 Mutt senior tag koxkids #17797

  Új Válasz 2013-04-17 21:42:08 #17822

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Mutt

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

• #17813 koxkids őstag koxkids #17797

  Új Válasz 2013-04-17 19:14:03 #17813

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  koxkids

  ő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

• #17798 koxkids őstag koxkids #17797

  Új Válasz 2013-04-16 23:29:14 #17798

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  koxkids

  őstag

  válasz koxkids #17797 üzenetére

  Megoldva

Új hozzászólás Aktív témák