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

• #7532 Delila_1 veterán motinka #7531

  Új Válasz 2010-07-10 06:09:09 #7532

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

  Ha már Fire megígérte, tálalom a makrót.

  Tegyél autoszűrőt az A11:I11 tartományba, ahogy Fire is írta.

  A lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe, a jobb oldalon kapott üres lapra másold be:

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 4 And Target.Row > 2 And Target.Row < 9 Then
  Range("A11").Select
  Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 1)
  Selection.AutoFilter Field:=9, Criteria1:="="
  End If
  
  If Target.Address = "$H$1" Then
  Selection.AutoFilter Field:=5
  Selection.AutoFilter Field:=9
  End If
  End Sub

  Ezután a D3:D8 tartomány bármelyik cellájára duplán kattintva a lenti sorok közül azok látszanak, amiket kértél.
  Beleírtam, hogy a H1 duplaklikkjére minden adat látsszon az alsó táblázatban. Írhatsz is valami erre utaló szöveget a H1-be.

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