Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

WorksheetFunction.Vlookup

02/12/2005 - 01:05 por vicentemorga | Informe spam
Ayuda Hacer una pregunta
¿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
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 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

Preguntas similares

 

Busqueda sugerida :