Telefonszámunk: 1-472-0679

Hozzászólás: [Resolved] Beosztás táblázat szűrése

Kezdőlap Fórumok Excel témák [Resolved] Beosztás táblázat szűrése Hozzászólás: [Resolved] Beosztás táblázat szűrése

#3976
delila
Felhasználó

    Szia!

    Ehhez makró kell, mégpedig kettő. Az elsőt a Beosztás laphoz kell rendelned: lapfülön jobb klikk, Kód megjelenítése. Ezzel bejutottál a VB szerkesztőbe, ott is a lapod kódlapjához. A jobb oldalon lévő üres területre bemásolod a lenti makrót.

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, [C:O]) Is Nothing And _
            Application.WorksheetFunction.CountA(Range("C" & Target.Row & ":O" & Target.Row)) > 1 Then
            AutoSzuro
        End If
    End Sub

    Ez a makró figyeli a billentyűzetről történő bevitelt. Ha a bevitel a C:O oszlopok valamelyik sorába történt, meghívja a másik makrót (AutoSzuro), amit modulba másolsz: A VB szerkesztőben állva bal oldalon kijelölöd a füzetedet, majd Insert menü, Module hatására új, üres modult kapsz. A jobb oldalon kapott újabb üres felületre bemásolod:

    Sub AutoSzuro()
        Dim usor As Long
        
        usor = Sheets("BB Szolgálati hely").Range("C" & Rows.Count).End(xlUp).Row
        Sheets("BB Szolgálati hely").Range("$C$27:$R$" & usor).AutoFilter Field:=1, Criteria1:="<>"
    End Sub

    A 2. lapon a C:O képleteit tovább kell másolnod lefelé!
    Az első lap BB Szolgálati hely táblázatot a helyedben a mostani helyzetéből átmozgatnám fel és jobbra, hogy a bal felső cellája a Q1 legyen, másképp összecsúszik a két táblázat.

    A makrók beírása után a füzetedet másként, makróbarátként kell elmentened.