Robert Smidt
Gebruiker
- Lid geworden
- 26 mei 2009
- Berichten
- 901
Beste Helpmij'ers,
Ik heb hier een bestaande code gevonden (HSV) die mijn wens redelijk benaderd.
Het is de bedoeling dat het systeem moet filteren tussen 999 en 2000 (dat laatste werkt niet) en dat vervolgens de selectie naar een volgend tabblad gekopieerd dient te worden. Bij het kopiëren gaat nu ook de bovenste regel mee, het is de bedoeling dat alleen hetgeen gefilterd is mee gaat naar het volgende tabblad.
De code is:
Een reactie zie ik met veel belangstelling tegemoet.
Robert
Ik heb hier een bestaande code gevonden (HSV) die mijn wens redelijk benaderd.
Het is de bedoeling dat het systeem moet filteren tussen 999 en 2000 (dat laatste werkt niet) en dat vervolgens de selectie naar een volgend tabblad gekopieerd dient te worden. Bij het kopiëren gaat nu ook de bovenste regel mee, het is de bedoeling dat alleen hetgeen gefilterd is mee gaat naar het volgende tabblad.
De code is:
Code:
Sub hsv()
Dim arr
Application.ScreenUpdating = False
With ThisWorkbook
With .Sheets("blad1")
For Each arr In Array(">999")[B] and ("<2000")[/B]
With .Range("a1:P" & .Cells(Rows.Count, 1).End(xlUp).Row)
.AutoFilter 1, arr
.Copy .Parent.Parent.Sheets(Switch(arr = ">999" [B] and ("<2000")[/B], "Gas")).Range("A" & Rows.Count).End(xlUp).Offset(2)
.AutoFilter
End With
Next arr
End With
End With
End Sub
Een reactie zie ik met veel belangstelling tegemoet.
Robert