Gizlenen satırlara satır numarası ve Toplu çıktı alma

[bastug2000]

Bir tablom var.
1-100
2-200
3-300
....
15-1500

aradan satır gizliyorum sayır gizlediğim zaman sıra numarası yeni baştan otomatik verdirme işlemi.

Örn:2-200 yazan satırı gizleyince 3-300 olan 2-300 olucak.

Bir sorumda 200 adet sekmem var bunları tektek yazdırmak yerine toplu halde yazdırmak için bir makro varmıdır.

Yapımda ve yardımda emeği geçenlere şimdiden teşekkürler.

 

[Huseyinkis]

Ekteki Kodu Denermisiniz..


Eğer Sıra Numarası a1 den başlamıyorsa i = 1 To komutunu anın başladığı satırdan yapınız yani 1 sıra a2 de ise i = 2 to olacak.

Sub Sıra_No()
N = 1
For i = 1 To Range("A65536").End(3).Row
If Range("A" & i).EntireRow.Hidden = True Then
Range("A" & i) = ""
Else
Range("A" & i) = N
N = N + 1
End If
Next
End Sub