Estimado Tengo el siguiente código pero al ejecutarlo con una entrada que no se encuentra me arroja error cerrando el form

H o l a:

Te anexo el código para buscar utilizando la función Find

El resultado de Find se establece en la variable objeto b

Si el dato existe entonces en b tenemos el resultado de la búsqueda.

Si no existe, entonces te envía un msg de error.

Private Sub CommandButton1_Click()
'Por.Dante Amor
    Dim valor As String
    Set h = Sheets("Detalle")
    unir = ubicacion & caja
    Set b = h.Columns("A").Find(unir, lookat:=xlWhole)
    If Not b Is Nothing Then
        tienda = h.Cells(b.Row, 3)
        direccion = h.Cells(b.Row, 7)
        ciudad = h.Cells(b.Row, 8)
        region = h.Cells(b.Row, 9)
        marca = h.Cells(b.Row, 12)
        tipo = h.Cells(b.Row, 13)
        modelo = h.Cells(b.Row, 14)
        serial = h.Cells(b.Row, 15)
    Else
        MsgBox "No existe la ubicacion y caja: " & unir
    End If
End Sub

Para limpiar los textbox, puedes poner en botón el siguiente código:

Private Sub CommandButton2_Click()
'Por.Dante Amor
    ubicacion = ""
    caja = ""
    unir = ""
    tienda = ""
    direccion = ""
    ciudad = ""
    region = ""
    marca = ""
    tipo = ""
    modelo = ""
    serial = ""
End Sub

Amigo gracias pero con ti código nunca encuentra coincidencia es decir siempre me indica que no se encontró el valor cuando realmente si lo hay forma de modificar este código para que emita el mensaje de error:

Private Sub CommandButton1_Click()
Dim valor As String
On Error Resume Next

unir.Text = Ubicacion.Text & Caja.Text
valor = unir.Text
If IsError(valor) Then
Ubicacion.Text = ""
Caja.Text = ""
Else
tiendatemp = Application.WorksheetFunction.VLookup(valor, Sheets("Detalle").Range("A:Z"), 3, 0)
Tienda.Value = tiendatemp
direcciontemp = Application.WorksheetFunction.VLookup(valor, Sheets("Detalle").Range("A:Z"), 7, 0)
Direccion.Value = direcciontemp
ciudadtemp = Application.WorksheetFunction.VLookup(valor, Sheets("Detalle").Range("A:Z"), 8, 0)
Ciudad.Value = ciudadtemp
regiontemp = Application.WorksheetFunction.VLookup(valor, Sheets("Detalle").Range("A:Z"), 9, 0)
Region.Value = regiontemp
marcatemp = Application.WorksheetFunction.VLookup(valor, Sheets("Detalle").Range("A:Z"), 12, 0)
Marca.Value = marcatemp
tipotemp = Application.WorksheetFunction.VLookup(valor, Sheets("Detalle").Range("A:Z"), 13, 0)
tipo.Value = tipotemp
modelotemp = Application.WorksheetFunction.VLookup(valor, Sheets("Detalle").Range("A:Z"), 14, 0)
modelo.Value = modelotemp
serietemp = Application.WorksheetFunction.VLookup(valor, Sheets("Detalle").Range("A:Z"), 15, 0)
serial.Value = serietemp
End If
End Sub

El código que te envié sí funciona. Lo que tengo que revisar son tus datos.

El código que estás poniendo no es práctico, yo solamente realizo una búsqueda y tu código hace 8 búsquedas.

Envíame tu archivo con ejemplos para revisar qué datos tienes.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Juan Francisco Olarte Paz” y el título de esta pregunta.