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

• #8276 motinka tag motinka #8264

  Új Válasz 2010-09-26 01:04:38 #8276

  Ú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 motinka #8264 üzenetére

  Egy régi megoldásotokat felhasználva majdnem megoldottam a problémámat, az alábbiakkal:

  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").Select
  Selection.AutoFilter Field:=5
  End If
  End Sub

  A vastagított rész akkor lenne igazán jó, ha ekkor erre a cellára ugrás után törölné annak tartalmát és aktiv cella lenne, azaz a kurzor benne van.
  Mit kell beleírni még ehhez?

  köszi előre is a választ

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