|
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
-------------
Jeg bruger 365 og 2016
|