FİLTRELENEN GİZLİ SATIRI ATLAMAK

[Tarikkk_]

Değerli hocalarım herkese merhabalar. aşağıdaki gibi bir kodum bulunmakta bu kod ile sayfamdaki B sütunu boş değil ise A sütununu numaralandırıyorum fakat sayfamda bazı verileri filtreledikten sonra numaralandırmam gerekiyor. filtreleyince filtreli gizli satırı da numaralandırdığı için istediğim sonucu alamıyorum. filtreli satırı atlatmak istiyorum. yardımınızı bekliyorum şimdiden çok teşekkürlerimi sunuyorum.
Sub Üye_Borç_Detay_Yazdır()

Set wsüyeborçdetay = Workbooks(ThisWorkbook.Name).Worksheets("ÜYE BORÇ DETAY")

BorçSatırı = 6
Sonsatır = Sheets("ÜYE BORÇ DETAY").Cells(Rows.Count, "B").End(3).Row - 1

For Satır = 5 To Sonsatır
If wsüyeborçdetay.Cells(BorçSatırı, "B") <> "" Then
wsüyeborçdetay.Cells(BorçSatırı, "A") = BorçSatırı
BorçSatırı = BorçSatırı + 1
End If
Next Satır

End Sub

 

[ÖmerBey]

Merhaba,
If sorgusunu aşağıdaki gibi deneyiniz.

If wsüyeborçdetay.Cells(BorçSatırı, "B") <> "" And wsüyeborçdetay.Rows(BorçSatırı).Hidden = False Then