Hücreye sıra no atama ve boş satırları yok etme

[uygaroz]

Forumda araştırdım ve bulduğum makroları uyarlamaya çalıştım fakat bir sonuç sorunlu oldu.
yapmak istediğim Adeti 0 olan hücreleri boş geçip
adedi 1 veya 1 den büyük olan hücrelere Sıra No vermek.
daha sonrada adedi 0 olan satırları gizlemek.

ekteki dosyaya bakarsanız sorunlu olduğunu göre bilirsiniz. adet yazan hücreye elle müdahale etmek gerekiyor.
ve makroyu ikinci bir kez çalıştırmak gerekiyor.
Yardım edebilecek arkadaşlara şimdiden teşekkür ederim.

Uygar

 

[Necdet]

Merhaba,

Siz zaten yapmışsınız. eksik olan nedir? Hatta fazlası vardı onları sildim

Sıra numarası verdirdim. Adetten sözettiğiniz için Z sütununu kontrol ettirdim.

Sub teklif_yok()
 
    Dim hücre As Range
    Dim SiraNo As Integer
    
    Application.ScreenUpdating = False
    
    Cells.EntireRow.Hidden = False
    
    For Each hücre In Range("Z43:Z69")
    
        If hücre = 0 Or hücre = "" Then
            hücre.EntireRow.Hidden = True
        Else
            SiraNo = SiraNo + 1
            Range("C" & hücre.Row) = SiraNo
            hücre.EntireRow.Hidden = False
        End If
        
    Next
    
    Application.ScreenUpdating = True
    
End Sub

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub teklif_yok_2()
'Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
    Range("C43:C69").ClearContents
X = 1
For i = 43 To 69
    If Cells(i, "z") > 0 Then
    Cells(i, "c") = X
    X = X + 1
    Else
        Cells(i, "c").EntireRow.Hidden = True
    End If
Next
'Application.ScreenUpdating = True
End Sub

 

[uygaroz]

Necdet Bey ve Uzmanamele
yardımlarınızdan dolayı çok teşekkur ederim.
uygar