VBA Uygulaması

[doğuhancankurt]

Ekte paylaşılan dosyada her dönemin öncesindeki 4 dönem ele alınarak örneğin 5.dönem tahmini için 4. dönem satışı * 0,4 + 3.dönem satışı*0,3 + 2. dönem satışı* 0,2 + 1. dönem satışı* 0,1 formülü uygulanacaktır. Bu uygulama için sumproduct kullanımının uygun olacağını düşündüm. Ancak her seferinde kendinden önceki 4 dönemi nasıl ele alacağımı bilmiyorum. Yöntemin uygulaması ekte paylaşılmıştır. Bu konuda bana yardımcı olmanız mümkün mü acaba ?

 

[çıtır]

C6 Hücrrsine kopyalayınız.Aşağı dığru çoğaltınız.

=KAYDIR($B$1;TAVANAYUVARLA(SATIR($A1)/SATIR($A$1);1);)*0,1+KAYDIR($B$1;TAVANAYUVARLA(SATIR($A1)/SATIR($A$1);1)+1;)*0,2+KAYDIR($B$1;TAVANAYUVARLA(SATIR($A1)/SATIR($A$1);1)+2;)*0,3+KAYDIR($B$1;TAVANAYUVARLA(SATIR($A1)/SATIR($A$1);1)+3;)*0,4

 

[doğuhancankurt]

Çok teşekkür ederim ilginiz için ancak bu işlemi makroyla nasıl tanımlayabilirim?

 

[çıtır]

Deneyiniz.

Sub işlemyap()
Dim s1 As Worksheet: Dim i As Integer
Set s1 = Sheets("Sayfa1")
For i = 2 To 7
s1.Range("C" & i + 4) = s1.Range("B" & i) * 0.1 + s1.Range("B" & i + 1) * 0.2 + s1.Range("B" & i + 2) * 0.3 + s1.Range("B" & i + 3) * 0.4
Next i
End Sub

 

[doğuhancankurt]

Kod çalıştı. Vaktinizi ayırdığınız için çok teşekkür ederim

 

[çıtır]

Kod çalıştı. Vaktinizi ayırdığınız için çok teşekkür ederim

Rica ederim.Dönüş yaptığınız için teşekkür ederim.