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

Preguntas similare

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
Respuesta Responder a este mensaje
#2 Angel O.
11/03/2010 - 11:59 | Informe spam
Gracias benito, ha funcionado.


"Benito Merino" ha escrit al missatge del grup de
discussió:

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
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida