x hücresi boş ise y hücresinin değerini y hücresine yazdırma. x hücresi dolu ise herhangi bir işlem yapılmaması

[Ercan6321]

Merhabalar. ekte gönderdiğim örnekte, not1 boş ise not2'nin değerinin not1'e alınamasını yapmak istiyorum. tek satırlık kodla yapılıyor. fakat yaklaşık 180 satır için aynı kodları yazmam gerekecek. bunu daha kısa şekilde yapabilir miyiz? ekte gönderdiğim dosya örnektir.

 

[dEdE]

Dener misiniz?

Sub Düğme1_Tıklat()
    ss = Sayfa1.Cells(Rows.Count, "A").End(3).Row
    For i = 2 To ss
        If Cells(i, 3) = "" Then Cells(i, 5).Copy Cells(i, 3)
    Next i
End Sub

 

[Ercan6321]

Dener misiniz?

Sub Düğme1_Tıklat()
    ss = Sayfa1.Cells(Rows.Count, "A").End(3).Row
    For i = 2 To ss
        If Cells(i, 3) = "" Then Cells(i, 5).Copy Cells(i, 3)
    Next i
End Sub

Çok işime yarayacak.İstediğim gibi çalışıyor. Ufak tefek güncellemeyle yaptığım programa tam oturacak. Teşekkür ederim.