Unir dos validaciones de campo para una hoja excel

[coopernico46]

Buenos días

me gustaria saber si alguien puede ayudarme porque no logro dar con la solución a mi problema.

El caso es que tengo una hoja excel donde uso 2 columnas, (A y B)

En la columna B controlo que no se introduzcan caracteres como * - / etc.. con el siguiente código

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b6:b301]) Is Nothing Then Exit Sub

If Evaluate("SUMPRODUCT( --ISNUMBER( SEARCH({""\"",""/"","":"",""%"",""'"",""~*"",""~?"",""<"","">"",""| "",""""""""}, " & Target.Address & ") ) )") > 0 Then
MsgBox "Se ha introducido un caracter inválido. No se permiten los siguientes caracteres \ / : % ' * ? < > | """
End If
End Sub

Pero ahora estoy interesado en controlar que siempre que en el campo A aparezca el valor "Ventana_Nueva" aparezca otro aviso semejante al que aparece en el campo B (ver código)

¿puede ayudarme alguien?

Muchas gracias

[JoaoM]

Hace el cambio de estas dos lineas
If Intersect(Target, [a6:b301]) Is Nothing Then Exit Sub 'El rango puedes cambiarlo a tu necesidad

If Evaluate("SUMPRODUCT( --ISNUMBER( SEARCH({"" "",""Nueva_Ventana"",""\"",""/"","":"",""%"",""'"",""~*"",""~?"",""<"","">"",""| "",""""""""}, " & Target.Address & ") ) )") > 0 Then

MsgBox "Se ha introducido en la celda, palabra o caracter," & vbCr & vbCrLf & "NO PERMITIDOS; Nueva_Ventana \ / : % ' ~* ~? < > | " & vbNewLine & "y espacio entre cualquier caracter", vbExclamation, "ERROR"

Si quieres utilisar el espaciador, elimina la parte "" "", y en el mensage la parte & vbCrLf & "y espacio entre cualquier caracter"

Puede que alguien mas conocedor de la materia, pueda hacerlo mejor, pues yo muy poco conozco de programacion

Podiera tambien hacer que luego de presentar el mensage, eliminara el contenido de la celda para volver a escribirle

[coopernico46]

Hola JoaoM

No se si será posible pero me gustaria que las comprobaciones no se hicieran por separado, es decir por un lado para el rango b6:b301 y por otro para el rango a6:a301 pues es posible que en la columna B se llegue a escribir "Ventana_Nueva" y en esa columna no tendria que salir ningún aviso.

Es decir, lo que necesito es (de alguna forma) agregar al codigo actual nuevas líneas para mostrar un mensaje similar al que aparece ene l columna B pero en la Columna A (en este caso cuando se cumpla la condición de que el valor de celda sea "Nueva_Ventana".


Muchas gracias

[coopernico46]

Iniciado por coopernico46

Buenos días

me gustaria saber si alguien puede ayudarme porque no logro dar con la solución a mi problema.

El caso es que tengo una hoja excel donde uso 2 columnas, (A y B)

En la columna B controlo que no se introduzcan caracteres como * - / etc.. con el siguiente código

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b6:b301]) Is Nothing Then Exit Sub

If Evaluate("SUMPRODUCT( --ISNUMBER( SEARCH({""\"",""/"","":"",""%"",""'"",""~*"",""~?"",""<"","">"",""| "",""""""""}, " & Target.Address & ") ) )") > 0 Then
MsgBox "Se ha introducido un caracter inválido. No se permiten los siguientes caracteres \ / : % ' * ? < > | """
End If
End Sub

Pero ahora estoy interesado en controlar que siempre que en el campo A aparezca el valor "Ventana_Nueva" aparezca otro aviso semejante al que aparece en el campo B (ver código)

¿puede ayudarme alguien?

Muchas gracias

Ya me facilitaron una solución a mi problema.


Gracias Ioyama.


Os dejo el código por si os puede ser util.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A6:B301]) Is Nothing Then Exit Sub
If Target.Column = 2 Then
If Evaluate("SUMPRODUCT( --ISNUMBER( SEARCH({""\"",""/"","":"",""%"",""'"",""~*"",""~?"",""<"","">"",""| "",""""""""}, " & Target.Address & ") ) )") > 0 Then
MsgBox "Se ha introducido un caracter inválido. No se permiten los siguientes caracteres \ / : % ' * ? < > | """
End If
End If
If Target.Column = 1 Then
If Target = "Nueva_Ventana" Then
MsgBox "Hola, te has equivocado"
End If
End If
End Sub

[coopernico46]

Iniciado por coopernico46

Buenos días

me gustaria saber si alguien puede ayudarme porque no logro dar con la solución a mi problema.

El caso es que tengo una hoja excel donde uso 2 columnas, (A y B)

En la columna B controlo que no se introduzcan caracteres como * - / etc.. con el siguiente código

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b6:b301]) Is Nothing Then Exit Sub

If Evaluate("SUMPRODUCT( --ISNUMBER( SEARCH({""\"",""/"","":"",""%"",""'"",""~*"",""~?"",""<"","">"",""| "",""""""""}, " & Target.Address & ") ) )") > 0 Then
MsgBox "Se ha introducido un caracter inválido. No se permiten los siguientes caracteres \ / : % ' * ? < > | """
End If
End Sub

Pero ahora estoy interesado en controlar que siempre que en el campo A aparezca el valor "Ventana_Nueva" aparezca otro aviso semejante al que aparece en el campo B (ver código)

¿puede ayudarme alguien?

Muchas gracias

[mrocf]

Gracias por avisar, coopernico46, y por mostrar la solución.