Süzülen ilk hücre(Filtrelenmiş ilk hücre)

[osmandemir]

kolay gelsin süzme işlemi uyguluyorum .ilk gelen bilginin sabit bir yerde görünmesini istiyorum acaba bir formülü varmıdır.

 

[hamitcan]

Linklerde örnekler mevcut, incelemenizi tavsiye ederim.
http://www.excel.web.tr/f48/suzulen-lk-satyry-bulmak-t101337.html
http://www.excel.web.tr/f50/suzulen-bir-sutunda-suzulmu-satyrlaryn-bir-satyr-sonrasy-t103098.html

 

[osmandemir]

verdiğiniz referans sayfalarını inceledim fakat kendime uyarlayamadımbir yardımcı olurmusunuz

 

[hamitcan]

Bir Module içine;

Public Function Filtrelenmis_Ilk_Satir()
    With Sheets("Sayfa1").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 Filtrelenmis_Ilk_Satir = r1.Areas(1).Row
    End With
End Function

Sayfa1 kod kısmına;

Private Sub Worksheet_Calculate()
[b2] = Cells(Filtrelenmis_Ilk_Satir, 2)
End Sub

 

[osmandemir]

çok teşekkür ediyorum