Benim yapmak isteğim Olay şu
Ã?rneğin 6/A sınıfı Türkçe Dersinden 1Dönem Yazılıların tüm notları ListBoxa Gelsin ve altında sınıf ortalmasını versin. List Boxtakileri istegim zaman Sayfa 4 e aktarayım. Yardımcı olursanız sevinirim Dosya ekte
Bu şekilde saatbaşı cevap yokmu tarzında mesaj yazmanıza bir anlam veremiyorum. Biraz sabırlı olun lütfen mutlaka bir arkadaşımız sorunuzla ilgilenecektir.
[vb:1:e5522f3276]Private Sub CommandButton16_Click()
On Error Resume Next
toplam = 0
kac = 0
ListBox3.Clear
ListBox3.AddItem
ListBox3.List(0, 0) = "adı"
ListBox3.List(0, 1) = "numarası"
ListBox3.List(0, 2) = "notu"
For a = 2 To Cells(65536, 1).End(xlUp).Row
If Cells(a, 2) = ComboBox10.Value Then
sut = ComboBox12.ListIndex + 12 + ComboBox11.ListIndex * 14
'MsgBox Cells(a, sut) & "<" & TextBox200.Value * 1 & "or" & Cells(a, sut) & ">" & TextBox201.Value * 1
c = c + 1
ListBox3.AddItem
ListBox3.List(c, 0) = Cells(a, 4).Value
ListBox3.List(c, 1) = Cells(a, 3).Value
ListBox3.List(c, 2) = Cells(a, sut).Value
toplam = toplam + Cells(a, sut).Value
kac = kac + 1
End If
10 Next
toplam = toplam / kac
c = c + 1
ListBox3.AddItem
ListBox3.List(c, 0) = "0"
ListBox3.List(c, 1) = "0"
ListBox3.List(c, 2) = toplam
End Sub[/vb:1:e5522f3276]
son satırlarda benim tırnak içinde 0 yazdığım yerlere istediğiniz başlığı atabilirsiniz. kolay gelsin
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.