Textbox.caption to cell if empty, how?

  • Thread starter Thread starter WTG
  • Start date Start date
W

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
 
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
 
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
 
Try this

Sub TextToSheet()

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

End Sub
 
Back
Top