Verwerken gefilterde regels AutoFilter

Status
Niet open voor verdere reacties.
A

AnnevdD

Verenigingslid
Lid geworden
8 mei 2007
Berichten
228
Met de VBA functie AutoFilter filter ik een aantal rijen uit een tabel. Visueel zie je dan alleen de gefilterde rijen, je kan de set gefilterde rijen ook kopieren en in een andere sheet plakken.
Maar ik wil graag in VBA de achtereenvolgende gefilterde rijen in de tabel kunnen benaderen om iets met die gegevens te doen.
Ik weet niet hoe ik dat kan regelen. Is er een mogelijkheid voor “lees-volgende-gefilterde-rij” of kan je per rij opvragen of die gefilterd is?
Graag advies.
 
Zonder voorbeeldbestand is helpen lastig.

Maar dit is een methode:
Filteren --> Alle regels aflopen, behalve de header(regel 1) --> als de regel hoogte heeft(zichtbaar is) de waarde ophogen met 1.

Code: 
Sub jec()
 With Sheets(1).Cells(1, 1).CurrentRegion
   .AutoFilter 1, ">2"  
   For Each it In .Cells
     If it.RowHeight And it.Row <> 1 Then it.Value = it.Value + 1
   Next
 End With
End Sub
 
Fantastisch daar heb ik wat aan. Het werkt.
Gelukkig was mijn beschrijving duidelijk genoeg zonder plaatje.

Heel hartelijk dank. Een simpele, goede oplossing voor een voor mij lastig probleem.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan