Page 7 - Adobe Premiere

eri Excel Ders-3

İkinci işlem olarak Şu makro yazılır

Sub Ders3()

If Worksheets("Sayfa1").Range("d2").Value = "" Then
MsgBox ("Lütfen Notunuzu Girin")

ElseIf Worksheets("Sayfa1").Range("d2").Value < 50 Then
Worksheets("Sayfa1").Range("d4").Value = "Dersten Kaldınız"

ElseIf Worksheets("Sayfa1").Range("d2").Value = 50 Then
Worksheets("Sayfa1").Range("d4").Value = "Zorla Geçtiniz"

ElseIf Worksheets("Sayfa1").Range("d2").Value > 50 Then
Worksheets("Sayfa1").Range("d4").Value = "Geçtiniz"

End If

End Sub

Üçüncü işlem olarak oluşturulan makro ekranda hazırlanan butona atanır