operacion en cuadro de texto

Hola fredy,

si tu cuadro de texto se llama textbox1 puedes hacer algo como esto:

Private Sub CommandButton1_Click()
Range("A1").Formula = "=" & TextBox1.Text
End Sub

Un saludo,
Juan



"fredy" escribió

quisiera saber que debo hacer para que al digitar 1/4 en un cuadro de text
,
éste lo tome como 0.25 al pasarlo a la celda a1, en pocas palabras que si
se
coloca una operacion aritmetica ya sea suma multiplicacion division o
resta
al dar aceptaren el formulario se realice esla operacion y ponga el
resultado
en la celda a1

muchas gracias

funciona... muchas gracias Juan... y otra preguntica... en caso de querer
guardar el dato de texbox1 en una variable que debo hacer?
muchas gracias
"Juan M" wrote:

Hola fredy,

si tu cuadro de texto se llama textbox1 puedes hacer algo como esto:

Private Sub CommandButton1_Click()
Range("A1").Formula = "=" & TextBox1.Text
End Sub

Un saludo,
Juan



"fredy" escribió
> quisiera saber que debo hacer para que al digitar 1/4 en un cuadro de text
> ,
> éste lo tome como 0.25 al pasarlo a la celda a1, en pocas palabras que si
> se
> coloca una operacion aritmetica ya sea suma multiplicacion division o
> resta
> al dar aceptaren el formulario se realice esla operacion y ponga el
> resultado
> en la celda a1
>
> muchas gracias

Hola fredy,

si es lo que esta escrito en el textbox algo asi:

Dim miVariable as string
miVariable = Textbox1.Text

Si es el valor de la operación, después de realizar la operación pon esto,
miVariable = Range("A1").Value

Un saludo,
Juan


"fredy" escribió

funciona... muchas gracias Juan... y otra preguntica... en caso de querer
guardar el dato de texbox1 en una variable que debo hacer?
muchas gracias
"Juan M" wrote:

Hola fredy,

si tu cuadro de texto se llama textbox1 puedes hacer algo como esto:

Private Sub CommandButton1_Click()
Range("A1").Formula = "=" & TextBox1.Text
End Sub

Un saludo,
Juan



"fredy" escribió
> quisiera saber que debo hacer para que al digitar 1/4 en un cuadro de
> text
> ,
> éste lo tome como 0.25 al pasarlo a la celda a1, en pocas palabras que
> si
> se
> coloca una operacion aritmetica ya sea suma multiplicacion division o
> resta
> al dar aceptaren el formulario se realice esla operacion y ponga el
> resultado
> en la celda a1
>
> muchas gracias

hola chicos,

otra posibilidad, y solo porque lo habia hecho antes de ver la
respuesta de Juan (que me parece bastante mas senculla, es decir,
mejor)


Sub Operar(txt As MSForms.TextBox, celda As Range)
On Error Resume Next
celda.Value = Application.Evaluate(txt.Text)
End Sub

' en el boton para poner el resultado en la primera celda vacia
' (por debajo de A1)
'
Private Sub CommandButton1_Click()
Operar TextBox1, [a65536].End(xlUp).Offset(1)
End Sub


un saludo
Ivan

Hola Ivan,

Pues la verdad es que la que has escrito tú es igual de sencilla, y lo de
mejor debería comprobarse en cada ocasión.

Un saludo,
Juan

"Ivan" escribió

hola chicos,

otra posibilidad, y solo porque lo habia hecho antes de ver la
respuesta de Juan (que me parece bastante mas senculla, es decir,
mejor)


Sub Operar(txt As MSForms.TextBox, celda As Range)
On Error Resume Next
celda.Value = Application.Evaluate(txt.Text)
End Sub

' en el boton para poner el resultado en la primera celda vacia
' (por debajo de A1)
'
Private Sub CommandButton1_Click()
Operar TextBox1, [a65536].End(xlUp).Offset(1)
End Sub


un saludo
Ivan