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

    PROHARDVER!

    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

  • #24373 slashing senior tag
    Új Válasz #24373
    Ú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

    slashing

    senior tag

    Makróval nálam ez így van megoldva:

    C oszlop az első legördülő listám ahol kiválasztom a szerszám számát. Ide van rakva egy Worksheet change:

    If Target.Column = 3 Then

    Sheets("Segédtábla").Range("E2") = Target
    Ervenyesites

    End If

    A kiválasztott szerszámot a segédtábla E2 cellájába másolja ész lefut az érvényesítés makró ami csinál egy szűrést egy 3 oszlopból és kb. 1000 sorból álló listából az E2 cella alapján:

    Sub Ervenyesites()

    Application.ScreenUpdating = False

    Set WS1 = Sheets("Segédtábla")
    Set WS2 = Sheets("Kritikus")

    WS1.Activate
    usor = Application.CountA(WS1.Columns(1))

    Range("A1:C" & usor).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
    "E1:E2"), CopyToRange:=Range("G1:H1"), Unique:=False

    WS2.Activate

    Application.ScreenUpdating = True

    End Sub

    Majd a G és a H oszlopba kiszűri az adatokat ahol szintén van névkezelővel adva egy dinamius tartomány amit a kiinduló táblázatuk következő két oszlopában le tudok nyitni de ez a kettő már az előzőleg kiválasztott szerszámhoz tartozik csak...

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