Mensajes

ninguno de los dos me sirvio no se por que

tengo otra preguntica que estoy bien dudoso y no me entra en la cabeza como hacerlo 

tengo un text1 en el cual meto un numero x que esta comprendido entre el 1 y el 100 entonces yo quiero que cuando metan supongamos el numero 37 en el text2 me quede lo que faltaria para llegar a 100 que seria 63

ya lo resolvi

Private Sub Text43_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Text45.Text = Val(Text3.Text) + Val(Text7.Text) + Val(Text11.Text) + Val(Text15.Text) + Val(Text19.Text) + Val(Text23.Text) + Val(Text27.Text) + Val(Text31.Text) + Val(Text35.Text) + Val(Text39.Text) + Val(Text43.Text)
Text45.Text = Val(Text45.Text) / Val(Text58)
End If
End Sub

el problema radica en que el resultado de toda la suma se encuentra en el textbox 45

y cuando hago esto

Text45.Text = Val(Text45.Text) / Val(Text58.Text)

me sale que el resultado es 0

y no es asi

ahora otro problemita que me a surgido tengo esto

Private Sub Text43_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Text45.Text = Val(Text3.Text) + Val(Text7.Text) + Val(Text11.Text) + Val(Text15.Text) + Val(Text19.Text) + Val(Text23.Text) + Val(Text27.Text) + Val(Text31.Text) + Val(Text35.Text) + Val(Text39.Text) + Val(Text43.Text)
End If
End Sub

ahora quiero que el resultado de esa suma se divida entre el numero que yo coloco en un textbox aparte

el textbox que meto el numero para dividir es el text58

si asi funciona pero yo queria era saber por que mi codigo no funcionaba

grax pero si me das una idea por que el codigo no funciona te lo agradeceria

me sigue saliendo el mismo error compile error: invalid user of property

21 el del 3 y 25 el del 7

pero antes no habia necesidad de nada de eso yo lo hacia simple con el codigo que habia puesto hacer rato pero la verdad no me acuerdo que es lo que hace falta

el tab index estaba en 21 lo puse en 20 y nada y en 22 y tampoco

se que es una pregunta muy tonta pero ya se me olvido del jarto tiempo que no programo

tengo un textbox 3 y un textbox 7 entonces quiero pasar del textbox3 al textbox 7 con presionar enter

tengo este codigo que busque pero no me sirve

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

por que me pasa del textbox 3 al textbox 4 y no me sirve por que lo quiero pasar es al 7

este codigo lo utilizaba antes

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text7.Text
End If
End Sub

se que falta algo pero no me acuerdo que es con ese si funcionaba pero cuando ejecuto el programa me dice compile invalid user property