UserForm: Textbox value load according to drop down list

Hi gurus,

I have a userform that I need it to load the value in the textbox according to the dropdown list

For example:
If outlet ABC selected, it 3 textbox need to show the value in same row of ABC outlet.

Beside that, there is two button I need it to function as well

Save button:

Save the textbox value according to the drop down list selected

For example, ABC outlet selected and there if there is a changes of any 3 textbox, say Promoter name change from David to Dave the save button need to save according to the cell selected

Delete button:

Need to delete whole row of selected outlet

Please refer attached file: New Book.xlsm

May I know how to achieve this?

Thank you.

i found this more or less the same situation from:

http://stackoverflow.com/questions/2...using-named-ra

and I modify it to suit my current condition:

Private Sub CommandButton2_Click()

Unload Me

End Sub
Private Sub UserForm_Initialize()

Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim WS3 As Worksheet
Dim WS4 As Worksheet
Dim WS5 As Worksheet
Dim WS6 As Worksheet

Set WS1 = Worksheets("MonthSummary")
Set WS2 = Worksheets("WeekSummary")
Set WS3 = Worksheets("DatabaseForm")
Set WS4 = Worksheets("DatabasePO")
Set WS5 = Worksheets("Setup")
Set WS6 = Worksheets("Products")

Dim range_a As Range

    For Each range_a In Worksheets("Setup").Range("OutletList")
      With Me.cmbOutlet
        .AddItem range_a.Value
        .List(.ListCount - 1, 1) = range_a.Offset(0, 1).Value
      End With
    Next range_a

lbName = WS5.Cells(1, 2)
lbSales = WS5.Cells(1, 3)
lbCost = WS5.Cells(1, 4)

End Sub

Private Sub Data_Change()
    With Me.cmbOutlet
        If .ListIndex = -1 Then
            Me.tbName.Text = ""
            Me.tbSales.Text = ""
            Me.tbCost.Text = ""
        Else
            tbName.Text = .List(.ListIndex, 1)
            tbSales.Text = .List(.ListIndex, 2)
            tbCost.Text = .List(.ListIndex, 3)
        End If
    End With
End Sub

but it seems doesnt work with my multiple textbox

Hi MarvinP

May I know is it possible for it to load on the form Load?

Currently I need to double click column A to show the form.

Can change it to when I click a button that use Macro to call the form?

For example: I create a button name Show Form

Sub ShowOutletSetup()

OutletSetup.Show

End Sub

Once the form load it will show default ABC outlet.

Originally Posted by MarvinP

Try this one.

Hi MarvinP

May I know how can I delete the whole row based on the drop down list selected?

In addition:

How do I save the code to Accounting format for this code row?
I already set the whole row in Accounting format

Cells(RowNum, "D") = Me.tbCost

Currently when Initialize I set the format to load as Currency style

Dim Cost As Double
Cost = 0

tbCost = Format(Cost, "$#,##0.00")

But when I save the form it show as number instead of accounting format

it work like charm, but it doesn't save the cost as accounting format

it just save as number, if you look at the book all the cost was set to accounting format

My apologize, I didnt notice the code should end .Value

I added the code and now it work like charm!

Thanks and +rep for solving my problem.

Thank you!!!