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

  • 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

Hirdetés