Textbox text into cell as formula

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
<news:<1152637835.834543.97580@p79g2000cwp.googlegroups.com>

> 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

Thanks, Cool. I subsequently found that the text needed to be trimmed
for some reason. I'll look into your suggestions, though. Cheers,
James
keepITcool wrote:
> 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
> <news:<1152637835.834543.97580@p79g2000cwp.googlegroups.com>
>
> > 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

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

--
Regards,
Tom Ogilvy



"Zone" wrote:

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

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

--
Regards,
Tom Ogilvy



"Zone" wrote:

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