Ayuda con macros..

HOla, que tal..

Haber si alguien le entiende a las macros...

Yo apenas un poco

Tengo lo siguiente

Private Sub TextBox3_Change()
Range("C9").FormulaR1C1 = TextBox3
End Sub

Por decir, con esta macro me escribe lo que yo le diga... pero al meter un numero, me lo da como texto, asi qe al querer sumarlo, no lo hace. por ser texto.

SI alguien supiera como hacerle para que en vez de terminar con formato texto, lo haga en formato numero, contabilidad...

De antemano, muchas gracias!!..

Hola Oscar, prueba
Range("c9")= Textbox3
range("c9")=range("c9").value

o
range("c9")=range("c9") + 0

de hecho asi como la tienes si te debe sumar, solo que te deja el formato de general a la celda, te pongo un archivito de excel para que veas un ejemplo de textbox, en una forma que se oculta, espero te sirva

saludos

..Muchas gracias...ya lo probe y si me funciono...

ME ha sido de gran ayuda...

Saludos..!!

que bueno que se resolvio la duda, yo me hubiera más lejos usando:
La Función InputBox.
Esta función muestra una ventana para que el usuario pueda teclear datos. Cuando se pulsa sobre
Aceptar, los datos entrados pasan a la variable a la que se ha igualado la función.
Sintaxis de InputBox.
InputBox(Mensaje, Título, Valor por defecto, Posición horizontal, Posición Vertical, Archivo ayuda, Número de contexto para la ayuda).
Mensaje : Es el mensaje que se muestra en la ventana. Si desea poner más de una línea ponga Chr(13) para cada nueva línea, vea el ejemplo siguiente.
Título : Es el título para la ventana InputBox. Es un parámetro opcional.
Valor por defecto: Es el valor que mostrará por defecto el cuadro donde el usuario entra el valor.
Parámetro opcional.
Posición Horizontal: La posición X de la pantalla donde se mostrará el cuadro, concretamente es la posición para la parte izquierda. Si se omite el cuadro se presenta horizontalmente centrado a la pantalla.
Posición Vertical: La posición Y de la pantalla donde se mostrará el cuadro, concretamente es la posición para la parte superior. Si se omite el cuadro se presenta verticalmente centrado a la pantalla.
Archivo Ayuda: Es el archivo que contiene la ayuda para el cuadro. Parámetro opcional.
Número de contexto para la ayuda: Número asignado que corresponde al identificador del
archivo de ayuda, sirve para localizar el texto que se debe mostrar. Si se especifica este
parámetro, debe especificarse obligatoriamente el parámetro Archivo Ayuda.

Sub Entrar_Valor
ActiveSheet.Range("A1" ).Value = InputBox("Introducir un texto " & Chr(13) & "Para la casilla
A1", "Entrada de datos" )
End Sub

Asi me evito el hacer un UserForm que no es necesario

..BUeno.. dandole a otra duda.. jeje

Estoy terminado mi proyecto... bueo. aprendiendo...

Tengo esto..

---

Private Sub CommandButton1_Click()
Range("A9" ).Select
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
INSERTA_DATOS.Hide
End Sub

Private Sub TextBox1_Change()
Range("A9" ).FormulaR1C1 = TextBox1
End Sub

Private Sub TextBox2_Change()
Range("B9" ).FormulaR1C1 = TextBox2
End Sub

Private Sub TextBox3_Change()
Range("C9" ).FormulaR1C1 = TextBox3
End Sub

Private Sub TextBox4_Change()
Range("D9" ).FormulaR1C1 = TextBox4
Range("D9" ) = Range("D9" ).Value
End Sub

Private Sub TextBox5_Change()
Range("E9" ).FormulaR1C1 = TextBox5
Range("E9" ) = Range("E9" ).Value
End Sub

Private Sub TextBox6_Change()

....aqui no se que poner


End Sub

---

Se me hace bien lo qe tengo, pero me falta algo, que el textbox 4 y el texbox 5, me lo sume en el textbox 6...y que me aparezca al mismo tiempo en mi userform, al momento de capturar en los textbox 4 y 5 mas no se que formula ponerle...

Gracias de antemano...

Hola Oscar

la forma de hacer que funcione en tu ejemplo seria modificar las lineas de Private Sub TextBox4_Change() y Private Sub TextBox5_Change()

asi

Private Sub TextBox4_Change()
Range("D9").FormulaR1C1 = TextBox4
Range("D9") = Range("D9").Value
TextBox6 = Range("d9") + Range("e9")
End Sub
Private Sub TextBox5_Change()
Range("E9").FormulaR1C1 = TextBox5
Range("E9") = Range("E9").Value
TextBox6 = TextBox4 + TextBox5
TextBox6 = Range("d9") + Range("e9")
End Sub


ahora, veo que estas iniciando esto de las macros y formularios, esto se puede simplificar, buscale como hasta ahorita, ve por ejemplo, cuando seleccionas el textbox, la lista de propiedades, busca el que dice "ControlSource", aca le puedes poner una referencia a una celda con un nombre definido en el archivo de excel, que no este en la hoja actual, en fin, buscale, buscale, jeje

edit te paso un archivo de texto por aquello de la