Insert new row with data

[pacov]

I want to insert new row with data from textboxes in userform. For example, before clicking on button in userform Sheet1 loooks like this:

A2	NAME	PRICE
A3	GROUP 1	X
A4	GROUP 2	X

<tbody>
</tbody>

But after clicking button on userform Sheet1 I would to achieve this:

A2	NAME	PRICE
A3	GROUP 1	X
A4	TEXTBOX1.VALUE	TEXTBOX2.VALUE
A5	GROUP 2	X

<tbody>
</tbody>

The new row will be inserter bellow group 1 or group 2 depending by value of dropmenu (Group 1, Group 2) in userform. Can you help me

 

[AlphaFrog]

Try something like this. The "dropdown" is ComboBox1

[color=darkblue]Private[/color] [color=darkblue]Sub[/color] CommandButton1_Click()
    [color=darkblue]Dim[/color] Found [color=darkblue]As[/color] Range
    [color=darkblue]If[/color] Me.ComboBox1.Value <> "" [color=darkblue]Then[/color]
        [color=darkblue]Set[/color] Found = Range("A:A").Find(What:=Me.ComboBox1.Text, _
                                      LookIn:=xlValues, _
                                      LookAt:=xlWhole, _
                                      MatchCase:=False)
        [color=darkblue]If[/color] [color=darkblue]Not[/color] Found [color=darkblue]Is[/color] [color=darkblue]Nothing[/color] [color=darkblue]Then[/color]
            Found.Offset(1).EntireRow.Insert
            Found.Offset(1).Resize(, 2).Value = Array(Me.TextBox1.Text, Me.TextBox2.Text)
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]End[/color] [color=darkblue]If[/color]
End [color=darkblue]Sub[/color]