Ik gebruik onderstaan VBA om rijen te verplaatsen naar bepaalde tabbladen. Alleen loop ik tegen het volgende aan.
In kolom K komende de waardes 0%, 20%, 50%, 80%, 100% of helemaal leeg voor. De vba ziet de lege cellen als 0. Hoe kan ik deze uitsluiten zodat de lege cellen worden overgeslagen. Deze mogen blijven staan.
In kolom K komende de waardes 0%, 20%, 50%, 80%, 100% of helemaal leeg voor. De vba ziet de lege cellen als 0. Hoe kan ik deze uitsluiten zodat de lege cellen worden overgeslagen. Deze mogen blijven staan.
Code:
Private Sub CommandButton1_Click()
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
lRow = Sheets("Warme Klanten").Range("A50000").End(xlUp).Row
For j = lRow To 1 Step -1
If Sheets("Warme Klanten").Range("K" & j) = 0# Then '0%
cRow = Sheets("Geen interesse").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Warme Klanten").Rows(j).Copy Destination:=Sheets("Geen interesse").Range("A" & cRow + 1)
Sheets("Warme Klanten").Rows(j).Delete
ElseIf Sheets("Warme Klanten").Range("K" & j) = 0.2 Then '20%
cRow = Sheets("Overig (koud)").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Warme Klanten").Rows(j).Copy Destination:=Sheets("Overig (koud)").Range("A" & cRow + 1)
Sheets("Warme Klanten").Rows(j).Delete
End If
Next
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub
Laatst bewerkt: