Macro zoeken

[JosEindhoven]

Beste experts


Ik heb een sheet "gegevens" met 10 kolommen (A t/m J) en daarin gegevens

Nu wil ik in kolom I het woord "nvt" zoeken

Is het mogelijk om alleen de rijen met het woord "nvt" te tonen en de rest van de rijen te verbergen middels een MACRO

Zo ja, wat is hiervoor de code

Het totaal rijen is ongeveer 300

Ik krijg het wel via een filter voor elkaar maar niet via een macro

 

[edmoor]

Neem er een macro voor op of plaats een voorbeeld document.

 

[SjonR]

zo?

Cells(1).CurrentRegion.AutoFilter 9, "nvt"

 

[Jack Nouws]

 Blad1.Cells(1).CurrentRegion.AutoFilter 9, "nvt"

 

[JosEindhoven]

Hallo Jack en Sjon

Inderdaad ,dit was hem. Alleen als ik het bestand sluit en weer open blijft het filter erop staan en zie ik niet alle gegevens. Deze haal ik dan weer tevoorschijn met het autofilter wat er opstaat.

 

[Jack Nouws]

filter uit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Blad1.AutoFilterMode = False
End Sub

 

[JosEindhoven]

Hallo Jack

Werkt perfect, Dankjewel

De macro zoekt inderdaad de hele kolom door. Is het ook mogelijk dat hij pas van de 2e rij begint te zoeken.? Dan blijven mijn kopteksten staan

 

[Jack Nouws]

Bedoel je zo?

Blad1.Cells(1).CurrentRegion.Offset(1).AutoFilter 9, "nvt"

 

[JosEindhoven]

Inderdaad, helemaal goed.
Alleen sluit ik het bestand af met het filter uit. Als ik het bestand weer opstart en naar desbetreffende sheet ga is het filter boven de 10 kolommen verdwenen en moet ik het handmatig weer terug zetten.

 

[Jack Nouws]

Zo...in workbook open?

Private Sub Workbook_Open()
  Blad1.Cells(1).CurrentRegion.Offset(1).AutoFilter
End Sub

 

[JosEindhoven]

Helemaal goed. Bedankt Jack, hier kan ik mee verder. TOP

 

[HSV]

Waarom zet je deze code ....

 If Blad1.FilterMode Then Blad1.ShowAllData

...niet in de before_close?
Heb je geen code nodig bij het openen.

 

[JosEindhoven]

Hallo Harry
Zie jouw opmerking nu pas
Dit geprobeerd en werkt ook prima.

Bedankt voor het meedenken

 

[VenA]

De macro zoekt inderdaad de hele kolom door. Is het ook mogelijk dat hij pas van de 2e rij begint te zoeken.? Dan blijven mijn kopteksten staan

Lijkt mij raar dat de kopteksten verdwijnen bij het gebruik van het filter.

 

[HSV]

Dubbele rij kopteksten waarschijnlijk.