Posted to microsoft.public.excel.programming

Patrick Molloy[_2_] Patrick Molloy[_2_] is offline

external usenet poster

Posts: 1,298

Overflow Error

Instead of Integer use LONG

"LeeL" wrote:

Any ideas, please?

The sub below stops with Run-time error '6':
Overflow

Sub ColourIt()

NumOfRows = Cells(Rows.Count, 1).End(xlUp).Row

Dim OnHand As Integer
Dim ATS As Integer

For CurrentRow = 2 To NumOfRows

OnHand = ActiveSheet.Cells(CurrentRow, 6)
ATS = ActiveSheet.Cells(CurrentRow, 7)

If OnHand + ATS1 = 0 Then
Cells(CurrentRow, 2).Interior.ColorIndex = 22
End If

Next
End Sub
--
Thanks & Best Regards

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Overflow error	Barb Reinhardt	Excel Programming	3	April 16th 09 09:35 PM
Overflow error, need help	mkerstei[_15_]	Excel Programming	3	July 14th 06 03:10 AM
Overflow error	Grd	Excel Programming	1	January 21st 06 08:13 AM
Overflow Error	DG	Excel Programming	3	April 15th 05 05:45 PM
Help! Overflow Error 6	Gauthier	Excel Programming	6	September 24th 04 12:57 PM

All times are GMT +1. The time now is 04:34 PM.

About Us

"It's about Microsoft Excel"

Menu

About Us