Filtreye göre sıra no verme

[ASLAN7410]

Merhaba herkese hayırlı geceler.

Ekte gönderdiğim excel dosyamın 1.sayfasının kod bölümünde aşağıdaki kod var,
bu kod sayfanın 2.satırdaki filtreye göre ve fareyi sayfa üzerine tıkladığımda çalışıyor, sıra no veriyor.

Benim yapmak istediğim 2.satırdaki filtreleme yapıldığı zaman, yani fareyi
tıklamama gerek kalmadan çalışmasını istiyorum, bir türlü çözemedim.

Yardımcı olur musunuz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
For i = 3 To Range("e65536").End(3).Row
If Not Rows(i).Hidden = True Then
st = st + 1
Cells(i, "a") = st
End If
Next
End Sub

 

[Ömer BARAN]

Bu işlem için en iyisi bence formül kullanmak.
Sorunuzda belirttiğiniz kod'u sildikten sonra, A3'e aşağıdaki formülü uygulayıp, liste boyunca kopyalamanız yeterli olur.
Formülde E sütununu yerine MUTLAKA DOLU olacak başka bir sütun adını da kullanabilirsiniz.

Başka bir seçenek de filtre işlemini, herbir sütun için ekleyeceğiniz TextBox/ComboBox üzerinden gerçekleştirmek olabilir.
Neticede kod'un tetikleneceği bir olay gerekiyor.
Mevcut kod'daki olay, Selection_Change, nesne kullanırsanız o nesnenin Change olayı olacak,
formül kullanıldığında bir olaya gerek kalmayaçaktır.
.

=ALTTOPLAM(3;$E$3:E3)

 

[ASLAN7410]

Sayın Ömer Bey, ilginiz için çok teşekkür ediyorum.

Formül tam istediğim gibi sonuç veriyor, ancak dosyayı başka arkadaşlarda kullandığı için formülü silebilirler.

 

[Ömer BARAN]

Dosyayı kullanan mutlaka bir hücreye fareyle tıklıyordur ve mevcut kod'unuz bu işi yapıyor zaten.
Belki hücre seçiminin değiştirilmeyeceği durum varsa (sayfayı açtı ve sadece bakıyor durumu),
aynı kodları bir de Worksheet_Activate kodu altına yazmak yararlı olabilir.

 

[ASLAN7410]

Sayın Ömer Bey, dediğiniz gibi yapmaya çalışıyorum.

Çok teşekkürler, hayırlı geceler diliyorum.