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

• #36956 Delila_1 veterán p5quser #36955

  Új Válasz 2018-01-12 19:32:29 #36956

  Ú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 p5quser #36955 üzenetére

  A ThisWokrbook laphoz rendelve

  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name > "Munka1" Then
ActiveSheet.Range("$A$1:$N$316").AutoFilter Field:=11, Criteria1:=">1", _
Operator:=xlOr, Criteria2:="<-1"
End If
End Sub

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