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

• #8251 Delila_1 veterán bnorci71 #8225

  Új Válasz 2010-09-23 12:30:18 #8251

  Ú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

  

  Delila_1

  veterán

  válasz bnorci71 #8225 üzenetére

  Tényleg elsiklottunk a régi kérdésed fölött.

  A laphoz kell rendelned egy makrót -> lapfülön jobb klikk, Kód megjelenítése. A képernyő jobb oldalán kapott üres lapra másold be:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column < 28 And Target.Row >= 2 And Target.Row < 15 And _
  Target.Column Mod 2 <> 0 Then
  Range("A1:AI14").Sort Key1:=Range("AI2"), Order1:=xlDescending, Key2:= _
  Range("AH2"), Order2:=xlDescending, Header:=xlYes, OrderCustom:=1, _
  MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, _
  DataOption2:=xlSortNormal
  End If
  End Sub

• #8227 perfag aktív tag bnorci71 #8225

  Új Válasz 2010-09-22 07:13:15 #8227

  Ú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

  

  perfag

  aktív tag

  válasz bnorci71 #8225 üzenetére

  Ötlet: makró rögzítéssel felveszed a sorba rendezést, valami ilyesmit kapsz:
  With ActiveWorkbook.Worksheets("Munka1").Sort
  .SetRange Range("E3:E7")
  .Header = xlNo
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
  End With
  Elvileg az Apply elvégzi a melót, ha nem, akkor tegyél alá egy .Calculate metódust.

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