verwijderen van klanten

[doubleJ]

Wie kan mij helpen met het volgende probleem. Ik wil nummers verwijderen uit een lijst als ze niet voldoen aan een bepaalde waarde. alle gegevens van het nummer moeten verwijderd worden.

Doublej

 

[LucHeyndrickx]

Hallo Doublej,

Run deze macro eens:

Sub VerwijderRBV()
Dim x As Range
Dim i As Integer
Dim y As Integer
Set x = Range("C:C").Find(what:="RBV")
Do Until x Is Nothing
i = x.Offset(0, -2)
For y = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(y, 1).Value = i Then Rows(y).Delete
Next
Set x = Range("C:C").Find(what:="RBV")
Loop
End Sub


Luc

 

[doubleJ]

Bedankt Luc!! Het werkt. Ik heb alleen nog een probleem. Het is een zeer groot bestand met klantnummers. Bij klantnummer 50000 krijg ik een foutmelding. En wel

Fout 6 tijdens uitvoering
Overloop

Na het bekijken van de foutoplossing ben ik er achter gekomen dat het fout gaat vanaf de 50000. Deze fout wordt veroorzaakt, voor zover ik het goed begrijp, doordat dit getal niet integer is o.i.d. Kun je me hierbij helpen.

DoubleJ

 

[LucHeyndrickx]

Geen 50000 maar 32000 (ongeveer).

Maak van je Integers een Long

Sub VerwijderRBV()
Dim x As Range
Dim i As Long
Dim y As Long
Set x = Range("C:C").Find(what:="RBV")
Do Until x Is Nothing
i = x.Offset(0, -2)
For y = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(y, 1).Value = i Then Rows(y).Delete
Next
Set x = Range("C:C").Find(what:="RBV")
Loop
End Sub

Luc

 

[doubleJ]

Gelukt!!!!

Bedankt, ik moet nog eens even goed gaan oefenen met basic editor.

Groeten
DoubleJ