BuscarV en macro

6 envíos / 0 nuevos
Último envío
nachico95
Imagen de nachico95
Offline
última acción: Hace 3 meses 2 días
alta: 05/07/2018 - 15:06
Puntos: 185
BuscarV en macro

Hola, 

Me gustaría saber si se puede utilizar la funcion BuscarV para macros, he buscado por internet pero con eso me da error, me gustaria saber el problema y como solucionarlo. Gracias

Me dice que no se puede obtener la propierdad de la funcion. He probado tambien con BuscarV.

El objetivo es:

1º/Leer un numero(Q4, en hoja Ficha)

2º/Buscar en la Hoja Orden de pedido que contiene la Tabla 2 (en la primer columna de la tabla) el valor A

3º/Copiar la celda de la columna(6 en este caso), en la celda (D16 hoja Ficha)

__________________________________________________________________________

Sub BuscarOF()

Dim A As Integer

Dim B As Integer

A = Sheets("Ficha").Range("Q4")

 

 If A < 10 Then

  B = Application.WorksheetFunction.VLookup(A, Tabla2, 6, Falso)

  Sheets("Ficha").Range("D16") = B

  End If

  

End Sub

 
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 1 hora 8 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 9545
¿Tabla2 está definida como

¿Tabla2 está definida como variable o es el nombre de la tabla? si es el nombre, debería ir entre comillas

VBA sólo sabe inglés, así que pon False en vez de Falso

Application.WorksheetFunction.VLookup(A, "Tabla2", 6, False)

 

Data Tools Suite
datos y tablas con Excel

nachico95
Imagen de nachico95
Offline
última acción: Hace 3 meses 2 días
alta: 05/07/2018 - 15:06
Puntos: 185
Tabla 2 es el nombre de la

Tabla 2 es el nombre de la tabla.

Muchas gracias eres un crack!!

nachico95
Imagen de nachico95
Offline
última acción: Hace 3 meses 2 días
alta: 05/07/2018 - 15:06
Puntos: 185
Siento tener que volver a

Siento tener que volver a postear, pero deafortunadamente me sigue dando el mismo error... alguna idea?Tendre un problema de funcion?

nachico95
Imagen de nachico95
Offline
última acción: Hace 3 meses 2 días
alta: 05/07/2018 - 15:06
Puntos: 185
Adjunto el archivo con otras

Adjunto el archivo con otras celdas pero con el mismo objetivo

AdjuntoTamaño
File prueba.rar11.22 KB
nachico95
Imagen de nachico95
Offline
última acción: Hace 3 meses 2 días
alta: 05/07/2018 - 15:06
Puntos: 185
Ya he encontrado la solucion

Ya he encontrado la solucion:

Application.WorksheetFunction.VLookup(A, Range("Tabla2"), 6, False)