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

• #8279 motinka tag perfag #8277

  Új Válasz 2010-09-26 10:32:01 #8279

  Ú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

  

  motinka

  tag

  válasz perfag #8277 üzenetére

  amúgy az a megoldás is működik, sőt...

• #8278 motinka tag perfag #8277

  Új Válasz 2010-09-26 10:21:17 #8278

  Ú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

  

  motinka

  tag

  válasz perfag #8277 üzenetére

  Köszi perfag ( és bocs a múltkori elírásért), közben aludtam egyet és az alábbi szerint működik ahogy szeretném:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("E3"), Range(Target.Address)) Is Nothing Then
  Range("E2").Select
  Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 5)
  End If
  End Sub

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Address = "$E$2" Then
  Range("E3") = ""
  Range("E3").Select
  Selection.AutoFilter Field:=5
  End If
  End Sub

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