Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

regels verbergen als er in een rij 1 bepaald veld leeg is

681 views
Skip to first unread message

Gerard

unread,
May 30, 2010, 7:14:01 AM5/30/10
to
Beste forum leden.
Ik heb een Excel bestand gemaakt die bestaat uit meerdere sheets.
Er is 1 sheet die gevuld wordt met gegevens vanuit andere sheets.
in Dat ene sheet (sheet6) zitten dan regels die niet helemaal gevuld zijn .
Nu wil ik graag de lege regels verborgen hebben en ze moeten vanzelf
zichtbaar worden op het moment dat ze vanuit een andere sheet gevuld worden.
Als criterium moet er gekeken worden naar de velden in kolom G.
Ik weet dat het mogelijk is om dit met autofilter te doen. Maar ik wil het
graag zo hebben dat dat automatisch gebeurt. Volgens mij moet dit kunnen met
VBA.
Alleen ik ben absoluut niet thuis in vba. Dus als iemand mij kan helpen met
de volledige code zou ik daar ontzettend blij mee zijn. Ik gebruik Excel 2003

Maurrieske

unread,
May 30, 2010, 9:25:44 AM5/30/10
to
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...

0 new messages