Saltar al contenido
View in the app

A better way to browse. Learn more.

Ayuda Excel

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Unificar varios Codigos

publicado

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

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.