Neviem, či som to dobre pochopil, lebo na overenie údajov má Excel svoj nástroj. Zrejme myslíš len to, aby sa po pridaní ďalšieho údaja automaticky vyfiltroval obsah podľa podmienky filtrácie.
V tom prípade jednoducho po zadaní nového údaja udalosťou Change hárka spustíš makro, ktoré skontroluje, či už je filter zapnutý alebo nie. Ak je zapnutý, tak ho vypne a následne opäť zapne, čím sa do filtra zapojí i rozšírenie o nový údaj. Ak je filter vypnutý, tak ho jednoducho zapne. Do modulu hárka, resp listu vlož tento kód (vzorec pre predefinovanie oblasti som použil môj posledný). Od toho momentu akonáhle budeš vpisovať nové údaje, po potvrdení zareaguje filter a budeš vidieť len filtrované údaje spĺňajúce podmienku. V tomto prípade je podmienka nastavená na hodnoty väčšie ako 10. Samozrejme si treba uvedomiť, že filter skrýva celé riadky, t.j. i prípadný obsah v iných stĺpcoch.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With ActiveSheet
If .AutoFilterMode = True Then
.Columns("A:A").AutoFilter
End If
.Columns("A:A").AutoFilter Field:=1, Criteria1:=">10"
End With
End Subcitovat
V tom prípade jednoducho po zadaní nového údaja udalosťou Change hárka spustíš makro, ktoré skontroluje, či už je filter zapnutý alebo nie. Ak je zapnutý, tak ho vypne a následne opäť zapne, čím sa do filtra zapojí i rozšírenie o nový údaj. Ak je filter vypnutý, tak ho jednoducho zapne. Do modulu hárka, resp listu vlož tento kód (vzorec pre predefinovanie oblasti som použil môj posledný). Od toho momentu akonáhle budeš vpisovať nové údaje, po potvrdení zareaguje filter a budeš vidieť len filtrované údaje spĺňajúce podmienku. V tomto prípade je podmienka nastavená na hodnoty väčšie ako 10. Samozrejme si treba uvedomiť, že filter skrýva celé riadky, t.j. i prípadný obsah v iných stĺpcoch.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
With ActiveSheet
If .AutoFilterMode = True Then
.Columns("A:A").AutoFilter
End If
.Columns("A:A").AutoFilter Field:=1, Criteria1:=">10"
End With
End Subcitovat
RSS nejnovější články