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

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

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