Zoek en Markeer

[Logicgold]

Beste,

De bedoeling is dat wanneer ik een geleend product terug krijg, dat deze door middel van bijv. zoeken wordt gevonden.
Als het product is gevonden dan moet er in kolom A van die regel een x komen te staan.
De te doorzoeken kolommen zijn kolom B en kolom C
Dit alles dient te worden gerealiseerd doormiddel van de CommandButton.
Met andere woorden:
1. Klik op de CommandButton
2. Een zoekvenstertje wordt geopend
3. Te zoeken waarde vul ik in
4. Zodra ik op enter druk wordt er automatisch de letter x in de kolom A van die regel neergezet.

Alvast bedankt voor jullie hulp

Bekijk bijlage Zoek en Markeer.xlsm

 

[edmoor]

Zoiets:

Private Sub CommandButton1_Click()
    Dim i As Long
    Dim Lr As Long
    Dim Nr As String
    
    Nr = InputBox("Zoek nummer: ")
    If Nr = "" Then Exit Sub
    
    With ActiveSheet
        For i = 3 To .Cells(.Rows.Count, "B").End(xlUp).Row
            If .Cells(i, 2) = Nr Or .Cells(i, 3) = Nr Then
                .Cells(i, 1) = "x"
                Application.Goto .Cells(i, 9)
                Exit For
            End If
        Next i
    End With
End Sub

 

[HSV]

Bv.

Private Sub CommandButton1_Click()
zoek = Application.InputBox("Typ iets", "Zoeken!", "vul iets in", , , , , 1 + 2)
If Not zoek = False Then
 Set c = Columns("b:c").Find(zoek, , , xlWhole)
 If Not c Is Nothing Then Cells(c.Row, 1) = "x"
End If
End Sub

 

[Logicgold]

Beste edmoor,

Bedankt voor je hulp.
Macro doet het perfect. :thumb:

Uiteraard ook HSV bedankt.

Groet, Logicgold