[EXCEL VBA] rij verwijderen indien....

[Dutch_guy]

Ik gebruik de volgenden code in Excel:

Sub RemoveEmptyCells()
For Each cell In Selection
If cell.Value = "" Then
cell.Delete Shift:=xlUp
End If
Next cell
End Sub

Ik selecteer dus een aantal cellen, vervolgens voer ik de code uit en worden alle lege cellen verwijderd en de cellen worden omhoog geplaatst.

MAAR......, ik wil dat de hele rij wordt verwijderd, dus:


a 1
b
c 3

Als ik de code uitvoer, dan moet van "b'' dus de hele rij verwijderd worden.

Iemand een idee ?

[Verwijderd]

Probeer eens iets met EntireRow

code:

Bijvoorbeeld ActiveCell.EntireRow.Delete

Sub RemoveEmptyCells()
For Each cell In Selection
If cell.Value = "" Then
ActiveCell.EntireRow.Delete
End If
Next cell
End Sub

[henkleerssen]

Visual Basic .NET:

Function DeleteEmptyRows(AmountRows As Integer) As Boolean
'on basis of emptiness of first column
Dim iRow As Integer

For iRow = AmountRows To 1 Step -1
    If ActiveSheet.Range("A" & iRow).Value = "" Then
        Rows(iRow & ":" & iRow).Delete Shift:=xlUp
    End If
Next

End Function

ipv die range check op colomn A kun je ook selection gebruiken..
eeeuh laatst ook langs geweest hier op GOT

[Dutch_guy]

Het is al gelukt. Ik zat steeds met Rows.Delete te proberen, wat niet werkte.

Onderstaand is het geworden:

Sub RemoveEmptyCells()
For Each Cell In Selection
If Cell.Value = "" Then
Cell.EntireRow.Delete
End If
Next Cell
End Sub

Zonder "Active" dus.

Bedankt!