Private Sub Worksheet_Change(ByVal Target As Range)
Celda = "A:A"
If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then
ActiveCell.Offset(-1, 1).Select
Call Buscarv
End If
End Sub
En la hoja1 tengo la lista donde se extrae los datos y en la hoja2 en la celda coloco un nombre y me devuelve su equivalente de la tabla.
Esto me funciona a la perfección cuando se ingresa nombre por nombre, pero ahora estoy buscando un resultado cuando copie un nombre en varias filas de la columna y me aparezca en la columna del al lado su equivalente, pero de todo el grupo que copié
Estimados amigos con la ayuda de ustedes pude hacer una macro con BUSCARV como se detalla:
'En un Módulo:
Sub Buscarv()
ActiveCell = Application.VLookup(ActiveCell.Offset(, -1), Sheets("Hoja1").Range("A1:B15"), 2, False)
End Sub
'En la hoja activa
Private Sub Worksheet_Change(ByVal Target As Range)
Celda = "A:A"
If Not Application.Intersect(Target, Range(Celda)) Is Nothing Then
ActiveCell.Offset(-1, 1).Select
Call Buscarv
End If
End Sub
En la hoja1 tengo la lista donde se extrae los datos y en la hoja2 en la celda coloco un nombre y me devuelve su equivalente de la tabla.
Esto me funciona a la perfección cuando se ingresa nombre por nombre, pero ahora estoy buscando un resultado cuando copie un nombre en varias filas de la columna y me aparezca en la columna del al lado su equivalente, pero de todo el grupo que copié
Gracias
Libro1.zip