Input Validation using VBA
 

Hello,
I have been told it is possible to create input validation using visual
basic so I could give a warning if the input was within a certain range of
values,
and a stop message if it was between another.
So in my situation I want a stop message if the input is below that of
another cell, and a warning if it is double the value of the same other cell.
The cell is using direct input.
Thank you.
Richard.

Input Validation using VBA
 

Something like this

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "H1:H10" '<== change to suit

On Error GoTo ws_exit
Application.EnableEvents = False

If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target

If .Value < 0 Or .Value 10 Then

MsgBox "Invalid value, correct it"
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--
__________________________________
HTH

Bob

"VoxBox-Richard" wrote in message
...
Hello,
I have been told it is possible to create input validation using visual
basic so I could give a warning if the input was within a certain range of
values,
and a stop message if it was between another.
So in my situation I want a stop message if the input is below that of
another cell, and a warning if it is double the value of the same other
cell.
The cell is using direct input.
Thank you.
Richard.