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

  • #7546 motinka tag Fire/SOUL/CD #7536
    Új Válasz #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