Problema con punto en formulario de captura numérica
Hola buen día,
Tengo una laptop en la cual debo realizar capturas de números, lo cual me provoca muchos errores ya que el teclado es difícil de manejar, en fin, para evitarlo creé un formulario muy sencillo y funciona bien hasta que presiono el botón con caption . (punto) ya que no me deja ingresarlo después de cualquier número que ponga, la pregunta es cómo puedo solucionar esto? El código es:
Private Sub CommandButton1_Click()
ActiveCell = ActiveCell & CommandButton1.Caption
End Sub
Private Sub CommandButton2_Click()
ActiveCell = ActiveCell & CommandButton2.Caption
End Sub
Private Sub CommandButton3_Click()
ActiveCell = ActiveCell & CommandButton3.Caption
End Sub
Private Sub CommandButton4_Click()
ActiveCell = ActiveCell & CommandButton4.Caption
End Sub
Private Sub CommandButton5_Click()
ActiveCell = ActiveCell & CommandButton5.Caption
End Sub
Private Sub CommandButton6_Click()
ActiveCell = ActiveCell & CommandButton6.Caption
End Sub
Private Sub CommandButton7_Click()
ActiveCell = ActiveCell & CommandButton7.Caption
End Sub
Private Sub CommandButton8_Click()
ActiveCell = ActiveCell & CommandButton8.Caption
End Sub
Private Sub CommandButton9_Click()
ActiveCell = ActiveCell & CommandButton9.Caption
End Sub
Private Sub CommandButton10_Click()
ActiveCell = ActiveCell & CommandButton10.Caption
End Sub
Private Sub CommandButton11_Click()
ActiveCell = ActiveCell.Value & CommandButton11.Caption
End Sub
el problema es en el command button 11, ya lo probé cambiando el commandbutton11.caption por "." e intenté con varios formatos pero nada.
Gracias!!!
1 Respuesta
Te anexo mi archivo para que veas el código. Agregué en mi formulario una etiqueta para controlar el punto. En la hoja y en el formulario encontrarás mis comentarios.
https://www.dropbox.com/s/13279fwr3w52n44/punto%20decimal.xlsm
hola, no pude abrir tu liga, me dice que no está más disponible.
Saludos
El código del commandbutton que tienen números quedaría así:
Private Sub CommandButton1_Click() ActiveCell = ActiveCell & Label1.Caption & CommandButton1.Caption If Label1 = "." Then Label1 = "" End Sub Private Sub CommandButton2_Click() ActiveCell = ActiveCell & Label1.Caption & CommandButton2.Caption If Label1 = "." Then Label1 = "" End Sub Private Sub CommandButton3_Click() ActiveCell = ActiveCell & Label1.Caption & CommandButton3.Caption If Label1 = "." Then Label1 = "" End Sub
El código para el punto:
Private Sub CommandButton11_Click() If ActiveCell - Int(ActiveCell) = 0 Then If Label1 = "." Then Label1 = "" Else Label1 = "." End If End Sub
Tienes que agregar un label a tu formulario que se llame label1. Si no quieres que se vea ese label puedes ocultarlo así:
Private Sub UserForm_activate() Label1.Visible = False End Sub
Si no te queda claro cómo es el funcionamiento dame tu correo para enviarte mi archivo.
Saludos. Dante Amor
Si es lo que necesitas finaliza la pregunta
