Buscarv con macros

Buenas noches.
Tengo una siguiente consulta .
En un libro1 de excel consulto desde la hoja3 a dos libros distintos al mismo tiempo
con la función buscarv en una macro.
Pero quiero que esa función no me busque un valor fijo en una celda, sino más bien que busque el ultimo valor de la columna DE de el libro1 de la hoja1.
La función la incorpore a una macro, pero no logro ningún resultado.
Coloque los valores de buscarv en la hoja 3 del libro 1 e hice que los valores de las celdas que contenían ese valor, aparecieran en una etiqueta que le asigne.
No logro establecer el ultimo valor de la columna D
el código que genere es algo así.
' me posiciona sobre la columna en donde esta el valor a buscar
Hoja1.Range("d5").End(xlDown).Select
'hace que la variable llss sea igual a la seleccion
  set llss = ActiveCell.Value2
  'ahora incorpora en la formula buscarv el valor de mi variable llss
' es qui en donde no me aparece ningun dato, si cambio la variable llss por un valor fijo ahi realiza la consulta y arroja datos
    Hoja3.Range("A8").Select
    ActiveCell.FormulaR1C1 = _
        "=""BUSID ="" & VLOOKUP(""& llss,'[AT.xls]Version 228(09-07-09)'!R2C1:R6913C5,3,FALSE)"
     Hoja3.Range("A9").Select
    ActiveCell.FormulaR1C1 = _
        "=""OP /  ="" & VLOOKUP(""& llss,'[AT.xls]Version 228(09-07-09)'!R2C1:R6913C2,2,FALSE) & "" CT / = ( "" & VLOOKUP(llss,'[AT.xls]Version 228(09-07-09)'!R2C1:R6913C10,10,FALSE) & "" ) """
       Hoja3.Range("A10").Select
    ActiveCell.FormulaR1C1 = _
        "=""FLOTA  = "" & VLOOKUP(""& llss,'[AT.xls]Version 228(09-07-09)'!R2C1:R6913C6,6,FALSE)"
     Hoja3.Range("A11").Select
    ActiveCell.FormulaR1C1 = _
        "=""BUSID = "" & VLOOKUP(""& llss,'[als.xls]356'!R2C1:R4854C4,4,FALSE)"
     Hoja3.Range("A12").Select
    ActiveCell.FormulaR1C1 = _
        "=""OPID = "" & VLOOKUP(""& llss,'[als.xls]356'!R2C1:R4854C3,3,FALSE) & "" CT /  = ( "" & VLOOKUP(llss,'[als.xls]356'!R2C1:R4854C5,5,FALSE)"
    Hoja3.Range("A13").Select
   ActiveCell.FormulaR1C1 = _
        "=""ACC = ( "" & VLOOKUP(""& llss,'[als.xls]356'!R2C1:R4854C9,9,FALSE)"
    Hoja3.Range("A14").Select
    ActiveCell.FormulaR1C1 = _
        "=""FLTA = "" & VLOOKUP(""& llss,'[als.xls]356'!R2C1:R4854C11,10,FALSE) & "" CP = ( "" & VLOOKUP(llss,'[als.xls]356'!R2C1:R4854C11,11,FALSE)"
Favor necesito su ayuda, la verdad aun no se como hacer que buscarv me busque una variable.

1 Respuesta

Respuesta
1
Pues buscarv no solo buscar valores, dentro de las características de este comando esta el de buscar contenido+formato, es decir si pones una variable debes definir el formato de esta variable (decimal, texto, entreo, numero etc), ese formato debe ser igual formato de la celda donde se ubica el valor buscado
puedes confirmarlo con un ejercicio simple
dale un formato texto a una celda a1 un valor 10
en otra celda pon buscarv(10; a1:a1;1;0) excel intenta buscar el valor 10 en la celda a1 pero la celda a1 tiene texto 10, no numero 10
buscarv("10"; a1:a1;1;0) excel intenta buscar el texto 10 en la celda a1 y lo encuentra
Si en otra celda con formato numero haces lo mismo veras que los resultados son inversos.
Muchas gracias experto
Me sirvió mucho tu respuesta, el código que realize esta vez fue distinto
lo que hice fue colocar el ultimo valor de mi columna en una celda
y desde ai realizar la búsqueda de el valor de esa celda, que sera siempre el ultimo valor ejemplo de la columna D.
' el la variable que contendra el ultimo valor  
as = Hoja1.Range("g30").Value
'busco en la columna d5 el ultimo valor
 Hoja1.Range("d5").End(xlDown).Select
lo copio y lo pego en el mismo lugar
Selection.Copy
Hoja1.Range("g30").Select
ActiveCell.PasteSpecial
On Error Resume Next
'si el valor que contiene mi formula da error o no esta que cambie de color rojo no esta y verde si esta
If Hoja3.Range("a8").Value = "#N/A" Then
Label8.BackColor = RGB(255, 0, 0)
MsgBox (as & " / NO ESTA EN LISTADO AF")
Else
MsgBox (as & " /AF  OK")
Label8.BackColor = RGB(154, 205, 50)
`aqui las etiquetas toman los valores de mis formulas de buscarv
af1.Caption = Hoja3.Range("a8").Value
af2.Caption = Hoja3.Range("a9").Value
af3.Caption = Hoja3.Range("a10").Value
End If
If Hoja3.Range("a11").Value = "#N/A" Then
MsgBox (as & " / NO ESTA EN LISTADO ")
Label7.BackColor = RGB(255, 0, 0)
Else
MsgBox (as & " /  OK")
Label7.BackColor = RGB(154, 205, 50)
mer1.Caption = Hoja3.Range("a11").Value
mer2.Caption = Hoja3.Range("a12").Value
mer3.Caption = Hoja3.Range("a13").Value
mer4.Caption = Hoja3.Range("a14").Value
'Hoja1.Range("g30").Value = ""
End If
Application.ScreenUpdating = True
Application.CutCopyMode = False
'ActiveWorkbook.Save
Hoja1.Range("j24").Select
. Gracias experto me sirvió tu respuesta
Aunque al final lo realize de esta manera.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿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,...
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

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

Crear cronometro excel 2010

He estado intentando crear una macro para cronometrar con excel y no lo consigo, lo que necesitaría sería el cronometro en si, que cuando le de a un botón comience, con otro botón pare y con otro resetee a "0". También estoy intentando poner una...
1 respuesta

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

Buscar datos en diferentes hojas

Tengo 2 hojas en excel, donde cada hoja tiene en promedio 1000 registros, ademas en cada hoja hay datos de clientes, cada hoja tiene 3 campos (DNI, Nombres, Dirección). Lo que deseo es buscar a los clientes de la hoja 2 q se repiten en la hoja 1 y me...
5 respuestas

Copiar datos de una pestaña a otra con macro

No domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada...
1 respuesta

Macro para buscar una lista de nombres en una lista

Necesito por favor una ayuda para generar una macro en Excel que me permita identificar en que celdas de una determinada columna se encuentra cada nombre de un listado predefinido. Vale la pena aclarar que en cada celda de esa columna hay un texto...
1 respuesta

Función buscarV con macros

Señores: Revisando el portal encontré la siguiente macro: Sub Traer() Application.ScreenUpdating = False Sheets("hoja2").Select Range("A1").Select Posicion = 1 While ActiveCell.Value <> "" direccion = ActiveCell.Value Sheets("hoja1").Select...
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta