eğer boşsa üst satırı yaz

[mrt]

Sub tamamla()
For a = 1 To [a65536].End(3).Row
If Cells(a, "a") = 0 Then Cells(a, "a") = Cells(a - 1, "a")
Next
End Sub

makroyu çalıştırdığımda
Cells(a, "a") = Cells(a - 1, "a") 'da Sarı olarak renklenmeket ve hata vermektedir.

 

[Ali]

Döngüyü a=1 ile başlattığınız için oluyor. Dolayısıyla Cells(a-1,"a") kısmında a-1 sıfıra eşit olmuş oluyor. O kısmı düzeltin.

 

[hamitcan]

Döngüyü 1 den başlattığınız için olmalı.

a= 1 olduğunda; Cells(a - 1, "a")= cells(0;"a") olur.

Döngüyü 2 den başlatmanız sorunu çözecektir.

For a = 2 To [a65536].End(3).Row şeklinde