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

cemshan

Altın Üye
Katılım
5 Nisan 2008
Mesajlar
359
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
06-12-2025
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

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
6,605
Excel Vers. ve Dili
2019 Türkçe
Kod:
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

Altın Üye
Katılım
5 Nisan 2008
Mesajlar
359
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
06-12-2025
Muzaffer Bey elinize sağlık sorunsuz çalıştı
 
Üst