çarpım esnasında hücre değeri sıfır görünüyor

[ÖZLÜCE]

Merhaba

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
Dim sno As Long
sno = Target.Row
Cells(sno, "A")=.Cells(sno, "B") * Cells(sno, "C") * Cells(sno, "D")
End Sub

normalde çarpma işlemi doğru çıkıyor. Fakat B veya C veya D hücrelerinden herhangi biri boşsa o hücrenin değerini sıfır kabul ediyor ve sonuç sıfır çıkıyor.

bu konuda yardımlarınızı bekliyorum. teşekürler

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    p = 1
    For i = 2 To 4
        If Cells(Target.Row, i) <> "" Then p = p * Cells(Target.Row, i)
    Next
    Cells(Target.Row, 1) = p
End Sub

şeklinde deneyin.

 

[ÖZLÜCE]

Hocam çok teşekkür ederim, Emeğine sağlık