DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub CommandButton1_Click()
TextBox4 = Round((Val(TextBox1) + Val(TextBox2) + Val(TextBox3)) / _
WorksheetFunction.Count(TextBox1, TextBox2, TextBox3), 0)
End Sub