solucionar este error Se genera el error1004 no se puede obtener la propiedad vlookup de la clase
Publicado por German (10 intervenciones) el 02/01/2021 12:18:09
1
2
3
4
5
6
7
8
9
10
11
12
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,
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


0