Después de haber recorrido varios (MUCHOS) temas, encontré para limpiar y dar propiedades a varios controles unificados en una sola rutina pero, no he encontrado nada que me pidiera guiar sobre lo que sigue, aunque trate de hacer algo partiendo de rutinas para limpiar varios controles, (OptionButton, TextBox, ComboBox, CheckBox) controles dentro de un form o directamente en una hoja.
En mi caso presente están en una hoja (Hoja1) y NO en un formulario
LO que no logre es para unificar los 6 TextBox, una sola rutina
Van desde el TextBox6 hasta el 8 y luego del 12 al 14
Private Sub TextBox6_GotFocus()
Application.ScreenUpdating = False
Label1.Caption = "FORMATO DE FECHA: La fecha que inserte, tiene que ser de formato, Ej.: 00/00/0000" _
& vbCr & "Tome mui en cuenta el formato de ejemplo"
Application.ScreenUpdating = True
End Sub
Private Sub TextBox6_LostFocus()
Application.ScreenUpdating = False
Label1.Caption = ""
Application.ScreenUpdating = True
End Sub[/CODE]
La otra es unificar para los 3 textBox que van del TextBox9 al 11
[CODE]Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not (KeyAscii >= 48 And KeyAscii <= 57) Then
KeyAscii = 0
MsgBox "Cant. Entrada SOLO admite valor numérico", vbOKOnly + vbInformation, Title:="CARACTER NULO"
End If
End Sub[/CODE]
También existe el problema si los TextBox no tienen como nombre TextBox? y si txtNomb, txtTelf, txtDir, oct. oct.
El 1º la finalidad es al recibir el focus, recomendar como pueden ver en el caption del Label y luego blanquear el Label al perder el focus. El 2º es solo para permitir Caracteres numéricos
¿Haría entender mi petición? yo le llamaría Optimizar el código
¿Se puede hacer algo?
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Después de haber recorrido varios (MUCHOS) temas, encontré para limpiar y dar propiedades a varios controles unificados en una sola rutina pero, no he encontrado nada que me pidiera guiar sobre lo que sigue, aunque trate de hacer algo partiendo de rutinas para limpiar varios controles, (OptionButton, TextBox, ComboBox, CheckBox) controles dentro de un form o directamente en una hoja.
En mi caso presente están en una hoja (Hoja1) y NO en un formulario
LO que no logre es para unificar los 6 TextBox, una sola rutina
Van desde el TextBox6 hasta el 8 y luego del 12 al 14
La otra es unificar para los 3 textBox que van del TextBox9 al 11
If Not (KeyAscii >= 48 And KeyAscii <= 57) Then
KeyAscii = 0
MsgBox "Cant. Entrada SOLO admite valor numérico", vbOKOnly + vbInformation, Title:="CARACTER NULO"
End If
End Sub[/CODE]
También existe el problema si los TextBox no tienen como nombre TextBox? y si txtNomb, txtTelf, txtDir, oct. oct.
El 1º la finalidad es al recibir el focus, recomendar como pueden ver en el caption del Label y luego blanquear el Label al perder el focus. El 2º es solo para permitir Caracteres numéricos
¿Haría entender mi petición? yo le llamaría Optimizar el código
¿Se puede hacer algo?