overflow error 6.. the macro just stops any idea why?

  • Thread starter Thread starter ste mac
  • Start date Start date
S

ste mac

Hi, the code below adds 1 thru' 14 in column 8 as long as there is
a value in column 1, but it stops running at row 32767 with an overflow
error l need it to carry on down to past row 60,000 is my machine not
good enough? (I did not write the code)

thanks for any help

ste

Sub add1to14()
Application.ScreenUpdating = False
Dim mrow As Integer, mvalue As Integer
Range("a2").Select 'start at cell A1
mvalue = 1
Do Until ActiveCell.Value = ""
mrow = ActiveCell.Row
Cells(mrow, 8) = mvalue
mvalue = mvalue + 1
If mvalue > 14 Then mvalue = 1

ActiveCell.Offset(1, 0).Range("A1").Select
Loop
Range("A1").Select
Application.ScreenUpdating = True
End Sub
 
Hi

a variable with a data type of "integer" will store numbers up to 32767
change
dim mrow as integer
to
dim mrow as long

and you might like to do the same for mvalue

Cheers
JulieD
 
Integers are signed numeric variables that can store numbers
between +/-32K. Use a Long instead of an Integer.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
Integers are signed numeric variables that can store numbers
between +/-32K. Use a Long instead of an Integer.
Click to expand...

Many thanks to Julie and Chip, back up and running again

cheers to both

ste
 
Back
Top