Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/05/2007, 09:35
LANDA59
 
Fecha de Ingreso: abril-2007
Mensajes: 25
Antigüedad: 18 años
Puntos: 0
Worksheet_Change

Hola a todos

Intento verificar un valor como abajo se indica, pero no solo seria para la celda A1 sino toda la columna, como le debo hacer para que cada vez que ingrese un dato mayor a 10 en toda la columna A me muestre el mensaje


Código:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
    If UCase(Target.Value) > "10" Then
MsgBox "Debes poner un valor en B1"
    End If
End If
End Sub
intente con If Target = Range("A1:A40") Then, y no me funciona..

de antemano gracias