Saltar al contenido

Función buscarv, copiar en grupo

publicado

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

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.