Rijen automatisch sluiten

[Bart1965]

Beste Excel vrienden,

Ik heb een bestand gemaakt waarin uiteindelijk een brief in Excel word gemaakt.
Ik heb een tabblad met teksten en een tabblad met gegevens. Aan de hand van de gegevens die worden ingevoerd wordt er een tekst in de brief geplaats. Als de tekst
niet nodig is dan blijft er een 1 in de cel staan.

Aan het eind heb ik een macro gemaakt die per regel kijkt of er een 1 in de cel staat.
is dit het gevalk dan sluit hij de rij. Zo loopt de macro alle regels af. Dit duurt vrij lang

Ik wil het eigelijk omkeren. Alle rijen zijn verborgen. In de rij waar geen 1 staat wordt
de rij gesloten. het gaat ongeveer om 150 rijen.

Wie heeft hiervoor een betere oplossing.

Voor de duidelijkheid mijn manier werkt wel alleen denk ik dat het handiger kan.

Bart

 

[Wim1960]

Waarom heb je dit helemaal in excel gebouwd.

Een document in Word bouwen lijkt me veel eenvoudiger en sneller.

Bij afdruk samenvoegen kan je ook afhankelijk van de vulling van een veld een tekst wel of niet laten zien.

 

[leofact]

Het lijkt me dat wim1960 helemaal gelijk heeft.

Wil je toch door met je macro, dan kun je deze ws een stuk sneller laten lopen, door te beginnen met

Application.EnableEvents = False
Application.ScreenUpdating = False

Aan het eind van de macro weer op true zetten.

mvg leo

 

[Bart1965]

De vraag is dan hoe krijg ik de gegevens naar
een Word bestand.

Stel ik heb diverse regels die ik naar een word bestand
wil exporteren.

Wie weet dit?

Bart

 

[leofact]

Dat doe je met afdruk samenvoegen.
Uitleg