Command button naked range to copy into specific range

[Patriot2879]

Hi please can you help I have a command button1 with s list for example: shop, car, home. If home is selected then what I type into the text box I want this copied into sheet2 A2:A5. If car is selected I want the text in the textbox copied into sheet2 B2:B5 hope this makes sense please can you help? I have a button called update where I want the code to go.

 

[Yongle]

Try something like this

Private Sub CommandButton1_Click()
    Dim c As String
    Select Case ComboBox1.Value
        Case "car":     c = "B"
        Case "home":    c = "A"
        Case "shop":    c = "C"
        Case Else:      Exit Sub        'prevents code crashing if nothing selected
    End Select

    Sheets("Sheet2").Cells(2, c).Resize(4) = TextBox1.Value
End Sub

 

[Patriot2879]

Hi this is great thank you. How can i add data fro. More than 1 text box? For example if I have textbox1, textbox2 and textbox3? And want to copy that data over. Thanks so much for your time and help.

 

[Yongle]

Which cell is getting Textbox1 value ?
Which cell is getting Textbox2 value ?
Which cell is getting Textbox3 value ?

 

[Patriot2879]

All 3 are used and have data

 

[Yongle]

If you do not tell me where to put the values I cannot help you

 

[Patriot2879]

Ow sorry. For example if car selected then I want text box 1,2 and 3 to go into row b

 

[Yongle]

Last try
Where is row B?

Columns A B C ..
Rows are 1, 2 ,3 ..

 

[Patriot2879]

Hi yes sorry it will he like textbox1 into B1. Textbox2 into B2 and textbox3 into B3 for example

 

[Yongle]

Is this what you want?

Private Sub CommandButton1_Click()
    Dim c As String
    Select Case ComboBox1.Value
        Case "car":     c = "B"
        Case "home":    c = "A"
        Case "shop":    c = "C"
        Case Else:      Exit Sub        'prevents code crashing if nothing selected
    End Select
    With Sheets("Sheet2")
        .Cells(1, c) = TextBox1.Value
        .Cells(2, c) = TextBox2.Value
        .Cells(3, c) = TextBox3.Value
    End With
End Sub