Excel macro para buscar y extraer múltiples calores

Necesitaría ayuda para crear una hoja de consulta para un inventario.

El problema que me surge es que los códigos se repiten y necesito que se muestren todos los resultados.

Hoja de inventario

De esta hoja debería extraer los datos de los encabezados pintados.

Hoja de consulta

Esta debería ser la hoja en donde, Mediante el ingreso del código devuelva los valores

Indicados en las columnas.

Link de descarga del archivo.

https://onedrive.live.com/?cid=DAAE0B1585241228&id=DAAE0B1585241228%21372 

1 Respuesta

Respuesta
1

Te anexo la macro para que la pongas en los eventos de la hoja Consulta

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    Application.ScreenUpdating = False
    If Not Intersect(Target, [C2]) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        Set h1 = Sheets("Inventario")
        Set h2 = Sheets("CONSULTA")
        '
        u2 = h2.Range("C" & Rows.Count).End(xlUp).Row
        If u2 < 5 Then u2 = 5
        h2.Range("B5:I" & u2).Clear
        '
        h1.[A1].AutoFilter
        u = h1.Range("E" & Rows.Count).End(xlUp).Row
        h1.Range("A1:BI" & u).AutoFilter Field:=5, Criteria1:=Target.Value
        u = h1.Range("E" & Rows.Count).End(xlUp).Row
        If u = 1 Then
            Application.ScreenUpdating = True
            MsgBox "No existen códigos"
        Else
            h1.Range("C2:C" & u).Copy
            h2.[B5].PasteSpecial Paste:=xlPasteValues
            h1.Range("E2:K" & u).Copy
            h2.[C5].PasteSpecial Paste:=xlPasteValues
        End If
        Target.Select
    End If
End Sub

Captura el código en la celda C2 y después de presionar enter la macro se ejecuta en automático.

El archivo con la macro:

https://www.dropbox.com/s/asdchbxzgvrc8pv/Inventario%20FG%2002-15%20Rev.01%20DAM.xlsb?dl=0 


Saludos. Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas