Unificar varios Codigos

[JoaoM]

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?

[Gerson Pineda]

Hola JoaoM

Prueba el adjunto (como ya sabes siempre adjunta un archivo de ejemplo)

Y nos comentas que tal

Saludos

Limpiar TextboX_GP.zip

[JoaoM]

Gracias Gerson, MUY útil tu ayuda.

Te pregunto si es posible adaptar tu código presente para 4 controles.

ChekBox

OptionButton

TextBox

ComboBox

Para este libro mío, no lo necesito pero tengo algunos que tienen un cuadro con los 4 controles en Form y otros libros con 3 en Hoja y lo integraría porque me reduciría el tamaño del código y peso también

Este tuyo está para TextBoxs; desde 0 a 9 yo lo tengo hasta 10

TextBox" And (vi > 0 And vi < 11)[/CODE]

He tratado de agregarle IFs, ElseIFs, y End IFs y no me ha resultado, es más, he cambiado a este, "TextBox" por "ComboBox" y tampoco me da.

¿Pudiera darse para 4? o más tal como esta este tuyo, hasta 1 o hasta 30 o mas