- Katılım
- 4 Ocak 2006
- Mesajlar
- 35
- Excel Vers. ve Dili
- Excel 2003-Türkçe
VB ile ortalama aldırmak istiyorum... Lütfen yardımcı olurmusunuz?
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Ben aşağıdaki gibi bir kod ile kullanmaya çalıştığımda farklı işlem yapmaktadır. Lütfen hataaaa nerde ya...leventm' Alıntı:Kodunuzu aşağıdaki ile değiştirerek deneyin.
[vb:1:f3086dafff]Private Sub CommandButton1_Click()
Dim x As Long
Dim y As Long
Dim s As Long
Sayfa2.Activate
Sayfa2.Cells(1, 1).Value = Calendar1.Value
For s = 5 To 8
Sayfa2.Cells(s, 2).Clear
Next s
For a = 5 To 8
For x = 5 To 14
If Sayfa2.Cells(a, 1).Value = Sayfa1.Cells(x, 1).Value And Sayfa2.Cells(a, 3).Value = Sayfa1.Cells(x, 3).Value Then
c = c + 1
Sayfa2.Cells(a, 2).Value = Sayfa1.Cells(x, 2).Value + Sayfa2.Cells(a, 2).Value
Sayfa2.Cells(a, 4).Value = Sayfa2.Cells(a, 2).Value / c
End If
Next x
c = 0
Next a
End Sub
[/vb:1:f3086dafff]
Çok gerekliydi... Bir türlü çözemiyorum. Kilitlendim.VisuaL.NET' Alıntı:konu ile ilgili yardımcı olabilicek varmıdır?