| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Referencing sheet on a web browser
I have a sheet that calculates pricing projections which gets its info from a
form that pops up when the user clicks a button. The file is posted on the intranet and works fine when it is saved on to the desktop. The problem occurs when the user selects 'Open' and the file is opened in a web browser. I get a "Run-time error '91': Object variable or With block variable not set" error on the fifth line: Private Sub cmdCalc_Click() Dim vEmpty As String Dim vNumeric As String ActiveWorkbook.Sheets("Business Account Pricing").Activate <------- Range("A1").Select ' Check user input If Me.txtECR.Value = "" Then vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine Else If IsNumeric(txtECR.Value) = True Then Range("C147").Value = txtECR.Value End If End If .... Is there a way to have this work when its saved on the desktop or opened in a web browser? Thanks for any help Jon |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Referencing sheet on a web browser
try this
Private Sub cmdCalc_Click() Dim vEmpty As String Dim vNumeric As String with ActiveWorkbook.Sheets("Business Account Pricing") ' Check user input If Me.txtECR.Value = "" Then vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine Else If IsNumeric(txtECR.Value) = True Then .Range("C147").Value = txtECR.Value End If End If end with "jeq214" wrote: I have a sheet that calculates pricing projections which gets its info from a form that pops up when the user clicks a button. The file is posted on the intranet and works fine when it is saved on to the desktop. The problem occurs when the user selects 'Open' and the file is opened in a web browser. I get a "Run-time error '91': Object variable or With block variable not set" error on the fifth line: Private Sub cmdCalc_Click() Dim vEmpty As String Dim vNumeric As String ActiveWorkbook.Sheets("Business Account Pricing").Activate <------- Range("A1").Select ' Check user input If Me.txtECR.Value = "" Then vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine Else If IsNumeric(txtECR.Value) = True Then Range("C147").Value = txtECR.Value End If End If ... Is there a way to have this work when its saved on the desktop or opened in a web browser? Thanks for any help Jon |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Referencing sheet on a web browser
Its still giving me the same error.
"Joel" wrote: try this Private Sub cmdCalc_Click() Dim vEmpty As String Dim vNumeric As String with ActiveWorkbook.Sheets("Business Account Pricing") ' Check user input If Me.txtECR.Value = "" Then vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine Else If IsNumeric(txtECR.Value) = True Then .Range("C147").Value = txtECR.Value End If End If end with "jeq214" wrote: I have a sheet that calculates pricing projections which gets its info from a form that pops up when the user clicks a button. The file is posted on the intranet and works fine when it is saved on to the desktop. The problem occurs when the user selects 'Open' and the file is opened in a web browser. I get a "Run-time error '91': Object variable or With block variable not set" error on the fifth line: Private Sub cmdCalc_Click() Dim vEmpty As String Dim vNumeric As String ActiveWorkbook.Sheets("Business Account Pricing").Activate <------- Range("A1").Select ' Check user input If Me.txtECR.Value = "" Then vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine Else If IsNumeric(txtECR.Value) = True Then Range("C147").Value = txtECR.Value End If End If ... Is there a way to have this work when its saved on the desktop or opened in a web browser? Thanks for any help Jon |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Referencing sheet on a web browser
Does changing active to this make any differences
from with ActiveWorkbook.Sheets("Business Account Pricing") to with ThisWorkbook.Sheets("Business Account Pricing") This workbook is the workbook where the macro is located. "jeq214" wrote: Its still giving me the same error. "Joel" wrote: try this Private Sub cmdCalc_Click() Dim vEmpty As String Dim vNumeric As String with ActiveWorkbook.Sheets("Business Account Pricing") ' Check user input If Me.txtECR.Value = "" Then vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine Else If IsNumeric(txtECR.Value) = True Then .Range("C147").Value = txtECR.Value End If End If end with "jeq214" wrote: I have a sheet that calculates pricing projections which gets its info from a form that pops up when the user clicks a button. The file is posted on the intranet and works fine when it is saved on to the desktop. The problem occurs when the user selects 'Open' and the file is opened in a web browser. I get a "Run-time error '91': Object variable or With block variable not set" error on the fifth line: Private Sub cmdCalc_Click() Dim vEmpty As String Dim vNumeric As String ActiveWorkbook.Sheets("Business Account Pricing").Activate <------- Range("A1").Select ' Check user input If Me.txtECR.Value = "" Then vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine Else If IsNumeric(txtECR.Value) = True Then Range("C147").Value = txtECR.Value End If End If ... Is there a way to have this work when its saved on the desktop or opened in a web browser? Thanks for any help Jon |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Referencing sheet on a web browser
That did the trick. Thanks a bunch. Appreciate your help.
"Joel" wrote: Does changing active to this make any differences from with ActiveWorkbook.Sheets("Business Account Pricing") to with ThisWorkbook.Sheets("Business Account Pricing") This workbook is the workbook where the macro is located. "jeq214" wrote: Its still giving me the same error. "Joel" wrote: try this Private Sub cmdCalc_Click() Dim vEmpty As String Dim vNumeric As String with ActiveWorkbook.Sheets("Business Account Pricing") ' Check user input If Me.txtECR.Value = "" Then vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine Else If IsNumeric(txtECR.Value) = True Then .Range("C147").Value = txtECR.Value End If End If end with "jeq214" wrote: I have a sheet that calculates pricing projections which gets its info from a form that pops up when the user clicks a button. The file is posted on the intranet and works fine when it is saved on to the desktop. The problem occurs when the user selects 'Open' and the file is opened in a web browser. I get a "Run-time error '91': Object variable or With block variable not set" error on the fifth line: Private Sub cmdCalc_Click() Dim vEmpty As String Dim vNumeric As String ActiveWorkbook.Sheets("Business Account Pricing").Activate <------- Range("A1").Select ' Check user input If Me.txtECR.Value = "" Then vEmpty = Chr(149) & " Earnings Credit Rate" & vbNewLine Else If IsNumeric(txtECR.Value) = True Then Range("C147").Value = txtECR.Value End If End If ... Is there a way to have this work when its saved on the desktop or opened in a web browser? Thanks for any help Jon |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Sheet Referencing - autofilling sheet names | Excel Worksheet Functions | |||
| how do I print a web saved Excel sheet from my browser? | Excel Discussion (Misc queries) | |||
| copy formula referencing sheet name to another sheet | Excel Worksheet Functions | |||
| referencing a sheet named in a cell then using data from that sheet | Excel Worksheet Functions | |||
| referencing a sheet in VB | Excel Programming | |||
Hybrid Mode
