Severance1
Gebruiker
- Lid geworden
- 8 feb 2010
- Berichten
- 42
Hallo allemaal,
Ik heb een probleem met het verwijderen van regels doormiddel van een macro.
Ik heb een lijst met projecten de lijst is van regel 15 tot 1000.
Bij die projecten geef je een datum in kolom G (een zogenaamde indien datum). Voor het opschonen van de lijst zou ik graag een knop willen maken en dat de knop dan een macro gaat uitvoeren. Alle projecten voor de ingegeven datum in D2 worden verwijderd.
Zelf had ik dit geprobeerd.
Heeft iemand enig idee wat ik hier fout doe.
Bij voorbaat dank.
Groeten,
Boudewijn
Ik heb een probleem met het verwijderen van regels doormiddel van een macro.
Ik heb een lijst met projecten de lijst is van regel 15 tot 1000.
Bij die projecten geef je een datum in kolom G (een zogenaamde indien datum). Voor het opschonen van de lijst zou ik graag een knop willen maken en dat de knop dan een macro gaat uitvoeren. Alle projecten voor de ingegeven datum in D2 worden verwijderd.
Zelf had ik dit geprobeerd.
Code:
Sub test()
Dim sDatum As String
sDatum = Sheets("Indienen").[D2]
CVDate([D2]) = x
For Each c In Sheets("Indienen").[G15:G1000]
On Error Resume Next
If c < UCase(x) Then
c.Rows.EntireRow.Delete
End If
Next
End Sub
Heeft iemand enig idee wat ik hier fout doe.
Bij voorbaat dank.
Groeten,
Boudewijn