Textbox

[aaguioli]

Hola ¡¡¡

Estoy asignando un textbox a una celda, pero no se como agregar las propiedades para que ese valor lo considere un numero, fecha, etc, ya que todos los valores me los devuelve a la celda como texto.

El código que estoy poniendo es el siguiente:

Private Sub TextBox1_Change()
Range("B2").Select
ActiveCell.FormulaR1C1 = TextBox1

End Sub

De antemano gracias por la respuesta.

Saludos Cordiales,
Alberto.

 

[Greg Truby]

Por un buen rato me tuvo perplejo porque creí que usted estaba hablando de un TextBox de tipo Shape. Por fin me di cuenta que estaba hablando de un TextBox en un UserForm...

Creo que algo como el siguiente le serviría:

<font face=Courier New>

<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> TextBox1_Exit(<SPAN style="color:#00007F">ByVal</SPAN> Cancel <SPAN style="color:#00007F">As</SPAN> MSForms.ReturnBoolean)
    <SPAN style="color:#00007F">Dim</SPAN> varX <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Variant</SPAN>
    varX = TextBox1.Value
    <SPAN style="color:#00007F">If</SPAN> IsDate(varX) <SPAN style="color:#00007F">Then</SPAN>
        [B2] = <SPAN style="color:#00007F">CDate</SPAN>(varX)
    <SPAN style="color:#00007F">ElseIf</SPAN> IsNumeric(varX) <SPAN style="color:#00007F">Then</SPAN>
        [B2] = <SPAN style="color:#00007F">CDbl</SPAN>(varX)
    <SPAN style="color:#00007F">Else</SPAN>
        [B2] = varX
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

Saludos