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

• #7536 Fire/SOUL/CD félisten Delila_1 #7535

  Új Válasz 2010-07-10 11:24:33 #7536

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Delila_1 #7535 üzenetére

  Hali!

  Na, most "tértem magamhoz", de látom -mind azt sejtettem- kész a kód...
  Bocsi, nem magam helyett akarlak "dolgoztatni", csak már nem volt akkor lelkierőm nekiállni...

  Látom a Target Row és Column tulajdonságával határoltad be a D3 : D8 cellákat. Ennek egy hátránya lehet(de csak lehet), ha a munkafüzetbe sorokat/oszlopokat szúrnak be vagy törölnek ki, hisz ilyenkor a kódon is újra módosítani kell.
  Épp ezért célszerű lenne a D3 : D8 cellákat tartományként kezelni és egy ilyen megoldást alkalmazni(X_TARTOMÁNY-nak neveztem el, ha tartományon belül duplaclick akkor szűr, ha tartományon kívül bárhol duplaclick, akkor nincs szűrés)

  Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
  If Not Intersect(Range("X_TARTOMÁNY"), Range(Target.Address)) Is Nothing Then
  Range("A11").Select
  Selection.AutoFilter Field:=5, Criteria1:=Cells(Target.Row, 1)
  Selection.AutoFilter Field:=9, Criteria1:="="
  Else
  Selection.AutoFilter Field:=5
  Selection.AutoFilter Field:=9
  End If
  
  End Sub

  Természetesen köszönöm az eddigi fáradozásodat, nem akarok "hálátlannak" tűnni, hogy így utólag még bele is "ugatok" a kódba, pusztán egy más megoldás...

  Fire.

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