Gerard, zet onderstaande code op het objectenblad (in de VBA editor zie je
van alle tabbladen een objectenblad terug in de projectverkenner) van het
sheet6.
Bedenk wel dat deze code alleen werkt zodra je het sheet selecteert
(activeert eigenlijk). Indien er een situatie is waarbij toch data
toegevoegd wordt in sheet6 terwijl je op sheet6 staat met de celwijzer zul
je ook nog andere code moeten gebruiken.
Ik kan ook niet beoordelen of in kolom G (de filterkolom) formules staan die
verwijzen naar cellen op andere tabbladen. Indien dat het geval is zul je de
formules moeten aanpassen zodat de celinhoud in kolom G "" wordt indien de
cel waarnaar verwezen wordt ook leeg is.
Indien je er niet uitkomt mag je mij het bestand ook mailen. Dan zal ik er
naar kijken.
Private Sub Worksheet_Activate()
ActiveSheet.AutoFilterMode = False
Columns("G:G").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Range("G1").Select
End Sub
Groetjes
Maurrieske
"Gerard" <Ger...@discussions.microsoft.com> schreef in bericht
news:A045CF2E-CCB2-4572...@microsoft.com...