stefano
Gebruiker
- Lid geworden
- 22 mei 2004
- Berichten
- 865
Ik wil in een bestand, zie bijlage, de rijen verwijderen die in kolom B het jaartal 2017 bevatten. Ik gebruik onderstaande macro, maar krijg een overflow error 6.
Bovendien vraag ik me af of deze macro item 2017 wel zal vinden gezien de datum in kolom B via een formule bekomen wordt.
Dank alvast voor de hulp,
Stefano
Bovendien vraag ik me af of deze macro item 2017 wel zal vinden gezien de datum in kolom B via een formule bekomen wordt.
Dank alvast voor de hulp,
Stefano
Code:
Sub Verwijderen()
Dim i As Integer
Dim y As Integer
i = ActiveSheet.UsedRange.Rows.Count
For y = i To 1 Step -1
If Cells(y, 2).Value = "2017" Then
Cells(y, 2).EntireRow.Delete
End If
Next
[ATTACH]307279.vB[/ATTACH]
End Sub