How to auto update textbox1 with data from 2 different combo boxes?

[Patriot2879]

Hi Goodmorning, hope you can help me please with some VBA code please, I have a userform called ‘Userform6’, andin this I have a dropdown box which is named ‘ComboBox1’ which has a list ofwords for example, Stores, Late start, Sickness etc. Then I have another comboboxcalled ‘ComboBox2’ which has a list of people’s names, then I have a textboxcalled ‘TextBox1’ which is for postcode and I want this to automatically updatewhen stores is listed in the ComboBox1 and the name is highlighted in combobox2.
In sheet ’INDAY LISTS’ the stores postcodes are in row L2 to lastrow and the names are inrow D2 to last row.



I hope youcan help?

 

[Patriot2879]

Hi. Ok i understand. Please advise me how I can send you a screenshot?

 

[DanteAmor]

Hi. Ok i understand. Please advise me how I can send you a screenshot?

You could upload a copy of your file or image file to a free site such www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. If the workbook contains confidential information, you could replace it with generic data.


Or review this

https://www.mrexcel.com/forum/about-board/508133-attachments.html#post2507729

 

[Patriot2879]

Hi I he added to dropbox please see below link.

https://www.dropbox.com/s/xcgctx4kvwq1g71/testxy.xlsm?dl=0


Hi, thanksfor looking at this, if you click on the Outages button, and in the userformthere is an outage type dropdown list, what I want to happen is when stores isselected from the list, then a MT name is picked from the other drop down list Iwant the post code to auto update. The data is in the IN DAY LISTS sheet.

Hope you can help please.

 

[Patriot2879]

hi, I hope I have added the dropbox file correctly? hope you can help, thank you for your time.

 

[DanteAmor]

hi, I hope I have added the dropbox file correctly? hope you can help, thank you for your time.

Please, put the following to your code.

Private Sub ComboBox2_Change()
    Dim sh As Worksheet
    TextBox3.Value = ""
    If ComboBox2.ListIndex = -1 Then Exit Sub
    If ComboBox1 = "Stores" Then
        Set sh = Sheets("IN DAY LISTS")
        Set f = sh.Range("D:D").Find(ComboBox2.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not f Is Nothing Then
            TextBox3.Value = sh.Cells(f.Row, "I").Value
        End If
    End If
End Sub

 

[Patriot2879]

wow that is amazing and works fantastic thank you so much for your help so much appreciated.

 

[DanteAmor]

wow that is amazing and works fantastic thank you so much for your help so much appreciated.

I'm glad to help you. Thanks for the feedback.