| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Run-time error '91'
I get a run-time error '91' with the line of code - StartUpSheet(RowCounter,
1) = cellVal - in the code below. I've used the Excel help - but can't figure out what object variable I need to set. What don't I understand? I've dimensioned the array and other variables in a global variable area at the head of the application code. Bob Allen RowCounter = 0 CellCounter = 0 nextChkBox = 1 ActiveRow = 0 Worksheets("Start_Up_Pricing").Activate For Each cell In Range("A3:B86") CellCounter = CellCounter + 1 cellVal = cell.Value MsgBox cellVal If MsgBox("quit now", vbYesNo) = vbYes Then GoTo bob1 End If a = CellCounter Mod 2 If CellCounter = 1 Then a = 0 If a = 0 Then ColumnA = yes If ColumnA = yes Then RowCounter = RowCounter + 1 'ActiveRow = ActiveRow + 1 StartUpSheet(RowCounter, 1) = cellVal StartUpSheet(RowCounter, 2) = cell.Offset(0, 1).Value StartUpSheet(RowCounter, 3) = cell.Offset(0, 3).Value StartUpSheet(RowCounter, 4) = cell.Offset(0, 4).Value StartUpSheet(RowCounter, 5) = cell.Offset(0, 5).Value End If array_5 = StartUpSheet(RowCounter, 5) MsgBox array_5 Next cell GoTo bob1 |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Run-time error '91'
Addendum to code cited below - 2 additional dim statements -
Dim a As Integer Dim cell As Range RowCounter = 0 CellCounter = 0 nextChkBox = 1 ActiveRow = 0 Worksheets("Start_Up_Pricing").Activate....... Bob Allen "Bob Allen" wrote: I get a run-time error '91' with the line of code - StartUpSheet(RowCounter, 1) = cellVal - in the code below. I've used the Excel help - but can't figure out what object variable I need to set. What don't I understand? I've dimensioned the array and other variables in a global variable area at the head of the application code. Bob Allen RowCounter = 0 CellCounter = 0 nextChkBox = 1 ActiveRow = 0 Worksheets("Start_Up_Pricing").Activate For Each cell In Range("A3:B86") CellCounter = CellCounter + 1 cellVal = cell.Value MsgBox cellVal If MsgBox("quit now", vbYesNo) = vbYes Then GoTo bob1 End If a = CellCounter Mod 2 If CellCounter = 1 Then a = 0 If a = 0 Then ColumnA = yes If ColumnA = yes Then RowCounter = RowCounter + 1 'ActiveRow = ActiveRow + 1 StartUpSheet(RowCounter, 1) = cellVal StartUpSheet(RowCounter, 2) = cell.Offset(0, 1).Value StartUpSheet(RowCounter, 3) = cell.Offset(0, 3).Value StartUpSheet(RowCounter, 4) = cell.Offset(0, 4).Value StartUpSheet(RowCounter, 5) = cell.Offset(0, 5).Value End If array_5 = StartUpSheet(RowCounter, 5) MsgBox array_5 Next cell GoTo bob1 |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Run-time error '91'
Why dont you post the array declarations
?StartUpSheet ?array_5 If this post helps click Yes --------------- Jacob Skaria "Bob Allen" wrote: Addendum to code cited below - 2 additional dim statements - Dim a As Integer Dim cell As Range RowCounter = 0 CellCounter = 0 nextChkBox = 1 ActiveRow = 0 Worksheets("Start_Up_Pricing").Activate....... Bob Allen "Bob Allen" wrote: I get a run-time error '91' with the line of code - StartUpSheet(RowCounter, 1) = cellVal - in the code below. I've used the Excel help - but can't figure out what object variable I need to set. What don't I understand? I've dimensioned the array and other variables in a global variable area at the head of the application code. Bob Allen RowCounter = 0 CellCounter = 0 nextChkBox = 1 ActiveRow = 0 Worksheets("Start_Up_Pricing").Activate For Each cell In Range("A3:B86") CellCounter = CellCounter + 1 cellVal = cell.Value MsgBox cellVal If MsgBox("quit now", vbYesNo) = vbYes Then GoTo bob1 End If a = CellCounter Mod 2 If CellCounter = 1 Then a = 0 If a = 0 Then ColumnA = yes If ColumnA = yes Then RowCounter = RowCounter + 1 'ActiveRow = ActiveRow + 1 StartUpSheet(RowCounter, 1) = cellVal StartUpSheet(RowCounter, 2) = cell.Offset(0, 1).Value StartUpSheet(RowCounter, 3) = cell.Offset(0, 3).Value StartUpSheet(RowCounter, 4) = cell.Offset(0, 4).Value StartUpSheet(RowCounter, 5) = cell.Offset(0, 5).Value End If array_5 = StartUpSheet(RowCounter, 5) MsgBox array_5 Next cell GoTo bob1 |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Run-time error '91'
Hi Jacob,
Yes - you helped MUCH on this. I went back and looked at the DIM of the StartUpSheet() array - and it was explicitly defined "as character" - when in fact OFFSET (0,3), (0,4), and (0,5) as defined within the Worksheet as Numeric. I removed the explicit "as character" from the array DIM - and the 91 error goes away. I'm VERY new at BOTH VBA and Excel - and it shows! Thanks again! PS array_5 was just a variable name - that errors out as a type mis-match in the Msgbox - but I know where that problem resides. Bob Allen "Jacob Skaria" wrote: Why dont you post the array declarations ?StartUpSheet ?array_5 If this post helps click Yes --------------- Jacob Skaria "Bob Allen" wrote: Addendum to code cited below - 2 additional dim statements - Dim a As Integer Dim cell As Range RowCounter = 0 CellCounter = 0 nextChkBox = 1 ActiveRow = 0 Worksheets("Start_Up_Pricing").Activate....... Bob Allen "Bob Allen" wrote: I get a run-time error '91' with the line of code - StartUpSheet(RowCounter, 1) = cellVal - in the code below. I've used the Excel help - but can't figure out what object variable I need to set. What don't I understand? I've dimensioned the array and other variables in a global variable area at the head of the application code. Bob Allen RowCounter = 0 CellCounter = 0 nextChkBox = 1 ActiveRow = 0 Worksheets("Start_Up_Pricing").Activate For Each cell In Range("A3:B86") CellCounter = CellCounter + 1 cellVal = cell.Value MsgBox cellVal If MsgBox("quit now", vbYesNo) = vbYes Then GoTo bob1 End If a = CellCounter Mod 2 If CellCounter = 1 Then a = 0 If a = 0 Then ColumnA = yes If ColumnA = yes Then RowCounter = RowCounter + 1 'ActiveRow = ActiveRow + 1 StartUpSheet(RowCounter, 1) = cellVal StartUpSheet(RowCounter, 2) = cell.Offset(0, 1).Value StartUpSheet(RowCounter, 3) = cell.Offset(0, 3).Value StartUpSheet(RowCounter, 4) = cell.Offset(0, 4).Value StartUpSheet(RowCounter, 5) = cell.Offset(0, 5).Value End If array_5 = StartUpSheet(RowCounter, 5) MsgBox array_5 Next cell GoTo bob1 |
|
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Run-time error '91'
Hi Jacob,
I have something NEW to ask. I can NO LONGER start a NEW thread on this site - and MicroSoft Support tells me on the phone that they are no longer supporting this site! SO - do you know of an alternative? Bob Allen "Jacob Skaria" wrote: Why dont you post the array declarations ?StartUpSheet ?array_5 If this post helps click Yes --------------- Jacob Skaria "Bob Allen" wrote: Addendum to code cited below - 2 additional dim statements - Dim a As Integer Dim cell As Range RowCounter = 0 CellCounter = 0 nextChkBox = 1 ActiveRow = 0 Worksheets("Start_Up_Pricing").Activate....... Bob Allen "Bob Allen" wrote: I get a run-time error '91' with the line of code - StartUpSheet(RowCounter, 1) = cellVal - in the code below. I've used the Excel help - but can't figure out what object variable I need to set. What don't I understand? I've dimensioned the array and other variables in a global variable area at the head of the application code. Bob Allen RowCounter = 0 CellCounter = 0 nextChkBox = 1 ActiveRow = 0 Worksheets("Start_Up_Pricing").Activate For Each cell In Range("A3:B86") CellCounter = CellCounter + 1 cellVal = cell.Value MsgBox cellVal If MsgBox("quit now", vbYesNo) = vbYes Then GoTo bob1 End If a = CellCounter Mod 2 If CellCounter = 1 Then a = 0 If a = 0 Then ColumnA = yes If ColumnA = yes Then RowCounter = RowCounter + 1 'ActiveRow = ActiveRow + 1 StartUpSheet(RowCounter, 1) = cellVal StartUpSheet(RowCounter, 2) = cell.Offset(0, 1).Value StartUpSheet(RowCounter, 3) = cell.Offset(0, 3).Value StartUpSheet(RowCounter, 4) = cell.Offset(0, 4).Value StartUpSheet(RowCounter, 5) = cell.Offset(0, 5).Value End If array_5 = StartUpSheet(RowCounter, 5) MsgBox array_5 Next cell GoTo bob1 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Visual Basic Error Run Time Error, Type Mismatch | Excel Discussion (Misc queries) | |||
| I tried to get around the problem of the pivot table field settingdefaulting to Count instead of Sum by running a macro of change the settingfrom Count to Sum. However, when I tried to run the Macro, I got error messageof run time error 1004, unable | Excel Worksheet Functions | |||
| Receiving run-time error only part of the time | Excel Discussion (Misc queries) | |||
| run-time error '91'-Close Button error | Excel Discussion (Misc queries) | |||
| Run time error 1004, General ODBC error | New Users to Excel | |||
![Bob Allen[_2_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Linear Mode
