Navigation

   Hej 

jeg er gået i sort, 
jeg laver et Rowsource men vil gerne have en besked hvis nummer jeg søger ikke er der, i sted en fejl, er der nogen der kan husk hvordan jege skiver kode til det ?

Private Sub CBOPD_Click()

' Sheets("Vare").Select
    Dim ws1 As Worksheet
     Dim match As Range
     Dim findMe As String
     Dim findOffset As String

    Set ws1 = ThisWorkbook.Sheets("Vare")
           findMe = ProgrÆND.xFind.Value
    Set match = ws1.Cells.Find(findMe)
        Det er den her    
     If "findMe" = ("") Then
    MsgBox "   vare nr Findes ikke.", vbExclamation, "Vare nr."
    ProgrÆND.xFind.SetFocus
    Exit Sub

   End If

      ' Maskine
    findOffset = match.Offset(, 3).Value
        ProgrÆND.CBMA.Value = match.Offset(, 3).Value

  ' Program navn
    findOffset = match.Offset(, 4).Value
        ProgrÆND.CBDB.Value = match.Offset(, 4).Value

' Database navn
    findOffset = match.Offset(, 5).Value
        ProgrÆND.TBMÅP.Value = match.Offset(, 5).Value

 ' ALT. maskine
    findOffset = match.Offset(, 6).Value
        ProgrÆND.CBMA1.Value = match.Offset(, 6).Value

        ' alt.Database navn
    findOffset = match.Offset(, 7).Value
        ProgrÆND.CBDB1.Value = match.Offset(, 7).Value

        ' alt.program navn
    findOffset = match.Offset(, 8).Value
        ProgrÆND.TBMÅP1.Value = match.Offset(, 8).Value

End Sub

Navigation

Sige til hvis et søge nr ikke er der,