Ú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

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