Çoklu If-Else kullanırken sonraki ELseIf e geçmiyor

(Konuyu yanlış yerde açtıysam affedin ilk sorum o yüzden If ile ilgili soruyu nereye yazacağımı bulamadım)
Merhabalar excel vba kısmını öğrenmeye çalışıyorum. If else ile bir şey denemek istedim ama sorunla karşılaşıyorum. a,b,c değerleri farklı veya aynı olsun farketmeksizin kod çalıştığında ilk ElseIf komutunu uyguluyor.
Örneğin:
a=3
b=3
c=3
Olması gereken:
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "X"
Sayfa1.Cells(5, 7) = "X"
Olan:
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "Y"
Sayfa1.Cells(5, 7) = "Z"
Her zaman ilk ElseIf komutunu uyguluyor benlik bir hata mı bilmiyorum ama başka kullanıcılarda sorunsuz çalışıyor. Forumdaki diğer kullanıcılarda bu tarz bir komut sorunsuz çalışıyor ve doğru değerleri gösteriyor. Hatam ne burada?
Merhabalar excel vba kısmını öğrenmeye çalışıyorum. If else ile bir şey denemek istedim ama sorunla karşılaşıyorum. a,b,c değerleri farklı veya aynı olsun farketmeksizin kod çalıştığında ilk ElseIf komutunu uyguluyor.
Örneğin:
a=3
b=3
c=3
Olması gereken:
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "X"
Sayfa1.Cells(5, 7) = "X"
Olan:
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "Y"
Sayfa1.Cells(5, 7) = "Z"
Her zaman ilk ElseIf komutunu uyguluyor benlik bir hata mı bilmiyorum ama başka kullanıcılarda sorunsuz çalışıyor. Forumdaki diğer kullanıcılarda bu tarz bir komut sorunsuz çalışıyor ve doğru değerleri gösteriyor. Hatam ne burada?
- Kod: Tümünü seç
Sub Düğme1_Tıkla()
Dim a, b, c As Integer
a = Sayfa1.Cells(4, 5).Value
b = Sayfa1.Cells(4, 6).Value
c = Sayfa1.Cells(4, 7).Value
If a = b = c Then
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "X"
Sayfa1.Cells(5, 7) = "X"
ElseIf a <> b <> c Then
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "Y"
Sayfa1.Cells(5, 7) = "Z"
ElseIf a = b <> c Then
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "X"
Sayfa1.Cells(5, 7) = "Y"
ElseIf a <> b = c Then
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "Y"
Sayfa1.Cells(5, 7) = "Y"
End If
End Sub