Saltar al contenido

Restricción en columnas


Recommended Posts

Buenas noches...

En el fichero adjunto tengo una serie de columnas a la que quisiera colocarle una restricción para evitar errores involuntarios con los usuarios que lo utilicen...

Cada columna tiene su comentario, pero la restricción es solo para las que dicen:

No se permiten números 0123456789
No se permiten caracteres especiales (!#$%&/()=?¿¡”*¨[ ] + { }:;)

¿Es posible con macro?

plant.xlsm

Enlace a comentario
Compartir con otras webs

Hace 6 horas, TREBUR dijo:

Cada columna tiene su comentario, pero la restricción es solo para las que dicen: 

Deberias comentar si es que no se paermite que la celda sea un numero, o si no se permite que  contenga algun numero, tipo EJE3MPLO

Enlace a comentario
Compartir con otras webs

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, j&
Dim caracter, item
 
caracter = Array("$", "%", "&", "/", """", "=")
If Intersect(Range("A:B"), Target) Is Nothing Then Exit Sub
 
 
'----- SI LA CELDA FUESE UN NUMERO -----
If Target.Column = 1 And IsNumeric(Target) Then
    MsgBox "No se permiten neros"
    Exit Sub
End If
 
'----- SI LA CELDA CONTUVIESE UN NUMERO -----
For i = 1 To Len(Target)
    If IsNumeric(Mid(Target, i, 1)) Then
        Target = ""
        MsgBox "No se permiten neros"
        Exit Sub
    End If
Next i
 
'----- SI LA CELDA CONTIENE UN CARACTER ESPECIAL -----
If Target.Column = 2 Then
    For Each item In caracter
        For j = 1 To Len(Target)
            If Mid(Target, j, 1) = item Then
                Target = ""
                MsgBox "No se permiten caracteres especiales"
                Exit Sub
            End If
        Next j
    Next item
End If
 
End Sub

 

Enlace a comentario
Compartir con otras webs

En 19/5/2019 at 17:18 , TREBUR dijo:

No me funciona

debes validar el valor introducido en la celda (con enter, o pasando a otra celda, etc). No hay manera de que VBA vaya reconociendo los dígitos según los introduces (al estilo como sí se hace en un textbox)

Enlace a comentario
Compartir con otras webs

Hace 23 minutos , Héctor Miguel dijo:
  1. analiza este vídeo: KeyPress en celdas (aguanta la intro)
  2. (a ver como) descargas el archivo mencionado

saludos,
hector.

Muchas Gracias @Héctor Miguel, Muy bueno!!!

Veo que es este mismo foro, pero años atrás. Incluso esta el nombre del compañero @Gerson Pineda.

Saludos!!!

 

Enlace a comentario
Compartir con otras webs

Hace 5 horas, Leopoldo Blancas dijo:

Veo que es este mismo foro, pero años atrás. Incluso esta el nombre del compañero @Gerson Pineda.

Saludos!!!

@Leopoldo Blancas ese foro también lo administramos, pero por costos de servidor, no se pudo sostener mas

Y si el aporte, no es mío, no vaya ser, que otros se "ofendan" :rolleyes:

@logroastur es de lo mejor que he visto, pasar por aquí

 

Saludos 

Enlace a comentario
Compartir con otras webs

Hace 11 minutos , Gerson Pineda dijo:

@Leopoldo Blancas ese foro también lo administramos, pero por costos de servidor, no se pudo sostener mas

Si veo a muchos de este foro que han estado en otros foros desde hace años 1995,...2004... yo apenas estoy empezando...2018?, apenas me di cuenta que existe el Internet jajaja, por eso me llevan años luz de distancia....(Yo ahorita en otro foro estoy consultando sobre cambiar la extensión de archivos y detecto que recomiendan usar la Instrucción Name 05/05/2004 ?)

 

Hace 16 minutos , Gerson Pineda dijo:

Y si el aporte, no es mío, no vaya ser, que otros se "ofendan" :rolleyes:

Creo que hay viejas rencillas.. ya olvidenlas, nada nos llevamos cuando partimos y nada es tan importante.

Hace 21 minutos , Gerson Pineda dijo:

@logroastur es de lo mejor que he visto, pasar por aquí

Si. Yo aquí sin ver... puedo detectar a unos 10 que para mi son excelentes!!!

Saludos.

Enlace a comentario
Compartir con otras webs

Archivado

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

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.