Add Value from Textbox to next cell in range
 

I have a range of cells (say A4:A400). My current plan is to call up a
userform with a button, the userform has a textbox. I want the value of the
textbox to populate the next blank cell in the range of cells when I select.
Anyone have any ideas?

Add Value from Textbox to next cell in range
 

This is what I have so far. However, this is leaving a blank cell at the top
of the range but I don't want it to.

Range(A4:A400).Find("", ActiveCell, Searchdirection:=x1Next).Select
ActiveCell.Value =Textbox1.Text

Any other ideas?

"mitch" wrote:

I have a range of cells (say A4:A400). My current plan is to call up a
userform with a button, the userform has a textbox. I want the value of the
textbox to populate the next blank cell in the range of cells when I select.
Anyone have any ideas?

Add Value from Textbox to next cell in range
 

Range("A4:A400").SpecialCells(xlCellTypeBlanks).Ce lls(1).Value =
Textbox1.Text

But if it is a number, you might want to explicitly make it one:

Range("A4:A400").SpecialCells(xlCellTypeBlanks).Ce lls(1).Value =
CDbl(Textbox1.Text)

HTH,
Bernie
MS Excel MVP


"mitch" wrote in message
...
This is what I have so far. However, this is leaving a blank cell at the
top
of the range but I don't want it to.

Range(A4:A400).Find("", ActiveCell, Searchdirection:=x1Next).Select
ActiveCell.Value =Textbox1.Text

Any other ideas?

"mitch" wrote:

I have a range of cells (say A4:A400). My current plan is to call up a
userform with a button, the userform has a textbox. I want the value of
the
textbox to populate the next blank cell in the range of cells when I
select.
Anyone have any ideas?