Soru Koşullu veri aktarımı

[Gold_Savt]

Değerli arkadaşlar aşağıdaki formül ile 7.satırdaki bilgiyi olduğu gibi 8.satıra aktarıyorum.
Ancak "0" sıfır rakamı başıma dert oldu. Forüllerim bu sıfır yüzünde yanlış işliyor.
Aktarım yapılırken "Eğer hücre değeri "0" ise => "0" yerine "Boş hücre" olarak aktarım yapsın. Yani aktarılacak hücreyi temizlesin.
Mümkün müdür?

Kullandığım kod aşağıdadır:
Worksheets("veri").Cells(8, 4) = Worksheets("veri").Cells(7, 4)

 

[EmrExcel16]

Deneyiniz..

If Worksheets("veri").Cells(7, 4) <> 0 Then
    Worksheets("veri").Cells(8, 4) = Worksheets("veri").Cells(7, 4)
Else
    Worksheets("veri").Cells(8, 4) = ""
End If

 

[Gold_Savt]

Teşekkür ederim. Elinize sağlık hocam.

 

[EmrExcel16]

Teşekkür ederim. Elinize sağlık hocam.

Rica ederim , iyi çalışmalar.