Macro para usar CONSULTAV en dos columnas
Hola! Quisiera que me pudieras ayudar con el siguiente problema. Te estaría enormemente agradecido.
Tengo un libro con dos hojas.
En la primera hoja Tengo una lista con información de todos los equipos de la siguiente manera
A B C
1 NOMBRE DE EQUIPO UBICACIÓN TIPOdeEQUIPO
2 Equipo 1 Lote1 X
3 Equipo 2 Lote 2 X1
::: ::: ::::
En la segunda hoja tengo una lista de muchos registros distintos de la siguiente manera
A B C D .....
NOMBRE DE EQUIPO DESC.DE.PERDIDA TIPO.DE.PERDIDA HORAS.PERD
Equipo 1 Perdida1 Tp1 10
Equipo 1 Perdida2 Tp1 3
::: ::: ::: :::
Equipo 1 Perdida1 Tp1 10
Equipo 1 Perdida2 Tp1 3
::: ::: ::: :::
donde en muchas filas puede repetirse el mismo equipo con distinta información en el resto de columnas.
Quisiera utilizar una macro para que la información al final me quede de la siguiente manera
UBICACIÓN TIPOdeEQUIPO NOMBRE.DE.EQUIPO DESC.DE.PERD. TIP.PERD....
Lote1 X Equipo 1 Perdida1 Tp1.....
1 respuesta
Te anexo la macro
Sub consultav()
'Por.DAM
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
Set h3 = Sheets("Hoja3")
h3.Cells.Clear
h3.Range("A1:F1") = Array("UBICACIÓN", "TIPOdeEQUIPO", _
"NOMBRE.DE.EQUIPO", "DESC.DE.PERD.", "TIP.PERD", "HORAS.PERD")
j = 2
For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row
Set b = h1.Columns("A").Find(h2.Cells(i, "A"))
If Not b Is Nothing Then
h3.Cells(j, "A") = h1.Cells(b.Row, "B")
h3.Cells(j, "B") = h1.Cells(b.Row, "C")
h3.Cells(j, "C") = h1.Cells(b.Row, "A")
h3.Cells(j, "D") = h2.Cells(i, "B")
h3.Cells(j, "E") = h2.Cells(i, "C")
h3.Cells(j, "F") = h2.Cells(i, "D")
j = j + 1
End If
Next
MsgBox "La información se ha concentrado", vbInformation, "CONSULTAV"
End SubCambia en la macro por los nombres de tus hojas, en esta parte
Set h1 = Sheets("Hoja1") por la primera hoja
Set h2 = Sheets("Hoja2") por la segunda hoja
Set h3 = Sheets("Hoja3") en esta hoja quedará el resultado
