Mrweetikveel
Nieuwe gebruiker
- Lid geworden
- 8 okt 2017
- Berichten
- 3
Hallo iedereen.
Ik heb een probleempje met een macro.
ik wil namelijk een bestaande code die gebruikt wordt om lege rijen te verwijderen zo aan te passen dat het in plaats van lege rijen, hij rijen zou verwijderen waarin het word "Totaal afgekeurd" staat.
Ik heb de basis de onderstaande code gebruikt maar in plaat van vbEmpty, wil ik "Totaal afgekeurd", maar dan werkt de code niet echt.
Iemand een idee hoe ik dit aan kan passen zodat het wel werkt?
Public Sub pfDelRows()
totalrows = ActiveSheet.UsedRange.Rows.Count
For Row = 1 To totalrows
If Cells(Row, 2).Value = vbEmpty Then
Rows(Row).Delete
End If
Next Row
End Sub
Ik heb een probleempje met een macro.
ik wil namelijk een bestaande code die gebruikt wordt om lege rijen te verwijderen zo aan te passen dat het in plaats van lege rijen, hij rijen zou verwijderen waarin het word "Totaal afgekeurd" staat.
Ik heb de basis de onderstaande code gebruikt maar in plaat van vbEmpty, wil ik "Totaal afgekeurd", maar dan werkt de code niet echt.
Iemand een idee hoe ik dit aan kan passen zodat het wel werkt?
Public Sub pfDelRows()
totalrows = ActiveSheet.UsedRange.Rows.Count
For Row = 1 To totalrows
If Cells(Row, 2).Value = vbEmpty Then
Rows(Row).Delete
End If
Next Row
End Sub