Vergelijken en verwijderen

[weusty]

Hallo,


Ik heb de volgende:

Sub Registratie_Check()

    Dim MyName As Workbook
    Set MyName = ActiveWorkbook

If Workbooks("Registratie_2011.xls").Sheets("001").Range("A2").Value = MyName.Sheets("Invoer").Range("F4").Value And _ 
Workbooks("Registratie_2011.xls").Sheets("001").Range("B2").Value = MyName.Sheets("Invoer").Range("X4").Value And _
Workbooks("Registratie_2011.xls").Sheets("001").Range("C2").Value = MyName.Sheets("Invoer").Range("I4").Value Then
EntireRow.Delete

End if
End sub

In de code worden twee bestande met elkaar vergeleken. Als 3 verschillende waarden;
- NAAM(=F4)
- JAAR(=X4)
- WEEKNUMMER(=I4)
in één regel voorkomen in "Registratie_2011" dan moet de desbetreffende regel worden verwijderd.

In mijn voorbeeld word er alleen nog maar gekeken in de 2e regel zoals je ziet. Het is eigenlijk de bedoeling dat het hele bestand word gecontroleerd.

Er moet dus denk ik iets komen met een LOOP ofzo. Hier ben ik echt niet zo goed in.


Kan iemand mij een beetje op weg helpen?

 

[HSV]

Probeer deze eens.

Sub Registratie_Check()
  Dim MyName, c, firstaddress
    Set MyName = ActiveWorkbook.ActiveSheet
     With Workbooks("Registratie_2011.xls").Sheets("001").Range("A1:A100")
       Set c = .Find(Range("F4"), , xlValues)
 If Not c Is Nothing Then
   If c = MyName.Range("F4").Value And c.Offset(, 1).Value = MyName.Range("X4").Value And _
   c.Offset(, 2).Value = MyName.Range("I4").Value Then
firstaddress = c.Address
   Do
      c.EntireRow.ClearContents
        Set c = .FindNext(c)
          On Error Resume Next
       Loop While Not c Is Nothing And c.Address <> firstaddress
     End If
   End If
 End With
End Sub

 

[weusty]

Super!!!

Bedankt :d