Anónimo
Pegar datos de un textbox a excel
Hola experto tengo una consulta no se si puedas ayudarme.
Mi problema es el siguiente, estoy utilizando códigos vba para pegar datos de un textbox a una celda en excel mediante un UserForm.
Private Sub Txt119_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Txt119.Value = Format(Txt119, " #,##0.00")
End Sub
Estos códigos hacen la siguiente función, que cuando yo ingreso un numero dentro de el, por ejemplo 1200 y paso al siguiente el textbox me tira este formato 1,200.00 y ahí todo esta bien, pero como utilizo estos códigos también para pegar estos datos en excel
Private Sub CommandButton1_Click()
Sheets("Sol-Crédito").Range("E20") = Txt219
End sub
Entonces estos códigos hacen que se peguen los datos en excel, pero mi problema es que cuando se pegan los datos en excel, la celda lo reconoce como un texto y no como numero y yo necesito que la celda lo reconozca como numero.
Gracias por tu ayuda, me quedo en espera de tu respuesta
Mi problema es el siguiente, estoy utilizando códigos vba para pegar datos de un textbox a una celda en excel mediante un UserForm.
Private Sub Txt119_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Txt119.Value = Format(Txt119, " #,##0.00")
End Sub
Estos códigos hacen la siguiente función, que cuando yo ingreso un numero dentro de el, por ejemplo 1200 y paso al siguiente el textbox me tira este formato 1,200.00 y ahí todo esta bien, pero como utilizo estos códigos también para pegar estos datos en excel
Private Sub CommandButton1_Click()
Sheets("Sol-Crédito").Range("E20") = Txt219
End sub
Entonces estos códigos hacen que se peguen los datos en excel, pero mi problema es que cuando se pegan los datos en excel, la celda lo reconoce como un texto y no como numero y yo necesito que la celda lo reconozca como numero.
Gracias por tu ayuda, me quedo en espera de tu respuesta
Respuesta de snaki Fco
1
Su puedo ayudarte, lo que necesitas es un Cint, para volver ese texto a numero
Y esto se hace así
valor = TextBox1.Value ' tomamos el valor del textbox1
ActiveCell = CInt(valor) ' pegamos el valor en la celda actual con el cint a variable valor
ActiveCell.NumberFormat = "#,##0" ' cambiamos el formato a numérico.
Cualquier duda me consultas, No olvides Finalizar y puntear!
Suerte!
Y esto se hace así
valor = TextBox1.Value ' tomamos el valor del textbox1
ActiveCell = CInt(valor) ' pegamos el valor en la celda actual con el cint a variable valor
ActiveCell.NumberFormat = "#,##0" ' cambiamos el formato a numérico.
Cualquier duda me consultas, No olvides Finalizar y puntear!
Suerte!