Copiar lo datos de una hoja a otra con condición
Tengo los datos en una hoja InfoRecursos que corresponde a los nombres de los colaboradores con su área correspondiente, necesito copiar el área según la persona a la hoja May en la columna M, ya en esta hoja no están ordenados alfabéticamente.
1 respuesta
Respuesta de Dante Amor
Puedes hacerlo con fórmula.
En la hoja May, pon la siguiente fórmula en M2 y la copias hacia abajo
=SI.ERROR(BUSCARV(L2;InfoRecursos!$A$2:$B$3000;2;0);"")
Si lo quieres con macro, entonces:
Sub Macro1()
Dim lr As Long
Dim nombre As String
With Sheets("InfoRecursos")
nombre = .Name
lr = .Range("A" & Rows.Count).End(3).Row
End With
'
With Sheets("May").Range("M2:M" & Sheets("May").Range("L" & Rows.Count).End(3).Row)
.Formula = "=IFERROR(VLOOKUP(L2,'" & nombre & "'!$A$2:$B$" & lr & ",2,0),"""")"
.Value = .Value
End With
End Sub
