automatisch filteren bij openen blad

[avesoft]

Goede Morgen.

Ik heb een verzoek omtrent automatisch filteren zodra een blad zichtbaar gemaakt word en daarna alleen de zichtbare rijen geprint moeten worden
Ik heb een bestandje in elkaar geknutseld en nu kom ik tot punt waarna ik jullie hulp voor nodig heb.
Ik zal het proberen uit te leggen.

1. Zodra ik een blad open zal op aantal ingevulde datums in kolom E gefilterd moeten worden vanaf rij 6.
2. Kolom A staan de aantallen vermeld waar het om draait vanaf rij 6, aantallen kunnen wijzigen.
3. In rijen waar geen datum in staat zal zichtbaar moeten blijven.
4. Onder aan kolom A staat nog een formule waarmee ik ook moet werken omdat deze vraag een onderdeel van een groter bestand is.
5. Door een User form zullen dan kolommen verborgen worden.
6. Zodra deze verborgen zijn moet door knop printen in User form een printpreview zichtbaar worden.
7. Zodra dit goed op pagina afgedrukt kan worden zal dit geprint moeten worden, daarna zal filter er af moeten.

Ik hoop dat jullie mij hiermee kunnen helpen.

[ATTACH]314971.vB[/ATTACH]

 

[Cobbe]

Zet dit in ThisWorkbook voor het eerste gedeelte van je vraag:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Range("$A$6:$AW$500").AutoFilter Field:=5, Criteria1:="<>"
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
ActiveSheet.ShowAllData
End Sub

En laat dan weten wat er verder moet gebeuren.

 

[avesoft]

Hallo Cobbe.

Dank je voor snelle reactie.

Werkt goed, maar de aantallen van rijen bij div bladen zijn meer dan 500 en kunnen veelal veranderen.
Dit bestandje is maar een deel van groter bestand.

Gr Arie

 

[Cobbe]

Is dit dan iets beter?

 

[avesoft]

Cobbe.

Werkt heel goed :thumb:,
Ik ben er verder mee aan het stoeien.
Ik heb het een en ander aangepast, blijkt omdat ik lijst niet kan bewerken zodra ik blad open.(niet bij stil gestaan)
Ik moet het nog wat optimaliseren/aanpassen en zal reageren als het voor mij goed werkt.


Alvast bedankt.

Zie bestandje.Bekijk bijlage kolommen verbergen(cobbe)1.xlsb

Gr Arie.

Iedereen beste wensen voor 2018.