¿como validar el contenido de una celda en excel?

[coopernico46]

Buenos días

Estoy elaborando un ficherito para facilitarme la vida en el trabajo y me he topado con un problema que paso a detallaros por si alguno pudiera ayudarme.

Pues bien, el caso es que me gustaría evitar que en una celda se tecleara cualquiera de los siguientes valores:

\/:%'*?<>|"

He probado ha hacerlo con la opción: Datos--> Validación, pero no encuentro manera de permitir cualquier valor (alfanumérico o símbolo) y a la vez prohibir el uso de los anteriormente citados.

¿Alguien ha tenido alguna vez este mismo problema?

Muchas gracias a todos

[coopernico46]

Hola,

Buenas tardes a todos.

He localizado una formula que a priori permite realizar, en parte, lo que necesito:

=SI(E1="!",0,1)

Pero me surge la duda de como incluir en esta formula mas caracteres prohibidos, por ejemplo * ' / \ % , etc...

¿Alguien puede indicarme como modificar la formula para que no solo controle el símbolo "!" ?

Muchas gracias

[mrocf]

Hola! Coopérnico46.
La validación de datos " no se lleva bien" con listas de lo que "no" se debe permitir...
En realidad: debes indicarle lo que SÍ se debe permitir.

Por lo tanto la alternativa sería manejar el tema desde el evento Change de la hoja. Por ejemplo:

a) Haz clic con el botón derecho de tu ratón en la solapa de la hoja y selecciona Ver código.

b) En la ventana que se te abrirá, copia y pega lo siguiente:

Código vba:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$E$1" Then Exit Sub
 
If Evaluate("SUMPRODUCT( --ISNUMBER( SEARCH({""\"",""/"","":"",""%"",""'"",""~*"",""~?"",""<"","">"",""|"",""""""""}, E1) ) )") > 0 Then
  With Application
    .EnableEvents = False
    .Undo
    .EnableEvents = True
  End With
End If
 
End Sub
 

c) Cierra todas las ventanas del ambiente Visual Basic for Application en el que te encuentras y retorna al Excel.

d) A partir de ese momento, ninguno de los 11 caracteres que indicaras será permitido en la celda [E1].

Saludos, Cacho.

[coopernico46]

Muchas Gracias MRcof

Es lo que necesitaba.
Unicamente, dado que no tengo ni idea de programación... ¿podria hacerte una consulta más?

Tras incorporar tu código no si introduzco alguno de los 11 caracteres prohibidos me lo borra directamente. ¿se puede modificar tu código para que muestre una ventana de error con un texto indicativo del tipo "caracter no valido" o similar?

Por ultimo, si fueras tan amable, ¿podrias indicarme también qué modificación habría que incluir en el código para extender las celdas con estas prohibiciones de la celda E1 a la E100?

Muchísimas gracias por todo.
Un saludo

[mrocf]

Hola! Coopérnico46.

Podrías intentar con:

Código vba:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [e1:e100]) Is Nothing Then Exit Sub
 
If Evaluate("SUMPRODUCT( --ISNUMBER( SEARCH({""\"",""/"","":"",""%"",""'"",""~*"",""~?"",""<"","">"",""|"",""""""""}, " & Target.Address & ") ) )") > 0 Then
  MsgBox "Se ha introducido un caracter inválido..."
End If
End Sub
 

Saludos, Cacho.

[coopernico46]

Muchas gracias por la respuesta.


Eres un genio

[mrocf]

¡Qué bueno que te haya sido de utilidad...!

Saludos, Cacho.

[ika364]

buenas estaba estudiando el foro y me ha servido mucho para crear un formulario de base de datos

me preguntaba si alguien me puede ayudar con una duda que tengo?

quiero que en una celda se ingrese este tipo de texto A-1 908283 es un id personal como un seguro social, pero cuando escriban cualquier texto ejemplo 0, no hay, extraviado, etc, no deje escribir nada, como cuando uno da validacion de datos y pone regla.

si alguien me puede ayudar se los agradecere mucho gracias