I have a requirement I have to write a VBA code to validate for all input cell in an input form (EPM 10) with negative values.
In case the user enters a negative value, a message box thrown " No negative values allowed" and secondly if the user changes the value of a cell that
particular cell should become red color. Again on refresh the red color validation should disappear.
Now that I had already tried with the validation function in SP13 which did not give the desired result and so I have decided to code ,
Now I have a problem I need to code the excelVBA that I have to apply the validation code only on the input cells How do I do that ? the sample code is below
Dim EPMex As New FPMXLClient.EPMAddInAutomation
(Macro 1 - For negative value validation)
Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") < 0 Then
MsgBox "No Negative value"
Target.Font.ColorIndex = 3
(Macro 2 - For changed cell)
Private Sub Worksheet_Change(ByVal Target as Range)
Target.Font.ColorIndex = 5