Hi, I am currently writing a code in which a messagebox for tax exemption will be shown when D11:F11 is "FOOD AND BEVERAGE" or "INSURANCE" nature of business..However, mismatch error is shown when I clear the text in D11:F11. Please help. Thanks!
My code is as below:
Public Curval As String
Private Sub Worksheet_Activate()
Curval = Range("D11")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Curval = Range("D11")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row = 11 And Target <> Curval Then
If Target = "RELIGIOUS ORGANISATION" Or Target = "EDUCATION / TRAINING" Then
StartMsg = MsgBox("Is tax exempted for this client?", vbYesNo)
If StartMsg = vbNo Then
Range("D14").Value = "N"
Else
Range("D14").Value = "Y"
End If
End If
End If
End Sub
My code is as below:
Public Curval As String
Private Sub Worksheet_Activate()
Curval = Range("D11")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Curval = Range("D11")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row = 11 And Target <> Curval Then
If Target = "RELIGIOUS ORGANISATION" Or Target = "EDUCATION / TRAINING" Then
StartMsg = MsgBox("Is tax exempted for this client?", vbYesNo)
If StartMsg = vbNo Then
Range("D14").Value = "N"
Else
Range("D14").Value = "Y"
End If
End If
End If
End Sub