VBA to return nth row number from a filtered table in excel [closed]

Answer 1

The answer brought up by @Lopsided wont work, if there are other hidden cells after the nth entry. They would then be added to the absolute position.

This'll work, you have to change n by yourself in the script. Changing that shouldn't be to hard. If you have any questions regarding that, feel free to ask. (;

Sub absoluteRowID()

Dim RowCount, hiddenRows As Integer

'relative position n
n = 5
i = 0

Do While i < n

i = i + 1
If ThisWorkbook.Sheets(1).Rows(i).EntireRow.Hidden Then
'if there is a hidden row, position is incremented
n = n + 1
End If
'if there is no hidden row, nothing happens

Loop

MsgBox (i)



End Sub

HTH

Answer 2

As a function I suggest

Function RowNum(Target As Range) As Long
    RowNum = Target.Row
End Function

use by entering in a cell =RowNum(E9). If you want the line relative to the table start and your table starts in -say- row 21, just subtract this from the result (you can use the same function to find the row of table start or course) ... e.g. =rownum(A2)-rownum($A$1) ... mind the absolute notation of table header!

If you don't like this as a function, you could use the SelectionChange event to display the row number of the selected cell in the message line (optionally depending on a "debug flag" somewhere in your sheet).

Tne non-VBA approach would be to use the CELL formula ... e.g. =CELL("row",A1)

Answer 3

Simplest method is special cells. See below:

Sub test()

Dim i As Integer, j As Integer, k As Integer
Dim Report As Worksheet

Set Report = Excel.ActiveSheet ' Store the current worksheet in a variable (always a good idea)
Dim visRng As Range ' Creating a range variable to store our table, excluding any rows that are filtered out.
Set visRng = Report.UsedRange.SpecialCells(xlCellTypeVisible) ' Select only rows within the used range that are visible.

Dim r As Range 
For Each r In visRng.Rows ' Loop through each row in our visible range ...
    MsgBox (r.Row) ' ... and retrieve the "absolute" row number.
Next

End Sub

---

EDIT

Tom claims this method will not work, but I'm pretty sure it does what you ask. Example:

Here is my original test table--unfiltered so you can see what we're doing.

And then we filter a couple values somewhere in the middle of the table...

Now when we run the script I posted above, our message box will show the "absolute" row number for each unfiltered row. Results are 1,3,4,5, and 7.