Tema: Restringir entrada de datos y almacenar datos como números

hola a todos.acabo de unirme a esta pagina y debo decirles que he encontrado muchas cosas que me han sido de gran ayuda sobre todo en lo de las tablas dinamicas.pero ya que soy una neofita en lo que a programacion se refiere tengo un problema con una base de datos que estoy creando y es que cree un userform que me permite registrar los datos pero quiero que en los campos que dicen compañia y punto solo se admitan letras y en los demas parametros solo se admitan numeros.y ahi tango otro problema ya que cuando miro los datos en excel me dice que los numeros los toma como texto y no quiero eso ya que despues les voy a aplicar unas formulas de calculo y no puedo...........si alguien me puede ayudar se lo agradecere infinitamente

pdt: anexo el archivo base de datos.zip

buenas aunque no es la solucción real ni la más tecnica el truco que uso y me funciona pra el tema de lo números es el siguiente si por ejemplo los datos los introduces en el textbox1 y estos son para la celda A1 de la Hoja1 seria

Sheets("Hoja1").Range("A1").Value=(TextBox1.Value/10)*10

bueno chequeas y ya comentaras

un saludo

Hola ahilin:
Revisa el siguinete codigo....

Private Sub textBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 44 Or KeyAscii = 46 Then Exit Sub ' 44 y 46 son los codigos de los separadores decimales: "," y "."
'If Not (KeyAscii >= 48 And KeyAscii <= 57) Then ' del 48 ( cero ) al 57 ( nueve ), son los codigo de los numeros...
If Not (KeyAscii >= 65 And KeyAscii <= 122) Then ' del 65 ( a ) al 122 ( z ), son los codigo de las letras...
KeyAscii = 0
MsgBox "Solo se admiten Numeros", vbOKOnly + vbInformation, "AVISO"
End If
End Sub

..... y para que en la hoja de calculo los numeros introducidos a traves del Userform aparezcan como "numero". debes escribir en el codigo algo asi:

Private Sub TextBox1_Change()

Range("A18")= Val(TextBox1)

End Sub

Hola ahilin...Y Rolano:
.... yo pondria en el codigo del boton "Ejecutar", cuando aparece el formulario . este codigo: activesheet.Unprotect
y... en el boton "Finalizar", y en el evento QueryClose del userform.....:ActiveSheet.Protect

Quedando asi tu codigo....:

Sub Auto_open()
ActiveSheet.Unprotect
Load UserForm1
UserForm1.Show
End Sub

Private Sub CommandButton2_Click()
ActiveSheet.Protect
End
End Sub


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
ActiveSheet.Protect
End Sub

Con esto Protejes la hoja de calculo al cerrar el formulario y la Desprotejes al abrirlo....( sin contraseña...), y si quieres ponerle contraseña, la instruccion seria asi : Activesheet.Protect ( tu_clave ) y Activesheet.Unprotect ( tu_clave )

Gracias ahora ya funcina con todo lo que queria muy amables.......