Auto Filter by Row Number

[fireguy7]

Hello - I've searched everywhere and can't find the answer.

Long and short is I want to code to Auto filter but use row numbers instead of text value.

For Example with the below instead of filtering field 8 by value "Sch" I'd want to filter to show row 5

in the end I want to input the rows in another tab and have it filter the table to show only these rows.

[Ochimus]

Just hide the rows? This hides all the Used rows, and makes just row 5 visible.

If you want to count or sum or work with the data in the Visible row(s), extend the Macro to work on Visible Rows only.

[Code]
Option Explicit
Dim f As Long

Sub hiderows()

'Find last row in sheet

With Sheet1
f = .Cells(.Rows.Count, "A").End(xlUp).Row
If f < 2 Then f = 2

.Rows("2:" & f).EntireRow.Hidden = True
.Rows("5:5").EntireRow.Hidden = False

End With

End Sub

[fireguy7]

Really close - long and short is I use excel to generate a list to import into another system. When I get failures it only tells me the row number the data that failed is on. So i need to be able to put these row numbers in another tab and filter/hide anything but these row numbers so I can move this data off of the import sheet.

I've reattached your sheet and add a tab with the row numbers that i need to remain visible.

using auto filter or hiding the rows doesn't make much a difference as long as I can use .SpecialCells(xlCellTypeVisible) to grab the data after.

[Sintek]

Why don't you upload a sample file depicting your actual file setup and tell us what you want to do with the grabbed data...perhaps there is a simplistic solution available...

[fireguy7]

I really appreciate all the help! I'll try but I'm dealing with sensitive information so have to be careful. Given this I've mocked up as close to the live version that I can supply.

Data Tab = Original data set
Error Rows = exact what I get after doing the initial import
End Desire Results = what I'm looking to get to.

Hope this helps

[Sintek]

Sub sintekJ3v16()
Dim Arr, Rw
Rw = Join(Application.Transpose(Sheet3.Range("A2", Sheet3.Range("A" & Rows.Count).End(xlUp)).Value), ","): Rw = Split(Rw, ",")
With Sheet1.Cells(1).CurrentRegion
    Arr = Application.Index(.Value, Rw, Application.Evaluate("row(1:" & .Columns.Count & ")"))
End With
Sheet2.Range("A2").Resize(UBound(Arr, 2), UBound(Arr, 1)) = Application.Transpose(Arr)
End Sub

[Ochimus]

fireguy,

Can you just clarify the requirement, please?

Your End Desired Results and Data Sheets have highlighted rows three and eight, but the Error Rows sheet says rows three and seven?

And what criteria makes something an "Error row", as the content seems to be the same structure in all your sample rows?

Ochimus

[jindon]

in the end I want to input the rows in another tab and have it filter the table to show only these rows.

Try

Sub test()
    Dim r As Range
    With Sheets("data").Cells(1).CurrentRegion
        Set r = .Offset(, .Columns.Count + 2).Range("a1:a2")
        r(2).Formula = "=or(row(a2)={" & Join(Filter(Sheets("error rows") _
        .[transpose(if(isnumber(a2:a1000),a2:a1000))], False, 0), ",") & "})"
        .AdvancedFilter 1, r
        r(2) = ""
    End With
End Sub

[Sintek]

@ Ochimus...I assumed OP made a mistake...

@fireguy7...
Thanks for rep +