ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Find the range of a SubTotal (https://www.excelbanter.com/excel-programming/322518-find-range-subtotal.html)

RWN

Find the range of a SubTotal
 
Is it possible to find the range that a SubTotal function refers to?

i.e. cell value is "=SUBTOTAL(9,J25:J31)"

Within the macro I want to determine the range of rows referred to in this cell (25-31).

--
Regards;
Rob
------------------------------------------------------------------------



Dave Peterson[_5_]

Find the range of a SubTotal
 
As long as you're looking for cells on the same worksheet, you can look at
..precedents.

Option Explicit
Sub testme()

Dim myPrecedents
Dim myCell As Range

Set myCell = ActiveSheet.Range("a1")

With myCell
.Formula = "=SUBTOTAL(9,J25:J31)"
MsgBox .Precedents.Address(0, 0)
End With
End Sub



RWN wrote:

Is it possible to find the range that a SubTotal function refers to?

i.e. cell value is "=SUBTOTAL(9,J25:J31)"

Within the macro I want to determine the range of rows referred to in this cell (25-31).

--
Regards;
Rob
------------------------------------------------------------------------


--

Dave Peterson

RWN

Find the range of a SubTotal
 
Thanks Dave;

That put me on the right track - missed a mental connection to "Precedents".
(was extracting from a "FormulaArray" but KNEW there had to be an easier way-if not 30
different ways.)

Turns out that;

Cells(StRow, StCol).Precedents.Select
For Each cl In Selection
' Do the tax exclusion using "Cells(cl.Row, cl.Column)"
Next

Is what I wanted

Again, thanks.
--
Regards;
Rob
------------------------------------------------------------------------




All times are GMT +1. The time now is 01:05 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com