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

• #10983 Delila_1 veterán mr.nagy #10982

  Új Válasz 2011-07-29 08:07:29 #10983

  Ú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 mr.nagy #10982 üzenetére

  Igen, megoldható. A laphoz kell rendelned a kódot.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Range("A5").Select
  If Intersect(Range("A1"), Target) = "" Then Exit Sub
  If Not Intersect(Range("A1"), Target) Is Nothing Then _
  Selection.AutoFilter Field:=1, Criteria1:=Range("A1")
  End Sub

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