Textbox text into cell as formula

  • Thread starter Thread starter Zone
  • Start date Start date
Z

Zone

On my userform, I have a textbox that displays a formula from a cell.
I want to edit the formula in the textbox and, when I click OK, put the
text back into the cell as a formula.
activecell.formula = me.textbox1 puts it in as text. TIA, James
 
I dont know what's in your textbox.. but
ActiveCell.Formula = "=Sum(b1:b10)" works for me.

Your routine must check that the string starts with "="

NOTE:
Personally I'd use FormulaLOCAL to interact between textbox and range.
as this will contain the language and separators the user expects.


--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Zone wrote in
 
You code worked for me, but this did as well which might be a bit more robust:

Private Sub CommandButton1_Click()
Dim s As String, sf as String
s = Trim(TextBox1.Text)
sf = ActiveCell.Numberformat
ActiveCell.NumberFormat = "General"
If Left(s, 1) <> "=" Then
s = "=" & s
End If
ActiveCell.Formula = s
ActiveCell.Numberformat = sf
End Sub
 
Thanks, Cool. I subsequently found that the text needed to be trimmed
for some reason. I'll look into your suggestions, though. Cheers,
 
Back
Top