update textbox from sheet1 in userform

[Patriot2879]

hi good afternoon, hope you can help. i have a userform and a sheet1 where data is stored from columns A to S. and in my userform i have 19 textboxes and a listbox. the textboxes is where i can add data and save into sheet1 this also populates the information in the listbox so i can see it easily, i can also click on a row in the listbox and this brings up the data in textbox1 to textbox7. Textbox10 to textbox19 doesnt populate with any data, i was wondering if there is any way once i click on a row in the listbox to do a vlookup the data for these 10 textboxes is in sheet1 columns H to S to populate my data into these 10 textboxes? i have added my file to dropbox hopefully it makes sense when you see it. i think i need something like this: - vlookup to look up textbox1 in userform and find in sheet1 and input into textbox10 to textbox19 (textbox1 has the date which i can use as the reference.)

Dropbox - File Deleted - Simplify your life

www.dropbox.com

 

[Patriot2879]

some code like this maybe ? but this doesnt work but this is something like what i need i think? how do i add userform1 in this? would i t be right when thats added?

Private Sub TextBox10_Change()
TextBox1.Value = Sheets ("sheet1").VLookup(TextBox10.Value, Range("H"), False)
End Sub

 

[Patriot2879]

Hi hope you can help? Basically what I want is for when I got data in textbox1 to vlookup in sheet1 find the data in textbox1 which is in column a find the data in column h and put that information in textbox10 in userform1. Hope this makes more sense

 

[Patriot2879]

i think my questions sounds abit confusing so i try again and hope you can help.
userform to vlookup value from textbox1 in sheet("sheet1") values found in column a & return value in another textbox10 value found in column h

 

[Patriot2879]

hi good morning, i hope someone can help me please? i am really stuck on this, if you need more information please ask

 

[NoSparks]

How about providing a link to your file that doesn't require signing in

 

[Patriot2879]

Dropbox - File Deleted - Simplify your life

www.dropbox.com

Does this work?

 

[NoSparks]

Yes, thank you. Will have a look.

 

[NoSparks]

In UserForm_Initialize load all the columns into the listbox and change .ColumnCount to 7 if that's all you want to show

Set rng = ws.Range("A1:S" & ws.Range("A" & ws.Rows.Count).End(xlUp).Row)

Load all the textboxes in ListBox1_AfterUpdate

 

[Patriot2879]

ok thanks i will have a go