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

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.