Mostrar Msgbox cuando no encuentre el dato

[josshelito]

Buenas tardes, tengo un problema al buscar un dato en un textbox que hace referencia a otra hoja trabajando por worksheetfunction, estaba tratandolo contra error, pero no lo he logrado aún, el asunto es que si no encuentra el valor en el rango que le asigno que me muestre un msgbox y que de lo contrario si existe entonces que coloque los valores encontrados.

Alguien me podría ayudar a saber en dónde se encuentra el fallo?, porque me dice que no se puede obtener la propiedad vlooup de la clase worksheetfunction, gracias por cualquier respuesta.

Private Sub TextBox2_BeforeUpdate(ByVal cancel As MSForms.ReturnBoolean)       'Dim BUSCAVALOR As Double       'With WorksheetFunction

       On Error Resume Next

       'On Error GoTo Sinregistro

       'BUSCAVALOR = .CountIf(Range("DBM").Columns(1), TextBox2) > 0

       TextBox19 = WorksheetFunction.VLookup(Val(TextBox2), Worksheets("DBM").Range("B1:z2000"), 2, False)

       TextBox19 = WorksheetFunction.VLookup(TextBox2, Worksheets("DBM").Range("B1:z2000"), 2, False)


        TextBox20 = WorksheetFunction.VLookup(Val(TextBox2), Worksheets("DBM").Range("B1:z2000"), 3, False)

        TextBox20 = WorksheetFunction.VLookup(TextBox2, Worksheets("DBM").Range("B1:z2000"), 3, False)

        TextBox21 = WorksheetFunction.VLookup(Val(TextBox2), Worksheets("DBM").Range("B1:z2000"), 4, False)

        TextBox21 = WorksheetFunction.VLookup(TextBox2, Worksheets("DBM").Range("B1:z2000"), 4, False)

        TextBox22 = WorksheetFunction.VLookup(Val(TextBox2), Worksheets("DBM").Range("B1:z2000"), 11, False)

        TextBox22 = WorksheetFunction.VLookup(TextBox2, Worksheets("DBM").Range("B1:z2000"), 11, False)

        TextBox23 = Format(WorksheetFunction.VLookup(Val(TextBox2), Worksheets("DBM").Range("B1:z2000"), 12, False), "0.00")

        TextBox23 = Format(WorksheetFunction.VLookup(TextBox2, Worksheets("DBM").Range("B1:z2000"), 12, False), "0.00")

        TextBox26 = WorksheetFunction.VLookup(Val(TextBox2), Worksheets("DBM").Range("B1:z2000"), 13, False)

        TextBox26 = WorksheetFunction.VLookup(TextBox2, Worksheets("DBM").Range("B1:z2000"), 13, False)

        TextBox27 = WorksheetFunction.VLookup(Val(TextBox2), Worksheets("DBM").Range("B1:z2000"), 6, False)

        TextBox27 = WorksheetFunction.VLookup(TextBox2, Worksheets("DBM").Range("B1:z2000"), 6, False)

        TextBox28 = WorksheetFunction.VLookup(Val(TextBox2), Worksheets("DBM").Range("B1:z2000"), 8, False)

        TextBox28 = WorksheetFunction.VLookup(TextBox2, Worksheets("DBM").Range("B1:z2000"), 8, False)

        TextBox29 = WorksheetFunction.VLookup(Val(TextBox2), Worksheets("DBM").Range("B1:z2000"), 9, False)

        TextBox29 = WorksheetFunction.VLookup(TextBox2, Worksheets("DBM").Range("B1:z2000"), 9, False)

        TextBox30 = WorksheetFunction.VLookup(Val(TextBox2), Worksheets("DBM").Range("B1:z2000"), 7, False)

        TextBox30 = WorksheetFunction.VLookup(TextBox2, Worksheets("DBM").Range("B1:z2000"), 7, False)

'Sinregistro:

'MsgBox "NADA"

'       Exit Sub



        'If BUSCAVALOR = True Then MsgBox "Este material no se encuentra en tu base de datos"

        'End With

End Sub[/CODE]