Hulp nodig VBA code

[ROSO]

Hallo Forumleden,

Kan iemand mij helpen met deze vba code (Excel 2003).
Deze code werkt goed in 1 Kolom.

Ik wil graag deze code laten vergelijken in Kolom (C) vb achternaam en
Kolom (E) vb geboortedatum. vanaf Rij 2.
Ik ben een aantal dagen al mee bezig maar krijg niet het gewenste resultaat.

Alvast bedankt

RoSo

Sub FilterHerBR()

Dim c As Range
    Dim Current As Range
    Dim Foundsheets(7) As Range
    Dim Row As Long
    
    
    Set Current = Sheets(12).Range("C2", Sheets(12).Range("C65536").End(xlUp))
        
    Worksheets(11).Select
    Sheets(11).Cells.Select
    Selection.Delete Shift:=xlUp
    Sheets(11).Rows("1:1").Value = Sheets(2).Rows("1:1").Value
    Worksheets(7).Select
    
   Application.ScreenUpdating = False
    
    Row = 1
 
    For Each c In Range("C2", Range("C65536").End(xlUp))
        Set FoundEver = Current.Find(c, LookIn:=xlValues, lookat:=xlWhole)
        If FoundEver Is Nothing Then
            Row = Row + 1
            c.EntireRow.Copy Sheets(11).Cells(Row, 1)
        End If
    Next c
  
   Sheets(11).Select 'resize the columns
     Range("A:Z").Columns.AutoFit
   Sheets(10).Select
End Sub

 

[snb]

Begin met het wieden van code: verwijder alle select en activate code.

 

[ROSO]

Hallo Snb,

Zal ik zeker proberen, maar kan jij mij help om mijn probleem op te lossen.

Alvast bedankt