Zoekformulier ik loop echt vast

[Bendepater]

Hallo,

Ik heb laatst een heel handig zoek formulier gevonden hier op het forum. Deze wil ik graag aanpassen naar eigen stijl. Ik heb alleen wel een vraag: Als ik een zoek opdracht invul en dit nummer bestaat niet, zou ik graag een msgbox willen krijgen met bv. "nummer niet gevonden" kan dat en hoe doe ik dat?
zijn dus 2 vragen..

Ik heb redelijk wat geprobeerd maar hier kom ik niet uit..

Wie zou me kunnen helpen?

gr,

Ben

 

[Wigi]

Begrijp jij wat die voorwaarde wil zeggen in de IF:

If Not code Is Nothing Then
            ...            
End If

 

[Warme bakkertje]

Ik wel, jij ook ? (sorry Wim, kon het ff niet laten)

If Not Code Is Nothing Then
....
Else
MsgBox "Nummer niet gevonden"
End If

Mvg

Rudi

 

[Wigi]

Ik wel, jij ook ? (sorry Wim, kon het ff niet laten)

Nee, ik wist dat niet, maar nu ik jouw code zie begrijp ik het

 

[Bendepater]

sorry,

Maar ik begrijp er nog niets van. Hij zal ergens naar moeten verwijzen lijkt mij maar heb even geen idee.

gr,

Ben

 

[Warme bakkertje]

Private Sub haalgegevensop_Click()
Dim code As Range
On Error Resume Next
With Worksheets("HC")
    Set code = .Range("C7:C500").Find(gegdatum, LookIn:=xlValues, lookat:=xlWhole)
    If Not code Is Nothing Then
        gegdag.Text = .Range("A" & code.Row)
        gegmachinist.Text = .Range("I" & code.Row)
        gegconducteur.Text = .Range("J" & code.Row)
        gegannika.Text = .Range("K" & code.Row)
        gegsongnummer.Text = .Range("C" & code.Row)
        gegmachinistvan.Text = .Range("W" & code.Row).Text
        gegmachinisttot.Text = .Range("X" & code.Row).Text
        gegconducteurvan.Text = .Range("F" & code.Row).Text
        gegconducteurtot.Text = .Range("G" & code.Row).Text
        gegannikavan.Text = .Range("AB" & code.Row).Text
        gegannikatot.Text = .Range("AC" & code.Row).Text
    [COLOR="Red"]Else
        MsgBox "Nummer niet gevonden"[/COLOR]
            If Len(.Range("E" & code.Row).Comment.Text) > 0 Then
                gegopmerking.Text = ""
            Else
                gegopmerking.Text = .Range("E" & code.Row).Comment.Text
            End If
        On Error GoTo 0
    End If
End With
End Sub

Mvg

Rudi

 

[Bendepater]

Super bedankt zeg...
Nu werkt het inderdaad..

gr,

Ben

 

[trucker10]

Ik heb het via onderstaande ( 2de quote) en werkt ook (?) ik had opgelet

If Not Code Is Nothing Then
....
....
....
Else
MsgBox "Nummer niet gevonden"
End If

Private Sub haalgegevensop_Click()
Dim code As Range

With Worksheets("HC")
Set code = .Range("C7:C500").Find(gegdatum, LookIn:=xlValues, lookat:=xlWhole)
If Not code Is Nothing Then


gegdag.Text = .Range("A" & code.Row)
gegmachinist.Text = .Range("I" & code.Row)
gegconducteur.Text = .Range("J" & code.Row)
gegannika.Text = .Range("K" & code.Row)
gegsongnummer.Text = .Range("C" & code.Row)
gegmachinistvan.Text = .Range("W" & code.Row).Text
gegmachinisttot.Text = .Range("X" & code.Row).Text
gegconducteurvan.Text = .Range("F" & code.Row).Text
gegconducteurtot.Text = .Range("G" & code.Row).Text
gegannikavan.Text = .Range("AB" & code.Row).Text
gegannikatot.Text = .Range("AC" & code.Row).Text


Else
MsgBox "Nummer niet gevonden"
End If
On Error Resume Next
If Len(.Range("E" & code.Row).Comment.Text) > 0 Then
gegopmerking.Text = ""
Else
gegopmerking.Text = .Range("E" & code.Row).Comment.Text
End If
On Error GoTo 0

End With

End Sub