WorksheetFunction.Vlookup

02/12/2005 - 01:05 por vicentemorga | Informe spam

¿Podría ayudarme alguien con el siguiente error?
Muchas gracias y un saludo.

Cuando ejecuto el procedimiento que describo a continuación me da el
siguiente error:
"Se ha producido el error 1004 en tiempo de ejecución:
Imposible obtener la propiedad Vlookup de la clase WorksheetFunction."

El procedimiento es el siguiente:

Private Sub Worksheet_Activate()
'Activa el cuadro de texto correspondiente a Código
txtCódigo.Activate
Dim CODIGO2 As String
CODIGO2 = txtCódigo.Value
Dim COD As Range
Set COD = Worksheets("bbdd").Range("CODIGOS")

Dim COMPROBACION As Object
Set COMPROBACION = Application.WorksheetFunction.VLookup(CODIGO2, COD, 3,
0)

ActiveSheet.Range("a2").Value = COMPROBACION
End Sub

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Héctor Miguel

02/12/2005 - 06:53 | Informe spam

hola, Tito !

... el procedimiento... a continuacion me da
... "Se ha producido el error 1004 en tiempo de ejecucion:
Imposible obtener la propiedad Vlookup de la clase WorksheetFunction."
Private Sub Worksheet_Activate()
'Activa el cuadro de texto correspondiente a Código
txtCódigo.Activate
Dim CODIGO2 As String
CODIGO2 = txtCódigo.Value
Dim COD As Range
Set COD = Worksheets("bbdd").Range("CODIGOS")
Dim COMPROBACION As Object
Set COMPROBACION = Application.WorksheetFunction.VLookup(CODIGO2, COD, 3, 0)
ActiveSheet.Range("a2").Value = COMPROBACION
End Sub

1) el error es debido a que alguno de los argumentos de la funcion no pudo ser 'evaluado' :-(
[probablemente]... el control 'txtCodigo'... -> esta vacio -?-

2) la variable que va a 'recibir' el resultado [una vez que funcione] -> COMPROBACION
-> NO puede ser una variable de tipo 'Object' :-((
-> modifica las ultimas lineas de tu codigo...
de:
Dim COMPROBACION As Object
Set COMPROBACION = Application.WorksheetFunction.VLookup(CODIGO2, COD, 3, 0)
a:
Dim COMPROBACION
COMPROBACION = Application.WorksheetFunction.VLookup(CODIGO2, COD, 3, 0)

comentas ?
saludos,
hector.

Responder a este mensaje

#2 carlitros1000

17/01/2013 - 10:00 | Informe spam

vicentemorga escribió el 02/12/2005 01:05 :

¿Podría ayudarme alguien con el siguiente error?
Muchas gracias y un saludo.

Cuando ejecuto el procedimiento que describo a continuación me da el
siguiente error:
"Se ha producido el error 1004 en tiempo de ejecución:
Imposible obtener la propiedad Vlookup de la clase WorksheetFunction."

El procedimiento es el siguiente:

Private Sub Worksheet_Activate()
'Activa el cuadro de texto correspondiente a Código
txtCódigo.Activate
Dim CODIGO2 As String
CODIGO2 = txtCódigo.Value
Dim COD As Range
Set COD = Worksheets("bbdd").Range("CODIGOS")

Dim COMPROBACION As Object
Set COMPROBACION = Application.WorksheetFunction.VLookup(CODIGO2, COD, 3,
0)

ActiveSheet.Range("a2").Value = COMPROBACION
End Sub

Holas soy nuevito, y el tema es antiguo xD pero quiero participar y ahi les voy...

Private Sub Worksheet_Activate()

Dim CODIGO2 As String
CODIGO2 = Range("a8") 'VALOR DE COMPARACIÓN
Dim COD As Range
Set COD = Sheets("hoja1").Range("a1:e3") 'RANGO DE LA HOJA1
ActiveSheet.Range("a9").Value = Application.WorksheetFunction.HLookup(CODIGO2, COD, 3, 0) ' RESULTADO DE LA BUSQUEDA

End Sub

BORRANDO ALGUNAS COSAS Y TODO EN ORDEN... NOTA HE USADO HLOOKUP

Saludos

CarLitros1000

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida