Please Help Fixing VBA Code

[pure vito]

Hi All,

I am using this code to bring up my userform and it populates textboxes within the userform every time I click a value in column "A" and this seems to work fine,

But everything below "TextBox1" seems to come through slower, making the data inaccurate,

It could be the way I have set this up because the values from "Data 3" are taken from a Vlookup,

I will attach images hopefully showing what I'm trying to achieve,

Any help is appreciated,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A3000")) Is Nothing Then

    userform1.Show         
            
    userform1.TextBox1.Value = Range(Target.Address).Value
    userform1.Loosefig.Value = Sheets("Data 3").Range("C5").Value
    userform1.Loosedays.Value = Sheets("Data 3").Range("D5").Value
    userform1.Willmake.Value = Sheets("Data 3").Range("E5").Value
    Worksheets("Data 3").Range("B5") = Range(Target.Address).Value
    Worksheets("Data 3").Range("B6") = Range(Target.Address).Value
    
End If

End Sub

 

[pure vito]

This was the fix it was simply the order allowing the vlookup to run first #Learningonthejob

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A3000")) Is Nothing Then
Application.ScreenUpdating = False
    
    Worksheets("Data 3").Range("B5") = Range(Target.Address).Value
    Worksheets("Data 3").Range("B6") = Range(Target.Address).Value
    userform1.Show         
    userform1.TextBox1.Value = Range(Target.Address).Value
    userform1.Loosefig.Value = Sheets("Data 3").Range("C5").Value
    userform1.Loosedays.Value = Sheets("Data 3").Range("D5").Value
    userform1.Willmake.Value = Sheets("Data 3").Range("E5").Value

 Application.ScreenUpdating = True
End If

End Sub