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
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 SubCaptura 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
Consulta: ¿Y si tengo que buscar un código (C2) en más hojas? (De la hoja2 a la hoja7 por ejemplo), ¿y qué devuelva los valores de toda la fila? Muchas gracias - Roli vid
Hola: Podrías crear una nueva pregunta y pones ejemplos de cómo está tu información en las hojas, qué datos quieres de resultado; en qué hoja, en qué fila y en qué columna quieres el resultado. Saludos - Dante Amor