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
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