Tarikkk_
Altın Üye
- Katılım
- 5 Ocak 2020
- Mesajlar
- 404
- Excel Vers. ve Dili
- Excel 2019
- Altın Üyelik Bitiş Tarihi
- 26-10-2028
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
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