Run-Time Error 438 Object Doesn't Support this property

[FuNeS13]

I'm bumping to this error with this code... Anyone know how can it be fixed? I tried several different options but none seem to work...

Private Sub TextBox1_AfterUpdate()



With Me


Dim sht1 As Worksheet, sht2 As Worksheet, wb As Workbook


Set wb = ActiveWorkbook
Set sht1 = wb.Worksheets("Data")
Set sht2 = wb.Worksheets("Entries")


Dim I As Long
I = Worksheets(2).Range("A1048576").End(xlUp).Offset(1, 0).Row




    
    .TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), wb.sht1.Range("A2:G835"), 2, 0)  '<<-- Error appears here... 
    .TextBox3 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), wb.sht1.Range("A2:G835"), 3, 0)
    .TextBox4 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), wb.sht1.Range("A2:G835"), 4, 0)
    .TextBox5 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox1), wb.sht1.Range("A2:G835"), 5, 0)
    
        
    .TextBox8 = Time()


End With

End Sub

 

[FuNeS13]

Okay! now it doesn't give me an error prompt... but "Red" shows error 2042 which I have no idea what it means...

 

[DanteAmor]

You tried the my code in post #6 .
Just be sure to capture a number in the textbox1.

 

[Fluff]

Okay! now it doesn't give me an error prompt... but "Red" shows error 2042 which I have no idea what it means...

As mentioned in posts 7 & 9 it cannot find the textbox value.
What are the values you are looking for?

 

[FuNeS13]

You tried the my code in post #6 .
Just be sure to capture a number in the textbox1.

Yes I tried it.

 

[FuNeS13]

As mentioned in posts 7 & 9 it cannot find the textbox value.
What are the values you are looking for?

it's a 1 to 4 digit number...

 

[FuNeS13]

As mentioned in posts 7 & 9 it cannot find the textbox value.
What are the values you are looking for?

idiot me... you are 100% sure... I was using my own credential and it was not on the database looooolllll!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[DanteAmor]

Yes I tried it.

 

[Fluff]

idiot me... you are 100% sure... I was using my own credential and it was not on the database looooolllll!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Does this mean it's working now?

 

[FuNeS13]

Does this mean it's working now?

Oh yeah!!! You Rock Fluff, that's two for you today! Also thanks to DanteAmor for your help too!

 

[DanteAmor]

Oh yeah!!! You Rock Fluff, that's two for you today! Also thanks to DanteAmor for your help too!

Youre welcome, let me know if you have any doubt.