- Katılım
- 5 Nisan 2008
- Mesajlar
- 352
- Excel Vers. ve Dili
-
Microsoft Office Standard 2010 TR
32 Bit
- Altın Üyelik Bitiş Tarihi
- 31-01-2024
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