Satırbaşı rakamları aşağı taşımak

[realmrxa]

Merhaba.Benim yapmaya çalıştığım satır başlarındaki rakamları 0 olan yerlere otomatik kopyalanmasını sağlamak.Bu uygulamayı örnek olarak yaptım ancak normalde bu satırlar 600-700 satır kadar uzanıyor.Yani ben her seferinde 7600,4800 vb. sayıları tek tek çekerek kopyalamam gerekiyor.

Ben istiyorum ki excel bu satır başlarını tespit edip bir sonraki satır başına kadar sayıyı 0 olan yerlere aşağı doğru kopyalasın.

Yani şu şekilde olsun istiyorum ancak her satırbaşında elle tekrar etmek istemiyorum.

Böyle bir şeyin mümkünatı var mı acaba?

Teşekkürler.

 

[bzace]

Merhaba,
Deneyiniz.

Sub Hatkoy()
son = Cells(Rows.Count, "C").End(xlUp).Row
For i = 1 To son
    If Cells(i, "C") = 0 Then Cells(i, "C").FillDown
Next
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "C").End(3).Row
        If Cells(i, "C") = 0 Then
            Cells(i, "C") = Cells(i - 1, "C")
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .

 

[realmrxa]

. . .

Sub kod()
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "C").End(3).Row
        If Cells(i, "C") = 0 Then
            Cells(i, "C") = Cells(i - 1, "C")
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .

Teşekkür ederim işe yaradı.Bir sorun çıkarsa yine danışırım.