Süzülen verilere sıra numarası verdirmek

[EKREM1661]

Saygıdeğer Arkadaşlar..! Hayırlı çalışmalar dileğiyle;

Ekli dosyada anlaşılacağı üzere, süzülen verilerin A sütununa, her süzülüş ile birlikte sıra numarası verdirmek..

(Bu formül ile değil de, makro ile olursa daha iyi olacak..

 

[f_desat]

Sayfa'in içinde macro var çalışma sayfanda formüllerin silinse bile
sayfada sadece "Double Click" yaparak formüllerin ilgili alana yazılır umarım işini görür...

 

[EKREM1661]

Maksadım; formül bulundurmayıp, sayfanın change olayına yazılacak bir kod ile gerçekleştirmek..

 

[Husgvarna]

Maksadım; formül bulundurmayıp, sayfanın change olayına yazılacak bir kod ile gerçekleştirmek..

Veri girmedikçe olmuyor.

 

[Korhan Ayhan]

Merhaba,

Bu işlemi küçük bir hile ile halledebilirsiniz.

İlk olarak A sütunundaki formüllerinizi silin.
Daha sonra J20 hücresine aşağıdaki formülü uygulayın.

=ALTTOPLAM(3;I21:I65536)

Bu formül ile bahsettiğim küçük hileyi yapmış oluyoruz.

Son olarak sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

Private Sub Worksheet_Calculate()
    Dim X As Long, No As Long
    
    For X = 21 To Cells(Rows.Count, 2).End(3).Row
        If Rows(X).RowHeight <> 0 Then
            No = No + 1
            Cells(X, 1) = No
        End If
    Next
End Sub

Siz filtre yaptığınızda J20 hücresindeki formül hesaplama işlemi yapacaktır. Bu da sayfanızın "Calculate" olayını tetikleyerek istediğiniz sıra numarasının verilmesini sağlayacaktır.

 

[EKREM1661]

Korhan bey..! Sizler ve diğer ilgilenen arkadaşlar da dahil, ziyadesiyle teşekkürler.. Yukarıda yazdığınız kodu farklı kullanarak; sayfa üzerine aldığım Combobox nesnesine tekrarsız veri aldırarak, sizin yazdığınız kodu da change olayına atayarak farklı bir sonuç tercih ettim. Daha da iyi oldu..