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

• #7546 motinka tag Fire/SOUL/CD #7536

  Új Válasz 2010-07-10 23:16:41 #7546

  Ú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 Fire/SOUL/CD #7536 üzenetére

  köszönöm Neked is!

  ha nem haragszatok a kettőből csináltam egyet, remélem nagyon nem rontottam el, működik:

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

  If Not Intersect(Range("HIÁNY"), Range(Target.Address)) Is Nothing Then
  Range("A11").Select
  Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 1)
  Selection.AutoFilter Field:=9, Criteria1:="="
  End If

  If Target.Address = "$D$9" Then
  Selection.AutoFilter Field:=5
  Selection.AutoFilter Field:=9
  End If

  End Sub

  Így csak a D9 cella hozza vissza az összeset.

  Azt még persze jó lenne, hogy (mivel többen is dolgozunk ebben a táblázatban) bizonyos cellákat / oszlopokat/ tartományokat írásvédetté lehetne tenni.
  Próbáltam a lapvédelem/ zárolt cellák pipa kivét módszerrel de akkor e VB nem működik.
  Esetleg ha erre is tudtok valamit.

  köszi

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