Filtreleme de ilk ve son satır numarası

[tamer42]

merhabalar,

1 den 100. satıra kadar doldurulmuş bir sayfada

"B" sütununda "a" harfine göre bir filtreleme yaptığımızda;

ekranda görünen ilksatır: 7 ve sonsatırın numarası: 88 oluyor.

bu rakamları ( ilk ve son satır numarası) kodla nasıl öğrenebiliriz.

İyi Çalışmalar.

 

[hamitcan]

Kaynak: http://en.allexperts.com/q/Excel-1059/2008/9/first-row-autofilter-range.htm

Sub FindFirstAndLastrow()
Dim firstrow As Long, firstRelativeRow As Long
Dim r As Range, r1 As Range
With ActiveSheet.AutoFilter.Range
 Set r = .Offset(1, 0).Resize(.Rows.Count - 1, 1)
 On Error Resume Next
   Set r1 = r.SpecialCells(xlVisible)
 On Error GoTo 0
 If Not r1 Is Nothing Then
   firstrow = r1.Areas(1).Row
  Else
   MsgBox "No visible rows"
   Exit Sub
 End If
End With
MsgBox "first visible row of data is " & firstrow
MsgBox "last visible row of data is " & [a65536].End(3).Row
' if you want the count of the row starting with
' the headers
' firstRelativeRow = firstrow - r(1).Row + 1
' MsgBox "First visible row relative to start" _
'   & vbNewLine & " of the filter range: " & firstRelativeRow
End Sub

 

[tamer42]

Teşekkürler...