Gizli satırları atlayarak sıra no vermek

[ASLAN7410]

Merhaba hayırlı akşamlar.

Ekte gönderdiğim çalışma dosyamda A3 satırından aşağı doğru devam eden sıra numarası var, bazı satırları manuel olarak gizlediğim için butona bastığımda bu gizli satırları atlayarak A3 hücresinden aşağı doğru sıra numarasını normal olarak 1,2,3,4,5,6,..... gibi devam etmesini istiyorum.

İnternette ve forumda araştırdım ancak böyle bir çalışma bulamadım.
Yardımcı olur musunuz?

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub SIRA_NO_VER()
    Dim X As Long, Son As Long, No As Long
    
    Application.ScreenUpdating = 0
    
    Range("A3:A" & Rows.Count).ClearContents
    No = 1
    Son = Cells(Rows.Count, "B").End(3).Row
    
    For X = 3 To Son
        If Cells(X, 1).RowHeight > 0 Then
            Cells(X, 1) = No
            No = No + 1
        End If
    Next
    
    Application.ScreenUpdating = 1
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ASLAN7410]

Sayın Korhan Bey ellerinize sağlık kodlar gayet güzel çalışıyor, ellerinize sağlık.

Benim gönderdiğim örnekte B sütunu boş idi, bundan dolayıda yazmış olduğunuz kodlar A5000 hücresine kadar sayı veriyor. B sütunundaki dolu bilgiye göre sayı vermesi gerekiyordu, buna dikkat etmemişim özür diliyorum kusura bakmayın.

B sütununu kontrol ederek sayı vermesi gerekiyor, kodları bu şekilde düzeltir misiniz?

 

[1903emre34@gmail.com]

Merhaba, deneyiniz

Sub SIRA_NO_VER()
    Dim X As Long, Son As Long, No As Long
    
    Application.ScreenUpdating = 0
    
    Range("B3:B" & Rows.Count).ClearContents
    No = 1
    Son = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    
    For X = 3 To Son
        If Cells(X, 2).RowHeight > 0 Then
            Cells(X, 2) = No
            No = No + 2
        End If
    Next
    
    Application.ScreenUpdating = 1
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ASLAN7410]

Sayın 1903emre34@gmail.com ilginiz için çok teşekkür ediyorum, yanlış anladınız galiba.

Benim istediğim A sütununa sayı vermesi, sayı verirken de B sütunundaki en son dolu hücreye kadar kontrol ederek sayı vermesini istemiştim.

 

[Korhan Ayhan]

Üstteki mesajımda ki kodu güncelledim. Tekrar deneyiniz.

 

[ASLAN7410]

Sayın Korhan Bey çok teşekkür ediyorum, tam istediğim gibi oldu, çok işime yaradı, Allah razı olsun.

Hayırlı geceler, hayırlı çalışmalar diliyorum.