Data Validation

[markoakes]

I’m not sure of the best way to do this. I have a customer data sheet that lists all customers. In column “B” is their Charge Status, either “Cash” or “Charge”. I want to stop the Charge Status from being changed from Cash to Charge if the Balance in Column “C” is greater then 5000.00 or the Account Status in column “D” is less then 2. Any help would be greatly appreciated.

 

[onlyadrafter]

Hello,

Is this suitable?

It needs to go into the relevant sheet code window

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And UCase(Target.Value) = "CHARGE" Then
    If Range("C" & Target.Row).Value > 5000 Or Range("D" & Target.Row).Value < 2 Then
        MY_MSG = MsgBox("CANNOT CHANGE", vbOKOnly, "ERROR")
        Application.Undo
    End If
End If
End Sub

 

[markoakes]

The above code works great if "Charge" is being typed in the cell. Is there a way to make it work if Copy,Paste or Drag&Drop is used?