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

• #28453 bsh addikt spe88 #28451

  Új Válasz 2015-09-04 14:08:12 #28453

  Ú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

  

  bsh

  addikt

  válasz spe88 #28451 üzenetére

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
  On Error Resume Next
  Dim x As Boolean
  x = Columns(1).AdvancedFilter(xlFilterCopy, Columns(1), Columns(2), True)
  x = Columns(2).Sort(Columns(2), xlAscending)
  On Error GoTo 0
  End If
  End Sub

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