Arkadaşlar,
Excelde adat hesaplatmak için formül yazdım sizinlede paylaşmak istedim.
VBA'da bir tane modül açıp aşağıdaki kodları buraya yapıştırıyoruz.
çalıştırılması basit; önce çek vadelerini yazıyoruz yan sütuna tutarlarını yazıyoruz sonra hherhangi bir hücrede =adat(ilk tarihten: son tutara kadar işaretliyoruz) ve ortalama vade karşınızda
altta örnektede görebilirsiniz.
'********* burdan aşağısını kopyalayın ***********
Function adat(isaretle)
s = isaretle.Count / 2
For say = 1 To s
vd = vd + (isaretle(say, 1) * isaretle(say, 2))
tut = tut + isaretle(say, 2)
Next
adatt = vd / tut
If Format(adatt, "dddd") = "Cumartesi" Then adatt = adatt + 2
If Format(adatt, "dddd") = "Pazar" Then adatt = adatt + 1
adat = Format(adatt, "dd.mm.yyyy")
End Function
Excelde adat hesaplatmak için formül yazdım sizinlede paylaşmak istedim.
VBA'da bir tane modül açıp aşağıdaki kodları buraya yapıştırıyoruz.
çalıştırılması basit; önce çek vadelerini yazıyoruz yan sütuna tutarlarını yazıyoruz sonra hherhangi bir hücrede =adat(ilk tarihten: son tutara kadar işaretliyoruz) ve ortalama vade karşınızda
altta örnektede görebilirsiniz.
'********* burdan aşağısını kopyalayın ***********
Function adat(isaretle)
s = isaretle.Count / 2
For say = 1 To s
vd = vd + (isaretle(say, 1) * isaretle(say, 2))
tut = tut + isaretle(say, 2)
Next
adatt = vd / tut
If Format(adatt, "dddd") = "Cumartesi" Then adatt = adatt + 2
If Format(adatt, "dddd") = "Pazar" Then adatt = adatt + 1
adat = Format(adatt, "dd.mm.yyyy")
End Function