MsgBox Hatam....

[Caqatay]

MsgBox Hatam....(çözüLdü)

Merhaba arkadaşLar okuLda ders için not hesapLama tabLosu yaptık..Fakat ben bişeyLeri eksik bıraktıgımı sanıyorum ki makroda iLk uyarıyı verdikten sonra diğerLerinide veriyor..MeseLa bütünLeme notu 60'tan düşükse " Malesef Kaldınız " demesi gerekiyor tamam " Malesef Kaldınız " diyor ama ardından " Tebrikler Final Notu İle Geçtiniz " ve " Tebrikler Vize Notu İle Geçtiniz " UyarıLarınıda veriyor...MeseLa Ortalama 70 iken " Tebrikler Final Notu İle Geçtiniz " uyarısını aLdıktan sonra " Tebrikler Bütünleme Notu İle Geçtiniz " Uyarısınıda veriyor...DüzeLtmem için ne yapmaLıyım kodLarı aşağıda veriyorum...Şimdiden teşekkürLer...
İyi çaLışmaLar.

Sub deneme1()
'
' deneme1 Makro
' Makro meb tarafından 19.03.2008 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+q
'
    vize = Range("A2").Value
    final = Range("B2").Value
    bütünleme = Range("D2").Value
ortalama = vize * 0.3 + final * 0.7
Range("C2").Value = ortalama


    If (ortalama > 60) Then GoTo bitis

ortalama = vize * 0.3 + Butunleme * 0.7
    If (ortalama > 60) Then
MsgBox ("Tebirkler Bütünleme İle  Geçtiniz")
Else
MsgBox ("Malesef Kaldınız")

End If
bitis:
MsgBox ("Tebrikler Final  Notu İle Geçtiniz")
bitir: MsgBox ("Tebrikler Bütünleme Notu İle Getçiniz")
End Sub

 

[veyselemre]

Sub deneme1()
    vize = Range("A2").Value
    final = Range("B2").Value
    Bütünleme = Range("D2").Value
    ortalama = Round(vize * 0.3 + final * 0.7, 0)

    Range("C2").Value = ortalama

    If (ortalama >= 60) Then
        MsgBox ("Tebrikler, Final  Notu İle Geçtiniz") & vbCr & "Ortalamanız :" & ortalama
    Else
        ortalama = Round(vize * 0.3 + Bütünleme * 0.7, 0)
        If ortalama >= 60 Then
            MsgBox "Tebirkler, Bütünleme İle  Geçtiniz" & vbCr & "Ortalamanız :" & ortalama
        Else
            MsgBox "Malesef Kaldınız" & vbCr & "Ortalamanız :" & ortalama
        End If
    End If
End Sub

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Sub deneme1()
'
' deneme1 Makro
' Makro meb tarafından 19.03.2008 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+q
'
    vize = Range("A2").Value
    final = Range("B2").Value
    bütünleme = Range("D2").Value
ortalama = (vize * 0.3) + (final * 0.7)
Range("C2").Value = ortalama
ortalama2 = (vize * 0.3) + (bütünleme * 0.7)
If (ortalama > 60) Then
MsgBox ("Tebrikler Final  Notu İle Geçtiniz")
ElseIf (ortalama2 > 60) Then
MsgBox ("Tebrikler Bütünleme İle  Geçtiniz")
Else
MsgBox ("Malesef Kaldınız")
End If
End Sub

 

[Caqatay]

NasıL teşekkür edeceğimi biLemiyorum.... Çok sağoLun Allah razı oLsun...
İyi çaLışmaLar tekrardan....