row nummer na autofilter

[Arjo1967]

Hallo allemaal,

Ik heb een probleempje en kom er zelf niet uit. Dit is het geval.

na :

xlWorkSheet5.Range("$C$1:$C$2").AutoFilter(Field:=3, Criteria1:=zoeknummer, Operator:=Excel.XlAutoFilterOperator.xlFilterValues)


zie ik een excel blad met row nummers 1,2, 120..... met in row 120 de data die ik zoek .
alle andere rows zijn niet zichtbaar dus 120 staat op de 3e regel.

Maar, hoe kan ik de row-nummer (120) nu in een variabele krijgen ?

zodat ik de gegevens uit cel "A:120" t/m "G:120" kan gebruiken ....



nu, loop ik elke regel in het excel blad langs om een waarde te zoeken, maar ik denk dat het met een autofilter sneller gaat (zie onderstaande code)


Do Until .Range("B" & X).Value = "" Or Order_gevonden = True
data9 = .Range("C" & X).Value
If data9 = zoeknummer Then
Order_gevonden = True
End If
Label57.Text = "rij : " & X
X = X + 1
Loop






ik hoop echt dat jullie mij kunne helpen. Alvast bedankt.

[Leith Ross]

Hello Arjo,

This function returns the last row on a filtered worksheet

Function GetLastRow() As Long

    Dim endRng  As Range
    Dim lastRow As Long
    Dim Rng     As Range
    Dim Wks     As Worksheet
    
        Set Wks = ActiveSheet
        
        On Error Resume Next
            If Wks.AutoFilterMode Then
                Set Rng = Wks.Cells.SpecialCells(xlCellTypeVisible)
                If Not Err Then
                    Set endRng = Rng.Areas(Rng.Areas.Count - 1)
                    GetLastRow = endRng.Rows(endRng.Rows.Count).Row
                End If
            End If
        On Error GoTo 0
        
End Function

[Arjo1967]

Hai Leith

This is just what I need, accept, I use Visual Studio 2017 en I get some red lines, For me your solution does not work.
I have found an other solution for my problem:

xlWorkSheet5.UsedRange.Copy(xlWorkSheet50.Range("A1"))

This copies the filtered cells to another sheet, so that de data I need is always on row(3)

thanks anyway, very appreciated...