Met onderstaande code (in blad "artikelen") moet worden gezocht in C5 t/m C75. Ik heb de code van een ander werkblad geleend, waarbij de zoeker wel werkt.
Nu kan de zoeker steeds niets vinden, dus moet er toch iets niet goed zijn, maar wat? Iemand enig idee?
Mariken
Nu kan de zoeker steeds niets vinden, dus moet er toch iets niet goed zijn, maar wat? Iemand enig idee?
Mariken
Code:
Sub Zoeken()
Sheets("artikelen").Unprotect ("hansjekoosje")
Dim Found As Range, tempcell As Range, X As Variant
Range("C5:C" & Cells(Rows.Count, 2).End(xlUp).Row).Interior.ColorIndex = xlNone
X = InputBox("Zoekterm invullen." & vbCrLf & "Er wordt gezocht in de kolom 'artikelomschrijving'")
If X <> "" Then
Set Found = Columns(2).Find(X, , xlValues, xlPart)
If Found Is Nothing Then
MsgBox X & " niet gevonden!"
Exit Sub
Else
Application.GoTo Found.Offset(, -1), True
Found.Interior.ColorIndex = 3
End If
If MsgBox("Verder zoeken?", vbYesNo) = vbYes Then
Do
Set tempcell = Columns(2).FindNext(After:=Found)
If Found.Row >= tempcell.Row And Found.Column >= tempcell.Column Then
MsgBox "Niet(s) meer gevonden!"
Exit Do
End If
Set Found = tempcell
Range("C5:C" & Cells(Rows.Count, 2).End(xlUp).Row).Interior.ColorIndex = xlNone
Application.GoTo Found.Offset(, -1), True
Found.Interior.ColorIndex = 3
If MsgBox("Verder zoeken?", vbYesNo) = vbNo Then Exit Do
Loop
End If
Else: Exit Sub
End If
Sheets("artikelen").Protect ("hansjekoosje")
End Sub