VBA çarpa işmeminde 0 lar yazılmasın

[cemshan]

Aşağıdaki kodda işlem sonucu 0 olan değer boş kalsın


Sub carpyeni()

With Sheets("Girişlerr").Range("h2:h5000")
.Formula = "=Girişlerr!f2*Girişlerr!m2"
.Value = .Value
End With

With Sheets("Girişlerr").Range("I2:I5000")
.Formula = "=Girişlerr!G2*Girişlerr!m2"
.Value = .Value
End With

End Sub

 

[Muzaffer Ali]

Sub carpyeni()
    With Sheets("Girişlerr").Range("h2:h5000")
        .Formula = "=if(Girişlerr!f2*Girişlerr!m2=0,"""",Girişlerr!f2*Girişlerr!m2)"
        .Value = .Value
    End With
   
    With Sheets("Girişlerr").Range("I2:I5000")
        .Formula = "=if(Girişlerr!g2*Girişlerr!m2=0,"""",Girişlerr!g2*Girişlerr!m2)"
        .Value = .Value
    End With
End Sub

 

[cemshan]

Muzaffer Bey elinize sağlık sorunsuz çalıştı

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.