Düşeyara ve Ortalama Hatası

[Ömer2134]

Merhaba arkadaşlar

Benim şöyle bir sorum olacaktı.

Ali isimli bir personelin 3 aylık satışının ortalaması toplam sayfasına yazdırılacak.

Eğer Ali 3. ayda işten ayrıldıysa o satırı ortalamaya dahil etmeyecek.

Kullandığım formül bu;


=ORTALAMAA(EĞERHATA((+DÜŞEYARA(B4;ARALIK!B4:C4;2;0));"");+EĞERHATA((+DÜŞEYARA(B4;OCAK!B4:C4;2;0));"");+EĞERHATA((+DÜŞEYARA(B4;ŞUBAT!B4:C4;2;0));""))

http://s2.dosya.tc/server2/w11xtx/SORU.xlsx.html

Arkadaşlar şimdiden hepinize teşekkürler.

 

[YUSUF44]

Anladığım kadarıyla aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Kodlar toplam sayfasında B sütununda 4. satırdan itibaren yer alan isimleri diğer sayfaların B sütununda arar ve mevcut olduğu sayfaların ortalamasını toplam sayfasında C sütununa yazar:

Sub ortalamahesapla()
For kişi = 4 To Sheets("toplam").Cells(Rows.Count, "B").End(3).Row
    kişitoplam = 0
    aysayısı = 0
    For ay = 1 To Sheets.Count
        If Sheets(ay).Name <> "toplam" Then
            For satır = 4 To Sheets(ay).Cells(Rows.Count, "B").End(3).Row
                If Sheets(ay).Cells(satır, "B") = Sheets("toplam").Cells(kişi, "B") Then
                    kişitoplam = kişitoplam + Sheets(ay).Cells(satır, "C")
                    aysayısı = aysayısı + 1
                End If
            Next
        End If
    Next
    Sheets("toplam").Cells(kişi, "C") = WorksheetFunction.Round(kişitoplam / aysayısı, 2)
Next

End Sub

 

[Ömer2134]

Hocam teşekkür ederim yardımınız için.