run time error 1004 only on web run


W

willfeld

trying to utilize a workbook on the web works fine on the computer, once i
test it in the browser i get a 1004 run time error
Dim NewRow As Integer
on the following line
NewRow = Worksheets("INPUT SHEET").Range("B3").Value + 1

If Len(MyForm.fregion.Value) = 0 Then
MsgBox "The Region field can not be left Blank!", vbOKOnly, "IPA Training -
Input Form"
MyForm.fregion.SetFocus
 
Ad

Advertisements

J

Joel

The only way the line below will give a 1004 error if the code cannot find
the worksheet "Input Sheet". It doesn't matter how the name of the sheet is
capatilized. The problem is probably due to the fact that you have more than
one workbook opend and the code is looking at the wrong workbook.

Make sure you give a name to each workbook. the workbook the code is
running you can use ThisWorkBook. Name each workbook as you open the
workbooks and then make sure you include the workbook name in every
reference. do the same type thing with each worksheet.

set newbk = workbooks.open filename:= "abc.xls"
with newbk
.Sheets("Sheet1").Range("A1").copy _
.Sheets("Sheet1").Range("B2")
end with


NewRow = Worksheets("INPUT SHEET").Range("B3").Value + 1
 
W

willfeld

joel, there is only 1 workbook, this happens on a click command button off a
user form when i go to enter the data to a table sheet. it fails after the
button push at that line. only in the browser. the workbook has 5 sheets.
The error says runtime 1004_ global ?
 
J

Joel

I suspect there are some event macros that are running in the workbook that
you are not aware of. Go to the VBA editor and check the Project window.
Check every Sheet and ThisWorkbook looking for hidden macros. Double click
on each sheet checking for code.

I suspect one of these macro may be the cause of the problem. The I think
another workbook is being selected and causing the problem. I simple
solution may be to make th e follwing change

from
NewRow = Worksheets("INPUT SHEET").Range("B3").Value + 1
to
NewRow = Thisworkbook.Worksheets("INPUT SHEET").Range("B3").Value + 1
 
Ad

Advertisements

W

willfeld

Thank you soooo much that last idea worked. there weren't any other macros
or hidden code anywhere but I had to add Workbooks to all of the lines that
said worksheet. then it ran fine on the web.

thanks again, that was driving me nuts.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top