satır iskontosu Hesaplaması

[conari]

Belgede ki Kırmızı alanın toplamı nasıl hesaplanabilir.
Not:Ek sütun kullanmak istemiyorum.

 

[hakemim]

:hihoho: işinizi görür zannedersem:hihoho:

 

[conari]

komik olmuş ama hata bende.
Girilen değerler ORAN

 

[hakemim]

:hihoho: ewet komik ama soruları daha net sorarsanız komik durumlara kimse düşmez bu da değilse daha açık sorarsanız yardımcı olurum.:hihoho:

 

[conari]

Yardımın için teşekkürler, Bayağı da uğraşmıssınız.
Bunu çözebilecek arkadaşlarının Oradaki bilginin Oran olabileceğini düşünebileceğini zannetmiştim. Neyse;
Bu formülü bu kadar uzatmamak için soruyu buraya yazdım . Burda 4 satır var 100 satır olsa idi 100 ünü bu şekilde hesaplayıp mı yazacaktınız ?
Yani satır sayısı değişken 100 de olabilir, 1 de.
Topla.çarpım, indis fonksiyonları ile bir şeyler yapamaya çalışıyorum.

Veya Makro yazacağım.

3. bir sütun olsa işim basit ama en son ihtimal.

 

[hakemim]

:hihoho: aşağı doğru koplarsanız örneği işinize yarar zannedersem :hihoho: yanlız iskonto değerinde değisiklik yaptığınızda formüle girdikten sonra enter yaparsanız fomül çalışıyor:hey: :icelim:

 

[conari]

Anlaşılan kafam bugün baya baya başka şeylerde.

Bir de bilgi vereyim bu gibi durumlar için dizi formul yapmalısın. Yani.
formülü verdikten sonra enterlamadan
CTRL+SHIFT+Enter ile sonlandırmalısın.

O zaman oranlar veya tutarlar değiştikten sonra herhangibir şey yapmana gerek kalmaz.:icelim:

 

[Biolight]

Kullanıcı tanımlı fonksiyon

Merhaba,
Kullanıcı tanımlı fonksiyonla çözümü buldum

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

sizin dosyanız (kalem iskonto.xls) da

=İskontoTotal(C8:F11)

şeklinde kullanabilirsiniz.

Kolay gelsin.

 

[conari]

Oranlar veya miktar v.s. değiştiği zaman değerler tekrar hesaplanmıyor doğal olarak.
Topla.çarpım işimi görüyor diye ben uğraşmadım eline sağlık diyelim.

 

[Biolight]

Merhaba,

Oranlar veya miktar v.s. değiştiği zaman değerler tekrar hesaplanmıyor doğal olarak.
...

Doğal değil, değerleri yeniden hesaplaması lazım
Ekte ki dosyayı inceleyiniz.

Excelin ana menüsünden
Araçlar-Seçenekler tıklayınız
Hesaplama bölümün de Otomatik işaretli olduğunu kontrol ediniz

Kolay gelsin.

 

[conari]

Kusura bakma SQLServerdan veri çeken bir excelim vardı onda OTO. devre dışı idi. ikisini bir açınca bunda da devre dışı kalmış ):

 

[Biolight]

Merhaba,
Soru güzel di onun için uğraşmıştım
Kolay gelsin.