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

"ste mac" wrote in message
om...
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

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


"ste mac" wrote in message
om...
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

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

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

cheers to both

ste

you're welcome

"ste mac" wrote in message
m...
Integers are signed numeric variables that can store numbers
between +/-32K. Use a Long instead of an Integer.

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

cheers to both

ste