Input pop box in excel

[Craig_Moore]

Hi

I have created a sheet within excel 2016 which brings up several popup box asking questions to the user to so no information is forgotten to be inputted in to the sheet, but if I input a figure in to the input box above 32,000 an error is shown overflow (error 6) is there away round this as most days I would require a figure over 500,000, any guidance would be happily received

thanks

Craig Moore

Code that I am using is
Private Sub CommandButton1_Click()
Dim QtyEntry As Integer
Dim msg As String
Dim msg2 As String
Dim msg3 As String
Dim msg4 As String
Dim msg5 As String
Dim msg6 As Integer
Dim msg7 As String
Dim msg8 As String


msg = "WHAT IS CV 1&2 BATCH SIZE"
QtyEntry = InputBox(msg)
ActiveSheet.Range("O4").Value = QtyEntry


msg2 = "HOW MANY BATCHES WERE MADE IN CV 1&2"
QtyEntry = InputBox(msg2)
ActiveSheet.Range("F4").Value = QtyEntry


msg3 = "HOW MANY BATCHS WERE MADE IN CV3"
QtyEntry = InputBox(msg3)
ActiveSheet.Range("F6").Value = QtyEntry


msg4 = "WHAT IS CV 3 BATCH SIZE"
QtyEntry = InputBox(msg4)
ActiveSheet.Range("O6").Value = QtyEntry


msg5 = "WHAT IS THE JAR SIZE"
QtyEntry = InputBox(msg5)
ActiveSheet.Range("K10").Value = QtyEntry


'msg6
Worksheets("yeild Loss Or gain Calculator").Range("jars_filled") = InputBox("WHAT IS Filler Count?", msg6)


msg7 = "HOW MANY KG IS IN THE BUFFER"
QtyEntry = InputBox(msg7)
ActiveSheet.Range("F11").Value = QtyEntry


End Sub

 

[nemmi69]

Change "Dim QtyEntry As Integer" to "Dim QtyEntry As Long" same for "msg6 As Integer"

 

[Craig_Moore]

thansk worked great
Craig