VLookup con rango de búsqueda variable

2 envíos / 0 nuevos
Último envío
kanazaki
Imagen de kanazaki
Offline
última acción: Hace 1 mes 1 semana
alta: 19/08/2021 - 01:04
Puntos: 25
VLookup con rango de búsqueda variable

 

En lugar de un rango definido REPETITIVO como esto:

("D10:K30")

Application.VLookup(Me.ComboBox1.Value, Range("D10:K30"), 3, 0)

Deseo que busque en un rango que parta del ultimo renglon con datos y luego 15 renglones arriba

o de otra manera,me explico:

Lo que sucede es que Mi macro COPIA una tabla de datos y la pega unas celdas abajo y deseo haga la busqueda en ese nuevo rango(en el copiado)

ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Select ' Detecta el ultimo renglon con datos

ActiveCell.Offset(-15, -13).Select ' Se posiciona al principio del rango de datos

ActiveCell.Range("a1:n18").Copy 'Copia a partir de la primer celda del rango de datos hasta la n18

ActiveCell.Offset(18, 0).PasteSpecial xlPasteAll 'Lo pega en un lugar especifico

Application.VLookup(Me.ComboBox1.Value, Range("D10:K30"), 3, 0)'Busca el dato que esta en un combo de un formulario,y lo debe buscar

en la copia recien generada.

Gracias de antemano

ACUALIZACION:

LO HE LOGRADO YA LO HICE CON EL MANEJO DE VARIABLES

Asi quedo:

 

Dim fila1 As Long

Dim fila2 As Long

Dim columna1 As Long

Dim columna2 As Long

 

fila1 = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

columna1 = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

 

fila2 = fila1 - 9

columna2 = columna1 - 12

prueba = Application.VLookup(Me.ComboBox1.Value, Range(Cells(fila2, columna2), Cells(fila1, columna1)), 3, 0)
ActiveSheet.Range("a4") = prueba
 
Gracias y espero este ejemplo sea util
 

 

 

 

 

 

 

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 11 horas 48 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 10995
gracias por compartir tu

gracias por compartir tu solución

 

------
Ya sé Excel, pero necesito más.