Restricción en columnas

[TREBUR]

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

[Haplox]

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

[Haplox]

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

 

[TREBUR]

No me funciona, en algunas celdas arroja el comentario pero igual deja colocar los caracteres o números...

[Haplox]

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)

[Dr Hyde]

prueba esta macro, teclea en cualquier celda un nombre y añade numeros Y/o caracteres, la macro te indicara que no admite caracteres diferentes a letas y te pedira que tecles un nombre 

restriccion.xlsm

[Héctor Miguel]

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

igual deja colocar los caracteres o números

1. analiza este vídeo: KeyPress en celdas (aguanta la intro)
2. (a ver como) descargas el archivo mencionado

saludos,
hector.

[Leopoldo Blancas]

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!!!

 

[Héctor Miguel]

Hace 39 minutos , Leopoldo Blancas dijo:

Muy bueno!!!

el "logro" es de "astur" (se entiende ?), así que el agradecimiento es para él

saludos,
hector.

[Leopoldo Blancas]

Ahora mismo, Héctor Miguel dijo:

el "logro" es de "astur" (se entiende ?), así que el agradecimiento es para él

saludos,
hector.

Si, pero.... gracias por compartir...!!!

Saludos

[Gerson Pineda]

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" 

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

 

Saludos 

[Leopoldo Blancas]

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" 

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.

[TREBUR]

Gracias a todos, saludos!!!