error 13 type mismatch input box
You have to be explicit with each test:
If comtypeeq< C" and comtypeeq < "P" And comtypeeq<"" Then
....
Else
....
End IF
"cluckers" wrote:
I am getting an error 13 type mismatch on line "If Not comtypeeq = "C" Or "P"
Or "" Then"
can you help?
Thanks
Code:
Dim comovrdeq As String
Dim comtypeeq As String
Dim comovrdmf As String
Dim comtypemf As String
commissionadjust:
If MsgBox("Do you want to discount the commissions?", vbYesNo) = vbYes Then
comtypeeq = InputBox("Enter override type: cents/share = C; Percent
discount= P; dollar amount/trade = leave blank")
If Not comtypeeq = "C" Or "P" Or "" Then
MsgBox ("You did not select a valid discount. Try Again")
Else
|