Textbox.caption to cell if empty, how?

[WTG]

I have a userform with a text box, that I've typed some information
into.
I now want to save that information to cell B1 on my "EmpData"
worksheet. but only if that cell is empty. if it's not, then writh the
text to cell B2.

What I thought I'd do was write an if statement that basicly says

if B(VAR)=" " Then
EmpData!B1 = TxtBox.caption
if not then Var=var+1

then just have it repeat itself over again.

and keep doing this adding a 1 to the Var until it finds a empty cell.

( B1,B2,B3,B4.....)

Can this be done?

I don't know VBA, and my VB is more then a little rusty.

Thanks for any help you can give me.

Wally

 

[GaryDK]

Hi WTG,

If you run this sub after unloading your userform, passing the textbox
text to it, this should handle it --

Sub EnterInfo(str As String)
Worksheets("EmpData").Range("B1").Activate
If Not IsEmpty(ActiveCell) Then
ActiveCell.End(xlToRight).Activate
End If
If ActiveCell.Column = 256 Then
MsgBox "Last cell in row is not empty!", vbExclamation
Else
ActiveCell.Value = str
End If
End Sub

I hope that this is useful,

Gary

 

[Tom Ogilvy]

Dim rng as Range
set rng = worksheets("EmpData").Cells(rows.count,2).End(xlup)
if not isempty(rng) then
set rng = rng.offset(1,0)
end if
rng.value = Userform1.Textbox1.Text

 

[Guest]

Try this

Sub TextToSheet()

Dim Rng As Range
Set Rng = Range("B1:B1000").Find(What:="")
Rng = Textbox1.Value

End Sub