Pivot table source not working run time error 1004

[vba317]

Hello,
This is my first post to this forum. I am trying to create vba code so my pivot table source gets updated dynamically with no luck. I am getting a run time error 1004 Method (Range of Object) _ global failed. I am using excel 2003.
I have two sheets in this spreadsheet. The first sheet is called Summary. This sheet has the pivot table in it. The second sheet is called DATA. This sheet has all the data in it. The data sheet has 5 columns of data in it.
My error occurs at rDataRange

Any help is appreciated.

Please Login or Register  to view this content.

[6StringJazzer]

There is not enough information here to thoroughly diagnose but one thing pops out at me. From context, I think you want to Set rDataRange, not merely assign a value to it. That is probably what is causing the error.

Please Login or Register  to view this content.

You also should be looking at the value of oBotRow at the point where it fails to make sure it's a valid value.

Moderator's note: Moved from Pivot Tables; it's related to pivot tables but the real problem is a VBA problem.

[vba317]

I checked and iBotRow is a valid value of 2931.

[vba317]

I tried the code change and I got the same error 1004. When I look at rDataRange I get a nothing response.

[vba317]

What kind of information do you need?

[6StringJazzer]

Your entire workbook.

Another thing that might work is

Please Login or Register  to view this content.

Having your workbook will allow me (us) to mess with the code and possibly return a finished product, rather than going back and forth in several posts with snippets of code.

[vba317]

OK I will attache the database and template.

[vba317]

I have tried to attach both files. When I try to upload my database I get an error message saying my file is invalid.

[vba317]

OK I guess I had to zip the database