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

• #19906 Delila_1 veterán Hauptmann #19903

  Új Válasz 2014-01-02 15:27:46 #19906

  Ú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 Hauptmann #19903 üzenetére

  Próbáld így:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
  Cells(1).Select: Selection.CurrentRegion.Select
  Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
  xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
  End If
  End Sub

  A helyedben nem az első oszlopba történő beíráshoz rendelném a rendezést, hanem az utolsóhoz, ami az esetedben a hatodik (F). Még azt is beletenném, hogy a következő sor elejére ugorjon a fókusz.

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 6 Then
  'Rendezés
  Cells(1).Select: Selection.CurrentRegion.Select
  Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
  xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
  DataOption1:=xlSortNormal
  
  'Első üres sor A oszlopába állás
  Range("A" & WorksheetFunction.CountA(Columns(1)) + 1).Select
  End If
  End Sub

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