wimhelpmij
Nieuwe gebruiker
- Lid geworden
- 29 jul 2009
- Berichten
- 2
Ik wil in een tabblad THK met hulp van een filter een selectie maken van een jaar, zeg in dit voorbeeld 2009, en de geselecteerde rijen verwijderen.
Dit gaat goed, behalve als voor de opgegeven selectie geen waarden worden gevonden, dan worden vanaf regel 2 alle rijen gedelete, en dat is niet de bedoeling.
Wie kan mij hier mee helpen?
Private Sub CommandButton1_Click()
Dim fac As Range
Sheets("THK").Select
Sheets("THK").Cells.CurrentRegion.AutoFilter 1, 2009
Range("a1").Activate
Set fac = ActiveCell.CurrentRegion
fac.Offset(1, 0).Resize(fac.Rows.Count - 1, fac.Columns.Count).Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=1
End Sub
Dit gaat goed, behalve als voor de opgegeven selectie geen waarden worden gevonden, dan worden vanaf regel 2 alle rijen gedelete, en dat is niet de bedoeling.
Wie kan mij hier mee helpen?
Private Sub CommandButton1_Click()
Dim fac As Range
Sheets("THK").Select
Sheets("THK").Cells.CurrentRegion.AutoFilter 1, 2009
Range("a1").Activate
Set fac = ActiveCell.CurrentRegion
fac.Offset(1, 0).Resize(fac.Rows.Count - 1, fac.Columns.Count).Select
Selection.EntireRow.Delete
Selection.AutoFilter Field:=1
End Sub