Worksheet_Change

[LANDA59]

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

[luciano]

Una forma

acá chequea en la columna 2

Código:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 2 Then
   If Target.Value > 10 Then
      MsgBox "Valor no valido", vbCritical
   End If
End If

End Sub

[LANDA59]

Graciassssssssssssssssssssssssssssss!!!

Problema Resuelto............!!!