Oude leerling
Gebruiker
- Lid geworden
- 30 aug 2010
- Berichten
- 554
Geacht forum,
Onderstaande code doet niet wat ik wil
Kunt u mij helpen met als uitgangspunt mijn code
Onderstaande code doet niet wat ik wil
Kunt u mij helpen met als uitgangspunt mijn code
Code:
Sub Test()
Sheets("Blad2").Select
r = Range("F45").End(xlUp).Row
For x = 12 To r
naam = Range("A" & x).Value
Blad1.Columns(3).Find (Blad2.Cells(x, 1))
If Not IsError(naam) Then
GoTo 10
Else
MsgBox "Naam niet gevonden"
End If
10 Next
End Sub