Userform Help!!

[Excelnoobisme]

Hi,

I have 5 optionbutton and 1 textbox and 1 command button.

The 5 optionbutton are name "A,B,C,D,E" and the textbox is for inputting amount.

how can i set it as if Optionbutton A is selected and amount key in, when i press ok it will paste the amount in Cell A1. If the next amount is still with optionbutton A, the amount will be paste in Cell A2.

If optionbutton C is selected next, the amount will be key in on Cell C1.

and so on.....

Thanks

 

[jamieleeuk]

Do you have a sample file we could have a play with?

 

[Ruddles]

Maybe something along these lines:-

[FONT=Fixedsys]Option Explicit[/FONT]
 
[FONT=Fixedsys]Private Sub [COLOR=red]CommandButton1[/COLOR]_Click()[/FONT]
 
[FONT=Fixedsys]  Dim btn As Control[/FONT]
[FONT=Fixedsys]  Dim iLast As Long[/FONT]
 
[FONT=Fixedsys]  For Each btn In [COLOR=red]UserForm1[/COLOR].Controls[/FONT]
[FONT=Fixedsys]    If btn.Value = True Then[/FONT]
[FONT=Fixedsys]      iLast = Cells(Rows.Count, btn.Name).End(xlUp).Row[/FONT]
[FONT=Fixedsys]      If IsEmpty(Range(btn.Name & iLast)) Then iLast = iLast - 1[/FONT]
[FONT=Fixedsys]      Range(btn.Name & iLast + 1) = [COLOR=red]TextBox1.Value[/COLOR][/FONT]
[FONT=Fixedsys]    End If[/FONT]
[FONT=Fixedsys]  Next btn[/FONT]
 
[FONT=Fixedsys][COLOR=red]  TextBox1[/COLOR] = ""[/FONT]
 
[FONT=Fixedsys]End Sub[/FONT]

(This assumes that you've used the names UserForm1, CommandButton1 and TextBox1. Code tested and working here.)