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

• #52271 Delila_1 veterán Morphy #52270

  Új Válasz 2024-03-06 06:46:49 #52271

  Ú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 Morphy #52270 üzenetére

  Próbáld így:
  Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$1" Then kereses Target.Value
End Sub

  Sub kereses(keres)
    If keres = "" Then
        ActiveSheet.ListObjects("adatbazis").Range.AutoFilter Field:=41
    Else
        ActiveSheet.ListObjects("adatbazis").Range.AutoFilter Field:=41, Criteria1:=keres
    End If
End Sub

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