DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Public Function İskontoTotal(Adres As Range)
If Adres.Columns.Count <> 4 Then
İskontoTotal = "HATA"
Exit Function
End If
'0 miktar
'1 fiyat
'2 1.iskonto
'3 2.iskonto
For i = 0 To Adres.Rows.Count - 1
İskontoTotal = İskontoTotal + (((Cells(Adres.Cells.Row + i, Adres.Cells.Column) * Cells(Adres.Cells.Row + i, Adres.Cells.Column + 1)) * _
Cells(Adres.Cells.Row + i, Adres.Cells.Column + 2)) / 100) - ((((Cells(Adres.Cells.Row + i, Adres.Cells.Column) * Cells(Adres.Cells.Row + i, Adres.Cells.Column + 1)) * _
Cells(Adres.Cells.Row + i, Adres.Cells.Column + 2)) / 100) * Cells(Adres.Cells.Row + i, Adres.Cells.Column + 3)) / 100
Next i
End Function
Doğal değil, değerleri yeniden hesaplaması lazımOranlar veya miktar v.s. değiştiği zaman değerler tekrar hesaplanmıyor doğal olarak.
...