Restricción en columnas

TREBUR · el 17 de mayo

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 · el 17 de mayo

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 · el 17 de mayo

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 · el 19 de mayo

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

Haplox · el 21 de mayo

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 · el 21 de mayo

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 · el 21 de mayo

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

igual deja colocar los caracteres o números

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

saludos,
hector.

Leopoldo Blancas · el 21 de mayo

Hace 23 minutos , Héctor Miguel dijo:

analiza este vídeo: KeyPress en celdas (aguanta la intro)

(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 · el 21 de mayo

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 · el 21 de mayo

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 · el 22 de mayo

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

Leopoldo Blancas · el 22 de mayo

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 ?)