dcsimg
Results 1 to 3 of 3
  1. #1

    Thread Starter
    New Member
    Join Date
    Jul 2018
    Posts
    2

    row nummer na autofilter

    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.

  2. #2
    New Member Leith Ross's Avatar
    Join Date
    Feb 2018
    Posts
    9

    Re: row nummer na autofilter

    Hello Arjo,

    This function returns the last row on a filtered worksheet

    Code:
    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

  3. #3

    Thread Starter
    New Member
    Join Date
    Jul 2018
    Posts
    2

    Re: row nummer na autofilter

    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...

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width