Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #7536 Fire/SOUL/CD félisten Delila_1 #7535
    Új Válasz #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... :R
    Bocsi, nem magam helyett akarlak "dolgoztatni", csak már nem volt akkor lelkierőm nekiállni... :DDD

    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... :DDD

    Fire.

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