-
Jul 8th, 2018, 03:06 PM
#1
Thread Starter
New Member
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.
-
Jul 8th, 2018, 05:02 PM
#2
New Member
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
-
Jul 9th, 2018, 03:48 PM
#3
Thread Starter
New Member
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
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|