Visual Basic para Aplicaciones - error 1004 no se puede obtener la propiedad vlookup de la clase worksheettfunction

Life is soft - evento anual de software empresarial

Pos: 31

Val: 26

error 1004 no se puede obtener la propiedad vlookup de la clase worksheettfunction

Publicado por German (10 intervenciones) el 02/01/2021 15:38:27

Private Sub Text_codigo_Change()

Dim codigo As String

codigo = Text_codigo.Value

Me.Text_nombre = Application.WorksheetFunction.VLookup(codigo, Sheets("formulario").Range("b:f"), 2, 0)

Me.Text_apellidos = Application.WorksheetFunction.VLookup(codigo, Sheets("formulario").Range("b:f"), 3, 0)

Me.Text_empresa = Application.WorksheetFunction.VLookup(codigo, Sheets("formulario").Range("b:f"), 4, 0)

Me.ComboBox1 = Application.WorksheetFunction.VLookup(codigo, Sheets("formulario").Range("b:f"), 5, 0)

End Sub

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 24

Val: 32

error 1004 no se puede obtener la propiedad vlookup de la clase worksheettfunction

Publicado por NachoBM (7 intervenciones) el 16/01/2021 23:59:10

Hola,
Falta saber de que tipo son los datos de las columnas. Por ejemplo: Si la columna codigo es numérico debes pasar codigo como número y no como texto.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

error 1004 no se puede obtener la propiedad vlookup de la clase worksheettfunction

Publicado por Manuel (1 intervención) el 05/09/2021 04:37:33

Hola prueba este codigo

Dim codigoBuscado as integer

codigoBuscado = 50 'Ejemplo

Set rango = Sheets("tutabla").Range("A1").CurrentRegion

Me.txt_valor1 = Application.WorksheetFunction.VLookup(codigoBuscado, rango, 2, 0)
Me.txt_valor2 = Application.WorksheetFunction.VLookup(codigoBuscado, rango, 3, 0)
Me.txt_valorETC = Application.WorksheetFunction.VLookup(codigoBuscado, rango, 4, 0)

Valora esta respuesta

Comentar

COPIAR DATOS DE LISTBOX

solucionar este error Se genera el error1004 no se puede obtener la propiedad vlookup de la clase