VBA - Başarı notu ve Durumu hesaplama

[bully1963]

Herkese selamlar,
Aşağıdaki veriler için visual basic kodları ile notların başarı notu ve başarısız, başarılı olma durumlarını girmem gerekiyor.
Not-1 katkısı %25, Not-2 katkısı %35, Not-3 katkısı %40 olacak şekilde ortalamayı hesaplatıp 60 ve üzeri ortalamalı öğrencileri “Başarılı” olarak diğerlerini “Başarısız” olarak olarak durumun altında geçmesi gerekiyor. Kodlar için yardımcı olabilir misiniz?

Numara	Adı Soyadı	Not-1	Not-2	Not-3	Başarı notu	Durum
1234​	Alper Derya	65​	74​	74​
1543​	Hasan Özyavuz	74​	85​	12​
1764​	Erşen Yavuz	85​	65​	36​
1678​	Ali Özkanlı	98​	86​	52​
1654​	Yavuz Alp	52​	41​	14​
1345​	Tolga Talay	45​	52​	58​
1667​	Bilge Yılmaz	87​	65​	96​
1763​	Ada Yılmaz	84​	66​	52​
1340​	Salih Gök	82​	96​	41​

 

[AdemCan]

Merhaba, hesaplama için örnek kodlar.

Sub test()
Dim s1 As Worksheet, son As Long, x As Long
Dim not1 As Double, not2 As Double, not3 As Double, toplam As Double
Set s1 = Sayfa1 ' Hesap yapacağınız Sayfa ismi ile değiştiriniz.
son = s1.Cells(Rows.Count, 1).End(3).Row

For x = 2 To son
    not1 = s1.Cells(x, 3).Value * 0.25
    not2 = s1.Cells(x, 4).Value * 0.35
    not3 = s1.Cells(x, 5).Value * 0.4
    toplam = not1 + not2 + not3
    s1.Cells(x, 6).Value = toplam
    
    If toplam >= 60 Then
        s1.Cells(x, 7).Value = "Başarılı"
    Else
        s1.Cells(x, 7).Value = "Başarısız"
    End If
    
Next x
End Sub

 

[bully1963]

Teşekkürler Adem Bey kod sorunsuz çalıştı

 

[AdemCan]

Rica ederim.