Función coincidir y buscarv juntas, ¿Cómo se unen?
Para Dante Amor:debo buscar 2 datos que coincidan;¿Probe con buscarv y anidar datos pero la ubicación de los datos siempre cambia de posicion por lo cual esto no me sirve y creo que se debería usar buscarv+coincidir?
1 respuesta
Respuesta de Dante Amor
1
¡Gracias!
H o l a:
Te anexo la macro.
Sub ObtenerDatosDeResumen()
'Por.Dante Amor
Set h1 = Sheets("graficos")
Set h2 = Sheets("resumen mes")
'
For j = Columns("B").Column To Columns("F").Column
semana = h1.Cells(4, j)
Set b = h2.Columns("B").Find(semana, lookat:=xlWhole)
If Not b Is Nothing Then
h1.Cells(5, j) = h2.Cells(b.Row + 1, "D")
h1.Cells(6, j) = h2.Cells(b.Row + 2, "D")
h1.Cells(7, j) = h2.Cells(b.Row + 2, "E")
h1.Cells(8, j) = h2.Cells(b.Row + 5, "D")
h1.Cells(9, j) = h2.Cells(b.Row + 5, "E")
Else
h1.Cells(4, j) = "No existe en la hoja resumen la: " & semana
End If
Next
MsgBox "Fin"
End SubR ecuerda cambiar la valoración a la respuesta.
¡Gracias! im-pre-sio-nan-teeeee!!!!esta estupenda la macro!que facil se resuelve con eso en vez de las formulas!mil gracias!!lo reviso a fondo por las dudas y cualquier cosa te contacto de nuevo!un abrazo y de nuevo,gracias!!!
