Validar dos datos en dos celdas.

10/03/2010 - 13:14 por Angel O. | Informe spam
Hola a todos. A ver si podeis ayudarme.



Necesito que si en la hoja llamada "Entrada" en valor que se introduzca en
la celda C4 sea por ejemplo "texto" y el valor de la celda C5 sea mayor o
igual a 3.000 aparezca un mensaje. La macro que he creado es la siguiente,
pero me dice "Error de compilación, se esperaba la sentencia Then o Goto".
Esta copiada en el workshet de la hoja llamada Hoja 1 (Entrada) y he probado
en vez de "Entrada" con "Hoja 1" y también me da el mismo error.

Seguro que es una tonteria pero como no se mucho de macros se me
escapa.

Gracias por anticipado.

Sub Mensaje()

MsgBox "Hola"

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ("Entrada").Range ("C4").value = "texto" and ("Entrada").Range
("C5)".value >= 3000 Then Mensaje

End Sub
 

Leer las respuestas

#1 Benito Merino
10/03/2010 - 14:08 | Informe spam
Hola.

Te sobra la referencia a "Entrada", puesto que estás en la worksheet
(entrada)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Range("C4").Value = "texto" And Range("C5").Value >= 3000 Then
Mensaje


End Sub

Saludos

Benito Merino
Barcelona
España

Preguntas similares