Voor een redelijk groot bestand (c.a. 15.000 regels) heb ik een filtermethode geprogrammeerd.
Na het scherm van de filtering volgt een scherm waar je door het bestand kunt bladeren m.b.v. command button en waarin alleen de gefilterde waarden worden getoond.
Bij ieder druk op de command button worden de tekstvelden gevuld met de eerstvolgende zichbare regel.
Op zich werkt dit. Echter door het gebruik van "activate" in mijn programma duurt het bladeren wel heel erg lang.
Dit moet beslist sneller kunnen. Wie kent een snellere methode?
De gebruikte code:
Na het scherm van de filtering volgt een scherm waar je door het bestand kunt bladeren m.b.v. command button en waarin alleen de gefilterde waarden worden getoond.
Bij ieder druk op de command button worden de tekstvelden gevuld met de eerstvolgende zichbare regel.
Op zich werkt dit. Echter door het gebruik van "activate" in mijn programma duurt het bladeren wel heel erg lang.
Dit moet beslist sneller kunnen. Wie kent een snellere methode?
De gebruikte code:
Code:
Dim lastrow As Long
lastrow = Range("B" & Rows.Count).End(xlUp).Row
Do
ActiveCell.Offset(1, 0).Select
If ActiveCell.Row >= lastrow Then
Exit Sub
End If
Loop Until Rows(ActiveCell.Row).Hidden = False
TxtKolomb = ActiveCell.Offset(0, -1).Value
TxtKolomc = ActiveCell.Offset(0, 0).Value
TxtKolomd = ActiveCell.Offset(0, 1).Value
TxtKolome = ActiveCell.Offset(0, 3).Value
TxtKolomf = ActiveCell.Offset(0, 2).Value
TxtKolomg = ActiveCell.Offset(0, 4).Value
TxtKolomh = ActiveCell.Offset(0, 5).Value
TxtKolomi = ActiveCell.Offset(0, 6).Value
TxtKolomj = ActiveCell.Offset(0, 7).Value
TxtKolomk = ActiveCell.Offset(0, 8).Value
TxtKoloml = ActiveCell.Offset(0, 9).Value
TxtKolomm = ActiveCell.Offset(0, 10).Value
TxtKolomn = ActiveCell.Offset(0, 11).Value
TxtKolomo = ActiveCell.Offset(0, 12).Value
TxtKolomp = ActiveCell.Offset(0, 13).Value
TxtKolomq = ActiveCell.Offset(0, 14).Value
TxtKolomr = ActiveCell.Offset(0, 15).Value
TxtKoloms = ActiveCell.Offset(0, 16).Value
TxtKolomt = ActiveCell.Offset(0, 17).Value
TxtKolomj = Format(TxtKolomj, "€#,##0.00")