Excel Makro Not Ortalaması

[estadroda]

Merhaba ekte gönderdiğim dosyada örnekteki gibi makro butonları oluşturulabilirmi
Not ortalama alması için makro buton
yazdır butonu
teşekkür ederm

 

[Orion1]

Dosyanız ektedir.

Sub Grup3_Tıklat()
On Error Resume Next
ActiveSheet.PageSetup.PrintArea = "A1:C" & Cells(65536, "B").End(xlUp).Row
ActiveSheet.PrintOut copies:=1
ActiveSheet.PageSetup.PrintArea = ""
End Sub
Sub Grup4_Tıklat()
Range("A2").AutoFilter
Range("A2").AutoFilter field:=3, Criteria1:="<=50"
End Sub
Sub Grup19_Tıklat()
Range("A1").AutoFilter
End Sub
Sub Grup13_Tıklat()
Range("A2").AutoFilter
Range("A2").AutoFilter field:=3, Criteria1:=">=50"
End Sub
Sub Grup16_Tıklat()
MsgBox "Oratalama : " & WorksheetFunction.Average(Range("C3:C" & Cells(65536, "A").End(xlUp).Row)) _
& vbLf & "evrengizlenqhotmail.com" & vbLf & "05.05.2011"
End Sub

 

[estadroda]

Çok teşekkür ederim eline sağlık