Cita:
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