¿Cómo programar vlookup en una macro?

Necesito pls que me ayuden a programar una macro para que en una columna de la hoja1 ponga el resultado de un vlookup, la lista llega a las cinco mil filas.
Entonces la base de datos donde necesito que el buscarv haga la búsqueda esta en la hoja2, obviamente la fórmula normal de buscarv me da error.. Me ayudan pls a entender como se construye.

1 Respuesta

Respuesta
1
¿Por qué 'obviamente' la fórmula normal de BUSCARV te da error? No tiene porqué, seguramente la estás escribiendo mal.
Te dejo 1 ejemplo:
Dato en A2 de la Hoja1
Rango en A2:H100 de la Hoja2
Col a devolver: col C (es decir, col 3 del rango)
Falso: para que te devuelva la coincidencia exacta:
=BUSCARV(A2;Hoja2!A2:H100;3;falso)
Estoy utilizando pto y coma como separador, quizás tu libro utilice solo coma... verifícalo y ajústalo
Sdos. No dejes de comentarme si ahora sí la función resuelve tu consulta.
Es que he tratado de asignarle este proceso a un botón para que se corra una macro con el resultado a lo largo de las 5mil lineas.. pero no me funciona.
Aquí te dejo una rutina de ejemplo. La fórmula que se coloca es la que te dejé en respuesta anterior, comenzando por la fila 2
Sub MacroBuscarV()
'x Elsamatilde
' Macro para rellenar un rango con función BuscarV
'
' la fórmula que se colocó es:  BUSCARV(A2;Hoja2!$A$2:$B$5000;2;falso)
'se rellena desde fila 2
Range("B2").Select
    ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-1],Hoja2!R2C1:R5000C2,2,FALSE)"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B5000"), Type:=xlFillDefault
    Range("B2").Select
End Sub
Sdos. No dejes de comentarme si la pudiste adaptar a tu libro
Esta perfecta!
Como hago para que arrastre la fórmula hasta la ultima linea que en columna A .. hayan datos.. veo que este es el script; como podría modificarlo
Selection.AutoFill Destination:=Range("B2:B5000"), Type:=xlFillDefault
Elsa muchas gracias por compartirnos!
'Agregá esta línea:
ultima=Range("A65536").Row


'Ahora modificá esta con la fórmula:
ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-1],Hoja2!R2C1:R" & ultima & "C2,2,FALSE)"
Elsa, estoy muy cerca.. el problema que tengo es que necesito traer en la fórmula VLOOKUP el valor de la columna #9 y no el de la 2
Intente arreglarlo así: pero no funciono
ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-1],YESTERDAY_REPORT!R2C1:R" & ULTIMA & "C2,9,FALSE)"
El otro problema que tengo es que la fórmula no esta corriendo a lo largo de las filas con datos.
Gracias de nuevo.
Te dejo el script completo
Sub BuscarValoresayer()
Sheets("REPORT").Select
Range("b:b").Select
Selection.EntireColumn.Insert
 'Macro para rellenar un rango con función BuscarV
Range("b2").Select
ULTIMA = Range("A65536").Row
ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-1],YESTERDAY_REPORT!R2C1:R" & ULTIMA & "C2,9,FALSE)"
Veo que me faltó algo en la instrucción enviada con anterioridad:
ultima=Range("A65536").End(xlup).Row
Y la de la fórmula queda así para 9 col:
ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-1],YESTERDAY_REPORT!R2C1:R" & ULTIMA & "C9,9,FALSE)"
Te explico:
R = Row = fila
C= Column = columna
Entonces:
RC[-1] significa la misma fila que la celda activa y 1 col a izquierda. Si estás en B2, será que busca el valor que aparece en A2, lo busca en el rango: A2:I hasta la fila 'ultima' (R2C1:R... C9) y debe devolver lo de la col 9 (aquí el argumento 9 está bien colocado)
Espero que ahora esté claro y solucionado.
Sdos
Elsa
Elsa muchísimas gracias! esta funcionando perfecto.. ¿ahora por qué la fórmula no continua a lo largo de la columna? Intente hacerlo con el bucle do while.. Pero me dio un error al finalizar el LOOP.
Sub BuscarValoresayer()
Sheets("REPORT").Select
Range("b:b").Select
Selection.EntireColumn.Insert
 'Macro para rellenar un rango con función BuscarV
 Do While Range("a2") <> ""
 Range("b2").Select
 ULTIMA = Range("a65536").End(xlUp).Row
 ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-1],YESTERDAY_REPORT!R2C1:R" & ULTIMA & "C9,9,FALSE)"
 Loop
 End Sub
Si te fijas un poco + arriba, el día 17 estaba incluida la instrucción de arrastre, no hace falta el bucle:
Selection.AutoFill Destination:=Range("B2:B5000"), Type:=xlFillDefault
Pero aquí hay algo poco claro: una cosa es la última celda con datos en col A de tu hoja REPORT y otra la última celda con datos en la tabla donde debe buscar la coincidencia...
Te la dejo completa para que veas si es correcto:
Sub BuscarValoresayer()
'x Elsamatilde
Sheets("REPORT").Select
Range("b:b").Select
Selection.EntireColumn.Insert
 'Macro para rellenar un rango con función BuscarV
Range("b2").Select
'última celda con datos en col A de hoja REPORT
ULTIMA = ActiveSheet.Range("A65536").End(xlUp).Row
'ultima celda con datos en col A de hoja YESTERDAY
ULT_YEST = Sheets("YESTERDAY_REPORT").Range("A65536").End(xlUp).Row
ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-1],YESTERDAY_REPORT!R2C1:R" & ULT_YEST & "C2,9,FALSE)"
'arrastro la fórmula hasta la última celda con datos en A, hoja REPORT
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B" & ULTIMA), Type:=xlFillDefault
Range("B2").Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro para ultima celda que varia

Espero que alguien me pueda dar una mano. Es así, tengo un archivo de muchas filas, que varían en cantidad cada vez queme lo dan. Yo necesito ubicar la ultima celda de una columna para luego ir tantas posiciones a la derecha y copiar eso. Yo hice...
1 respuesta

Función buscarv selección variable

Que tengo, la primera_ La función BUSCARV te busca en una matriz determinada de datos, ¿Hay forma de que se le pueda dar el nombre del archivo que debe utilizar como matriz con un imputbox? Mi problema es que cada día tengo que hacer comparaciones...
1 respuesta

Macro para graficar hasta celda n-ésima

A tod@s expert@s! Tengo un problema en la selección de columnas para realizar gráficas con mi macro. Utilizo un programa para la toma de datos (temperaturas, voltajes...) en laboratorio, de forma que se genera una excel, con un número de columnas...
2 respuestas

Comparar 2 hojas y sacar una tercera

DAN tengo el siguiente caso: En un mismo archivo 3 hojas: Inventario, toma-física, sobrantes-faltante. Debo comparar la columna A de inventario con la columna A de toma-física y colocar lo que este en Inventario que no este en toma-física en la...
2 respuestas

Dejar abierto el rango de "autofill" en una macro

Me estoy iniciando con las macros y el problema que me surgió fue que realizo un autofill para pegar una fórmula hacia abajo, pero el rango se queda fijo, y yo necesito que el rango se quede abierto, ya que la macro la aplicaría en archivos cuyo...
3 respuestas

Autofill con un rango variable

Estoy tratando de automatizar un poco mis labores diarias y para eso intento crear un reporte automatizado que debo llenar diariamente utilizando una macro, el problema es que no logro definir como utilizar el autofill para copiar una formula la...
1 respuesta

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta

Buscarv abriendo un archivo (Macros Excel)

Lo que pasa es que estoy haciendo una macro donde utilizo buscarv, sin embargo el archivo donde busca los datos no es constante, siempre va cambiar. Aquí te envío el código que llevo, sin embargo no me actualiza los datos cuando abro un archivo....
1 respuesta

Macro para rellenar series de celdas vacías

Tengo un rango de datos (B1:J8) el cual no es siempre el mismo, en la celda A1 tengo un numero (lo inserto yo) por ejemplo 350, lo que necesito es rellenar la serie hasta llegar a la ultima celda (en este caso A8), es decir...
1 respuesta