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]

Your question relates to the code provided by @shg

With ... requires End With

Sheets("Outgoings").Range("B2:F2")

is the same as (note the .)

With Sheets("Outgoings")
    [COLOR=#0000cd].[/COLOR]Range("B2:F2")
End With

Private Sub CommandButton2_Click()
[COLOR=#0000cd]With[/COLOR] Sheets("Outgoings")
  Select Case ComboBox1.Value
    Case "Energy Supplier"
        [SIZE=4][COLOR=#0000cd].[/COLOR][/SIZE]Range("B2:F2").Value = Array(ComboBox1.Value, TextBox1.Value, TextBox2.Value, _
                                   TextBox3.Value, TextBox4.Value, TextBox5.Value)
    Case "Phone Supplier"
        [SIZE=4][COLOR=#0000cd].[/COLOR][/SIZE]Range("B3:F3").Value = Array(ComboBox1.Value, TextBox1.Value, TextBox2.Value, _
                                   TextBox3.Value, TextBox4.Value, TextBox5.Value)
    Case "Broadband Supplier"
            ' [COLOR=#ff0000][I]add the rest yourself [/I][/COLOR]- which range applies to Broadband Supplier? 
  End Select
[COLOR=#0000cd]End With[/COLOR]
  ActiveWorkbook.Save
End Sub

 

[Patriot2879]

fantastic thank you for all your help