Cell Reference help required

[Raja]

Hello All,

I have a problem with Cell reference between spreadsheets. Help would
be highly appreciated.

Here is what I need.

I have 30 different spreadsheets in a workbook. Worksheet names (Aug01,
Aug02, Aug 03….Aug30). All the sheets are similar. I need to refer the
totals of the previous worksheet in the current one.

Example:

D5 of sheet Aug30 to D4 of sheet Aug29, ('Aug29'!D5)
D5 of sheet Aug29 to D4 of sheet Aug28, ('Aug28'!D5)

 

[Mangesh Yadav]

Run this VBA code

Sub RunThis()

ReDim ShtNames(0 To Worksheets.Count - 1)
i = 0
For Each sht In Worksheets
ShtNames(i) = sht.Name
i = i + 1
Next

For j = 1 To UBound(ShtNames)
Worksheets(ShtNames(j)).Range("D5") = "=" & ShtNames(j - 1) & "!D4"
Next

End Sub

This will do the following:
In Aug2 sheet cell D5, it will put =Aug1!D4
and so on.

Mangesh

 

[Raja]

Dear Mangesh,

Thanks a lot for the code. I am a dummie ..so please explain me on
where and how to run the code.

I am using MS office 2000

Raja

Run this VBA code

Sub RunThis()

ReDim ShtNames(0 To Worksheets.Count - 1)
i = 0
For Each sht In Worksheets
ShtNames(i) = sht.Name
i = i + 1
Next

For j = 1 To UBound(ShtNames)
Worksheets(ShtNames(j)).Range("D5") = "=" & ShtNames(j - 1) & "!D4"
Next

End Sub

This will do the following:
In Aug2 sheet cell D5, it will put =Aug1!D4
and so on.

Mangesh

 

[Bob Phillips]

Nice simple solution

=IF(RIGHT(MID(CELL("Filename",A1),FIND("]",CELL("Filename",A1))+1,255),2)<>"
01",INDIRECT("'"&LEFT(MID(CELL("Filename",A1),FIND("]",CELL("Filename",A1))+
1,255),LEN(MID(CELL("Filename",A1),FIND("]",CELL("Filename",A1))+1,255))-2)&
TEXT(VALUE(RIGHT(MID(CELL("Filename",A1),FIND("]",CELL("Filename",A1))+1,255
),2))-1,"00")&"'!D5"),"")

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Krishnakumar]

Hi,

I think Bob's formula can be shortened to like this,

=IF(RIGHT(x,2)="01","",INDIRECT("Aug"&TEXT(--RIGHT(x,2)-1,"00")&"!D5"))

where x,

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255)

HTH

 

[Mangesh Yadav]

If you have not used Bob's formula as yet, then to use my code, simply press
Alt F11 in excel. This opens the VBE. Go to Insert, and insert a new module.
Place the code here. And click on the right-pointed triangle to run it.

Mangesh

 

[Bob Phillips]

Yeah but assumes Aug. Mine will work with Aug, Sep, etc, which I am sure is
what the OP would want. Put that back in and it is no shorter.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Krishnakumar" <[email protected]>
wrote in message
news:[email protected]...