ensuring only numbers are entered

[drdre77]

Hi. This is what I got, it works like I want it except for when it's to enter retail price and contractor pricing. what I would want it to do is make sure whoever enters the item and price that they enter it properly... and numbers only... so if they were to enter an item with the $ sign or with two decimal points or commas or like mistakes like that... I want it to have them correct it in the proper dollar pricing format... like 9.99 or 10.49 etc.

wondering if someone can help me with a fix here.
Thanks
Andre

Sub Graphic6_Click()
Reply = InputBox(Prompt:="ITEM SKU", _
Title:="ITEM SKU", Default:="")
If Reply = vbNullString Then

Else
ActiveSheet.Range("AA11").Value = Reply
End If
If ActiveSheet.Range("aa14").Value = 0 Then
ActiveSheet.Range("aa11").Value = Reply
Else
MsgBox "DUPLICATE ITEM NUMBER"
End
End If
Reply = InputBox(Prompt:="DESCRIBE THE PRODUCT", _
Title:="PRODUCT DESCRIPTION", Default:="")
If Reply = vbNullString Then

Else
ActiveSheet.Range("AB11").Value = Reply
End If
Reply = InputBox(Prompt:="ENTER RETAIL PRICE", _
Title:="PRICE", Default:="$.$$")
If Reply = vbNullString Then

Else
ActiveSheet.Range("AC11").Value = Reply
End If
Reply = InputBox(Prompt:="INPUT WHAT CONTRACTOR PAYS", _
Title:="CONTRACTOR PRICE", Default:="$.$$")
If Reply = vbNullString Then

Else
ActiveSheet.Range("AD11").Value = Reply
End If
If MsgBox("IS ALL THE INFORMATION ACCURATE? WANT TO SUBMIT?", vbYesNo) = vbNo Then Exit Sub
Worksheets("New Invoice Tool").Range("aa11:aD11").Copy
Worksheets("PRODUCT PAGE").Cells(Rows.Count, "a").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("New Invoice Tool").Range("aa11:aD11").Select
Selection.ClearContents

Worksheets("New Invoice Tool").Range("c11").Select
End Sub

 

[Yongle]

you could test like this

Sub TestValue()
    Dim reply
    
Pays:
    reply = InputBox(Prompt:="INPUT WHAT CONTRACTOR PAYS" & vbCr & "enter numbers only!", Title:="CONTRACTOR PRICE", Default:="$.$$")
    If Not IsNumeric(reply) Then GoTo Pays
    reply = Format(reply, "0.00")
    MsgBox reply
End Sub