Quick and probably easy question.

[SuperSean]

Heya gang,

I know I've surpassed my newbie questions for the day but maybe you could help with this real quick.

Got a user form (from Mr.Excell's example in the tips of the week from long ago, this is the "OK" button.)

See where it says Range("A2")?
Is there any way to put a variable in there that'll let the info be printed on the next available line?

Private Sub CommandButton1_Click()
Worksheets("Sheet3").Range("A2") = UserForm1.ComboBox1.Value
UserForm1.Hide
End Sub

 

[Damon Ostrander]

Hi SuperSean,

Just change the line to:

Worksheets("Sheet3").[a65536].End(xlUp) = UserForm1.ComboBox1.Value

 

[SuperSean]

Thanks a bunch!

I have one question left about this though.
I'm just trying to figure out what I'm telling excell.

Worksheets("Sheet3").[a65536].End(xlUp) = UserForm1.ComboBox1.Value

[a65536] - What's this and where did it come from????

I understand the rest, thanks for the help!

 

[SuperSean]

Hrmnnn,

Seems I answered my own question here. The a65536 is a cell reference way way down at the bottom of the sheet, then with end(xlup) we go to the nearest available line (from bottom) my problem now is that it replaces the text in that row instead of moving down one each time. What I need is for data to appear in A2 the first time I choose, A3 the second time ect..

Any ideas?

 

[waderw]

Try going from the current line DOWN. Should be much faster than starting at the bottom and going up.

Worksheets("Sheet3").[A1].End(xlDown) = UserForm1.ComboBox1.Value
'move to the next cell
Activecell.offsett(1,0).select

'continue from here