Userform'da Değer Görüntüleme

[doğuhancankurt]

Merhaba,
Oluşturduğum proje çalışmamda Sayfa 2'de yer alan malzemelerin 2010-2019 yılları arası satış değerleri verilmiştir. Userform'da malzemelerin adlarının seçilmesi sonucunda Son Dönem Yöntemi'nin karşısında her malzeme için 2019 yılının satış değerlerinin aynen yazmasını, Basit Ortalama Yöntemi'nin karşısında her malzemenin o zamana kadarki ortalama satış değerinin yazmasını, Hareketli Ortalama Yöntemi'nin karşısında son 4 yılın satış değerlerinin ortalamasının yazmasını istiyorum. Bu konuda bana yardımcı olabilirseniz çok sevinirim. Çalışma dosyası ekte paylaşılmıştır.
Saygılarımla

 

[YUSUF44]

Aşağıdaki kodu dener misiniz:

Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
    On Error Resume Next
    Set s1 = ThisWorkbook.Worksheets("Sayfa2")
    sonsat = s1.Range("A65536").End(xlUp).Row
    sonsut = s1.Cells(1, 256).End(xlToLeft).Column
    sat = WorksheetFunction.Match(Year(Date), s1.Range("A1:A" & sonsat), 0)
    sut = WorksheetFunction.Match(ComboBox1.Value, s1.Range(Cells(1, "A"), Cells(1, sonsut)), 0)
    TextBox1 = s1.Cells(sat, sut)
    TextBox2 = WorksheetFunction.Average(s1.Range(Cells(2, sut), Cells(sonsat, sut)))
    TextBox3 = WorksheetFunction.Average(s1.Range(Cells(WorksheetFunction.Max(2, sat - 3), sut), Cells(sat, sut)))
End Sub