[Last Call] Learn about multicloud storage options and how to improve your company's cloud strategy. Register Now

x
Solved

# How do I copy a worksheet name reference with embedded date and have date increment?

Posted on 2011-03-11
Medium Priority
240 Views
Hello Experts.  I need your help again.

I have this formula in cell A1 and I want to copy it down for each day of the month:
=SUBTOTAL(9,'Z:\Production Reports\[PR 01-2011.xls]11-01-01'!G\$11:G\$600)

Cell A2 should look like this:
=SUBTOTAL(9,'Z:\Production Reports\[PR 01-2011.xls]11-01-02'!G\$11:G\$600)

My source workbook name is:  PR 01-2011.xls
Each worksheet name represents a date, eg.:  11-01-02

You guys are so good at knowing how to save time/effort by writing formulas that can be copied.  Can you help me with this one?

Thanks,
Gary
0
Question by:garyrobbins
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 6
• 4

LVL 30

Accepted Solution

SiddharthRout earned 2000 total points
ID: 35110032
Is this what you want?

``````Sub Sample()
Dim LastRow As Long
Dim strFormula As String

'~~> To get the lastrow. Amend as applicable
LastRow = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row

For i = 2 To LastRow
'=SUBTOTAL(9,'Z:\Production Reports\[PR 01-2011.xls]11-01-01'!G\$11:G\$600)
strFormula = "=SUBTOTAL(9,'Z:\Production Reports\[PR 01-2011.xls]11-01-" & _
Format(i - 1, "00") & "'!G\$11:G\$600)"

Sheets("Sheet1").Range("A" & i).Formula = strFormula
Next
End Sub
``````

Sid
0

Author Comment

ID: 35111194
I'm not very comfortable yet with VBA.  Is there a way I can do this with the formula?

Gary
0

LVL 30

Expert Comment

ID: 35113720
UNTESTED

Yes there is. Insert a new column in B and type the following

In cell B1
1
In cell B2
2
In cell B3
3
and so on...

Type this formula in A1

=SUBTOTAL(9,INDIRECT("'Z:\Production Reports\[PR 01-2011.xls]11-01-"&TEXT(B1,"00")&"'!G\$11:G\$600"))

AND then pull the formula down.

Sid
0

LVL 6

Expert Comment

ID: 35240201
I think i should work without need for extra column with this change

=SUBTOTAL(9,INDIRECT("'Z:\Production Reports\[PR 01-2011.xls]11-01-"&TEXT(ROW()-1,"00")&"'!G\$11:G\$600"))

Kind regards

Eric
0

Author Comment

ID: 35379128
SiddharthRout,

Is there a way of referencing cells in column B by cell address instead of using the INDIRECT & TEXT functions (they require that the source workbook open to run or update)?

Gary
0

LVL 30

Expert Comment

ID: 35379963
No only the INDIRECT requires the source workbook to be open.

I would suggest you the VBA method then. I can explain how it works if you want? It is very easy :)

Sid
0

Author Comment

ID: 35385674
SiddharthRout,

Ok, I'm ready to explore the VBA approach.  I've studied the basics of VBA and am anxious to get an actual project working.

Gary
0

LVL 30

Expert Comment

ID: 35404991
Did you see the first post? You need to paste that in a module. Do you have a sample file so that I can explain it step by step?

Sid
0

Author Comment

ID: 35405170
SiddharthRout:

Thanks for responding so promptly.  I can really use your help on this.

Attached is a file which I use to collect data fields from other large reports that are produced daily.  This report simply uses links to these reports.  I would like to be able to drag the bottom row and have the link references increment as required without having to manually edit them.

As you can see, I have tried the INDIRECT/TEXT solutions already.

Iâ€™m looking forward to learning more about VBA in the process.

Gary

PCS-Facility-03-2011-EE.xls
0

Author Comment

ID: 35720870
I'm sorry for the delay in responding to this solution.  I would like to award points now.

Gary
0

Author Closing Comment

ID: 35741308
SiddharthRout:  Thanks for the prompt response.  Your VBA solution seems to be the only way to solve this problem.  I am not yet comfortable with VBA but I'm studying it and will implement later.  Thanks.

Gary
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will diâ€¦
This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.
This Micro Tutorial will demonstrate how to create pivot charts out of a data set. I also added a drop-down menu which allows to choose from different categories in the data set and the chart will automatically update.
###### Suggested Courses
Course of the Month13 days, 9 hours left to enroll