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
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.