1. AyudaExcel utiliza cookies. Si continuas utilizando AyudaExcel, estás aceptando la utilización de nuestras cookies. Más información.
  2. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

Solucionado Macro para buscar datos de otra hoja y copiar valor correspondiente

Tema publicado en 'Macros y programación VBA' iniciado por JoseLinares, 19 Sep 2012.

Estado del tema:
Cerrado para nuevas respuestas
  1. JoseLinares

    JoseLinares Nuevo Usuario

    Registrado:
    16 Abr 2012
    Mensajes:
    29
    Me Gusta recibidos:
    0
    Estimados foristas,

    Buen día a todos. Les hago llegar mi consulta.
    Tengo un archivo con dos hojas, en el primero la página principal y en el segundo (Hoja2) hay un listado general. Lo que busco es que con un ImputBox en la Hoja1 pueda digitar el código del producto y que me aparezca un mensaje con la ubicación. Para esto, en la Hoja2 se tiene los códigos de los productos (Columna B) y la ubicación correspondiente en la Columna E.

    Mil gracias,
    José.

    Adjuntos:

  2. tese1969

    tese1969 Incondicional de Ayuda Excel

    Registrado:
    5 Jun 2012
    Mensajes:
    1.402
    Me Gusta recibidos:
    40
    Cuándo dices Inputbox, no te estarás refiriendo realmente a un formulario?

    Un saludo,

    Tese
  3. JoseLinares

    JoseLinares Nuevo Usuario

    Registrado:
    16 Abr 2012
    Mensajes:
    29
    Me Gusta recibidos:
    0
    Tese,
    Al decir Inputbox me refería al cuadro donde digito el código del producto... No es un formulario.
    Slds.
    José.
  4. joshua

    joshua Usuario Activo

    Registrado:
    5 Jun 2009
    Mensajes:
    899
    Me Gusta recibidos:
    76
    Saludos.
    Prueba y comentas.

    CÓDIGO:
    Sub Buscar_Ubicacion()
    Dim Clda As Range, codigo As Double
    codigo = Application.InputBox("Digite el codigo", "Buscar codigo")
        With Sheets("Hoja2")
            x = .Range("B65536").End(xlUp).Row
            Set Clda = .Range("B3:B" & x).Find(What:=codigo, LookAt:=xlWhole)
                If Not Clda Is Nothing Then
                    MsgBox "Descripción" & vbCrLf & _
                    "Código:          [" & Clda & "]" & vbCrLf & _
                    "Descripción:  [" & Clda.Offset(, 1) & "]" & vbCrLf & _
                    "Um:                [" & Clda.Offset(, 2) & "]" & vbCrLf & _
                    "Ubicación:     [" & Clda.Offset(, 3) & "]"
                Else
                MsgBox "No existe"
                End If
        End With
    End Sub
    Atte.
    joshua
  5. Kennneth

    Kennneth Nuevo Usuario

    Registrado:
    18 Sep 2012
    Mensajes:
    8
    Me Gusta recibidos:
    0
    Disculpa la molestia Joshua, ¿este dato solo sirve para buscar el dato de la tabla determinada?
  6. joshua

    joshua Usuario Activo

    Registrado:
    5 Jun 2009
    Mensajes:
    899
    Me Gusta recibidos:
    76
    Saludos.
    Si, es lo que solicito el compañero jose.

    Atte.
    joshua
  7. Kennneth

    Kennneth Nuevo Usuario

    Registrado:
    18 Sep 2012
    Mensajes:
    8
    Me Gusta recibidos:
    0
    Te informo que también me ayudo mucho a mi.

    ¿Crees poder ayudarme con mi post?

    Me disculpo Jose Linares, por solicitar la ayuda de joshua y por utilizar este método que el hizo para tu petición.
  8. JoseLinares

    JoseLinares Nuevo Usuario

    Registrado:
    16 Abr 2012
    Mensajes:
    29
    Me Gusta recibidos:
    0
    Me resultó excelente! Gracias Joshua !!!
    Saludos!
    José.
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página