Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Option Explicit Error
Why do I get an error message on "Option Explicit"?
Private Sub CommandButton34_Click() Option Explicit Sub testme01() Dim iRow As Long Dim HowMany As Long HowMany = 20 With ActiveSheet For iRow = 52 To (32 * HowMany - 1) + 52 Step 32 If IsNumeric(.Cells(iRow + 3, "I").Value) Then If .Cells(iRow + 3, "I").Value 0 Then .Cells(iRow, "A").Resize(16, 9).PrintPreview '.printout when you're done checking Exit For End If End If Next iRow End With Range("A1").Select End Sub Thank You, |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Option Explicit Error
Bob,
Try moving Option Explicit outside the subroutine. Option Explicit Private Sub CommandButton34_Click() Sub testme01() Dim iRow As Long Dim HowMany As Long HowMany = 20 yadda, yadda, yadda, Regards, Kevin "Bob" wrote in message ... Why do I get an error message on "Option Explicit"? Private Sub CommandButton34_Click() Option Explicit Sub testme01() Dim iRow As Long Dim HowMany As Long HowMany = 20 With ActiveSheet For iRow = 52 To (32 * HowMany - 1) + 52 Step 32 If IsNumeric(.Cells(iRow + 3, "I").Value) Then If .Cells(iRow + 3, "I").Value 0 Then .Cells(iRow, "A").Resize(16, 9).PrintPreview '.printout when you're done checking Exit For End If End If Next iRow End With Range("A1").Select End Sub Thank You, |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Option Explicit Error
I think you should remove these two lines:
Option Explicit Sub testme01() These look useless. ----- Bob wrote: ----- Why do I get an error message on "Option Explicit"? Private Sub CommandButton34_Click() Option Explicit Sub testme01() Dim iRow As Long Dim HowMany As Long HowMany = 20 With ActiveSheet For iRow = 52 To (32 * HowMany - 1) + 52 Step 32 If IsNumeric(.Cells(iRow + 3, "I").Value) Then If .Cells(iRow + 3, "I").Value 0 Then .Cells(iRow, "A").Resize(16, 9).PrintPreview '.printout when you're done checking Exit For End If End If Next iRow End With Range("A1").Select End Sub Thank You, |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Option Explicit Error
Option Explicit should be the very first line of the code
sheet. Tip: Under Tools/Options in the Editor tab, make sure that the checkbox for 'Require Variable Declaration' is checked...this will add Option Explicit automatically. Tip: Add Option Private Module This means that PUBLIC procedures will not be visible in Excel's Macro list, but will be available to other modules Patrick Molloy Microsoft Excel MVP -----Original Message----- Why do I get an error message on "Option Explicit"? Private Sub CommandButton34_Click() Option Explicit Sub testme01() Dim iRow As Long Dim HowMany As Long HowMany = 20 With ActiveSheet For iRow = 52 To (32 * HowMany - 1) + 52 Step 32 If IsNumeric(.Cells(iRow + 3, "I").Value) Then If .Cells(iRow + 3, "I").Value 0 Then .Cells(iRow, "A").Resize(16, 9).PrintPreview '.printout when you're done checking Exit For End If End If Next iRow End With Range("A1").Select End Sub Thank You, . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Option Explicit | Excel Discussion (Misc queries) | |||
option explicit | Excel Discussion (Misc queries) | |||
Implied Option Explicit in XP?? | Excel Programming | |||
Urgent: Object Explicit Error | Excel Programming | |||
Option Explicit and Arrays | Excel Programming |