EXCEL VBA: Fånga upp radnummer på resultat av autofiltrering

aMedlem sedan maj 2000755 inlägg

Frågan22 dec. 2005 21:25#1

Finns det något sätt att fånga upp vilket radnummer ett autofiltrerad värde har med VBA?

MindreVetandeMedlem sedan okt. 2005371 inlägg

2 jan. 2006 16:51#2

Hur menar du? en autofiltrering kan ju returnera flera värden.
Det här ger t.ex radnumret på den sista cellen i det framfiltrerade området

Dim radnummer As Integer
Range("A1").CurrentRegion.Select

radnummer = Selection.SpecialCells(xlCellTypeLastCell).Row
(xlCellTypeLastCell).Row
eller, om du vill vara lite paranoid:
radnummer = Selection.SpecialCells(xlCellTypeVisible). _
SpecialCells(xlCellTypeLastCell).Row

Alternativt kan du gå igenom alla rader som inte är = rubrikraden

iRubrikRad = ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Rows(1).Row

For Each rad In ActiveSheet.AutoFilter.Range. _
SpecialCells(xlCellTypeVisible).Rows
If Not rad.Row = iRubrikRad Then MsgBox (rad.Row)
Next rad

osv.