Function consultarProducto(codigo As String) As String
Dim ultLinea As Long
Dim ultLineaDatos As Long
Dim fecha, nombre, orden_sap_pedido, cantidad, codigo, descripcion, tipomovimiento As String
Dim busquedaFilaDatos As Range
Dim rangoBusqueda As String
Dim filaRegistro As Long
ultLineaDatos = Sheets("Prueba").Range("A" & Rows.Count).End(xlUp).Row rangoBusqueda = "A10:A" & ultLineaDatos
Set busquedaFilaDatos = Sheets("Prueba").Range(rangoBusqueda).Find(codigo, lookat:=xlWhole)
If busquedaFilaDatos Is Nothing Then
consultarProducto = ""
MsgBox "El código ingresado no existe", vbCritical, "Resultado"
Else
filaRegistro = busquedaFilaDatos.Row
consultarProducto = Sheets("Prueba").Cells(filaRegistro, 2) End If
End Function
Crear cuenta
