Koşulu bir kere yazmak

[Muhammet Okumuş]

Arkadaşlar merhaba,

Sub Düğme1_Tıklat()
If Range("A1") = 60 Then Range("B1") = "İYİ"
If Range("A1") = 60 Then Range("C1") = "ORTA"
If Range("A1") = 60 Then Range("D1") = "MÜKEMMEL"
If Range("A1") = 60 Then Range("E1") = "KÖTÜ"
End Sub

Yukarıdaki kodu daha kısa yazabilme imkanımız var mı? Yani koşulu 1 kez yazmamızı sağlayan yapı var mı?

 

[m.akcan]

sorunu tam anlamadım ama anladığım kadarı ile aşağıdaki kodlara bakınız

Sub Düğme1_Tıklat()
If Range("A1") = 60 Then
    Range("B1") = "İYİ"
    Range("C1") = "ORTA"
    Range("D1") = "MÜKEMMEL"
    Range("E1") = "KÖTÜ"
End If
End Sub

 

[mersilen]

Merhaba
dener misiniz?

Sub Düğme()
If Range("A1") = 60 Then Range("B1") = "İYİ": Range("C1") = "ORTA": Range("D1") = "MÜKEMMEL": Range("E1") = "KÖTÜ"
End Sub

 

[Muhammet Okumuş]

Sn m.akcan ve Sn mersilen cevaplarınız için teşekkür ederim. İki cevapta doğru cevaba ulaştı.

 

[snx111]

:???: Bence Bu soruyu sizin Sorma İhtimaliniz = 0.00000001 / 99 :S