Putting text in a cell

B

BWGames

OK, I must be missing something obvious here?

Worksheets("Sheet1").Select 'Select sheet1 sheet
Range("A5").Select ' Selects top row below title
Selection.EntireRow.Insert 'Inserts a new row at that point
MsgBox (TextBox1.Value)
Range("A5").Select
TextBox1.Text = ActiveCell.FormulaR1C1 'inserts name
TextBox2.Value = Range("E5").FormulaR1C1 'inserts county

It works fine up to MsgBox..where it displays the *correct* value.
Yet it won't insert it into a cell, using either Range..select then
ActiveCell.. or Range..Formula..

Just blank cells?

What am I missing here?

Thanks,

Ben
 
T

Tom Ogilvy

you have your assignments backwards:

Range("A5").Select
ActiveCell.Value = Textbox1.Text
Range("E5").Value = Textbox2.Text
 
B

BWGames

you have your assignments backwards:

Range("A5").Select
ActiveCell.Value = Textbox1.Text
Range("E5").Value = Textbox2.Text
Click to expand...

Changed it to

MsgBox (TextBox1.Text)
TextBox1.Text = Range("A5").Value 'inserts name

etc etc

MsgBox still works, but still blank in the cells...

Thanks,

Ben
 
T

Tom Ogilvy

If you want the value in the cell, then you should reverse the order of your
assignment

Range("A5").Value = Textbox1.Text

instead of your persistent entry of
TextBox1.Text = Range("A5").Value 'inserts name
Click to expand...

which you've already proven doesn't work and I already explained why it
doesn't work.

did you bother to read my previous response?
 
B

BWGames

If you want the value in the cell, then you should reverse the order of your
assignment

Range("A5").Value = Textbox1.Text

instead of your persistent entry of

which you've already proven doesn't work and I already explained why it
doesn't work.

did you bother to read my previous response?
Click to expand...

Ahh, got you now. Sorry, I didn't realise that the order made a difference.

Works now, thanks :)
 
Top