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

• #39235 Delila_1 veterán tgumis #39234

  Új Válasz 2018-09-27 16:12:32 #39235

  Ú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 tgumis #39234 üzenetére

  Rendeld a laphoz ezt a makrót.

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$1" Then
Application.EnableEvents = False
Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:=Target

Range("A1").CurrentRegion.Offset(1).Select
Selection.SpecialCells(xlVisible).Delete shift:=xlUp
ActiveSheet.Range("$A$1:$F$1").AutoFilter Field:=1
Application.EnableEvents = True
Range("A2").Select
End If

If Target.Address = "$N$1" Then
Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:=Target
End If
End Sub

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