ahmed_ummu
Altın Üye
- Katılım
- 28 Mart 2011
- Mesajlar
- 731
- Excel Vers. ve Dili
- Excel 2010 Professional Plus 64 Bit
- Altın Üyelik Bitiş Tarihi
- 15-10-2026
Merhaba arkadaşlar.
Aşağıdaki kodlarda toplama sonucu yanlış çıkıyor. Neden olabilir.
ActiveCell.Offset(0, 19).Value = WorksheetFunction.Round(ActiveCell.Offset(0, 18).Value * sgkd, 2) (Burası 0,19 sütunun hesaplanması)
ActiveCell.Offset(0, 25).Value = WorksheetFunction.Round(ActiveCell.Offset(0, 18).Value * sgkd, 2) (Burası 0,25 sütunun hesaplanması)
Alt toplamları alan kod.
For s1 = 4 To 34
sy.Cells(SonSatir + 2, 3).Value = "TOPLAM"
sy.Cells(SonSatir + 2, s1).Value = WorksheetFunction.Sum(sy.Range(sy.Cells(12, s1), sy.Cells(SonSatir + 2, s1)))
sy.Cells(SonSatir + 2, s1 + 16).NumberFormat = "#,##0.00"
sy.Cells(SonSatir + 2, 7).NumberFormat = "#,##0.00"
sy.Cells(SonSatir + 2, 11).NumberFormat = "#,##0.00"
sy.Cells(SonSatir + 2, 15).NumberFormat = "#,##0.00"
sy.Cells(SonSatir + 2, 19).NumberFormat = "#,##0.00"
Yardımcı olursanız çok sevinirim. En geç yarın teslim etmem lazım.
Aşağıdaki kodlarda toplama sonucu yanlış çıkıyor. Neden olabilir.
ActiveCell.Offset(0, 19).Value = WorksheetFunction.Round(ActiveCell.Offset(0, 18).Value * sgkd, 2) (Burası 0,19 sütunun hesaplanması)
ActiveCell.Offset(0, 25).Value = WorksheetFunction.Round(ActiveCell.Offset(0, 18).Value * sgkd, 2) (Burası 0,25 sütunun hesaplanması)
Alt toplamları alan kod.
For s1 = 4 To 34
sy.Cells(SonSatir + 2, 3).Value = "TOPLAM"
sy.Cells(SonSatir + 2, s1).Value = WorksheetFunction.Sum(sy.Range(sy.Cells(12, s1), sy.Cells(SonSatir + 2, s1)))
sy.Cells(SonSatir + 2, s1 + 16).NumberFormat = "#,##0.00"
sy.Cells(SonSatir + 2, 7).NumberFormat = "#,##0.00"
sy.Cells(SonSatir + 2, 11).NumberFormat = "#,##0.00"
sy.Cells(SonSatir + 2, 15).NumberFormat = "#,##0.00"
sy.Cells(SonSatir + 2, 19).NumberFormat = "#,##0.00"
Yardımcı olursanız çok sevinirim. En geç yarın teslim etmem lazım.
Ekli dosyalar
-
590.3 KB Görüntüleme: 4