[Yardım]  Çoklu If-Else kullanırken sonraki ELseIf e geçmiyor

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

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

İleti#1)  HyperNemesiS » 12 Oca 2021 16:05

(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?


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
Kullanıcı avatarı
HyperNemesiS
 
Kayıt: 10 Kas 2020 16:19
Meslek: Öğrenci
Yaş: 21
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun

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

İleti#2)  halily » 12 Oca 2021 16:11

Bildigim kadarıyla VBA if koşulu boyle kontrol edilmez
Kod: Tümünü seç
if a=b and b=c then
.
.
elseif a<>b and b<>c then
.
.
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 342
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

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

İleti#3)  halily » 12 Oca 2021 16:12

Koşullar ayrı ayrı kontrol edilir.
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 342
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

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

İleti#4)  HyperNemesiS » 12 Oca 2021 16:23

çok basit bir hata -_- Hatayı biliyorum ama unutuyorum .şu öğrenme süreçlerinde yapılan basit hatalar insanın şevkini kırıyor. gene de teşekkürler hatamı gösterdiğiniz için :)
Kullanıcı avatarı
HyperNemesiS
 
Kayıt: 10 Kas 2020 16:19
Meslek: Öğrenci
Yaş: 21
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Samsun

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

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

İleti#5)  halily » 12 Oca 2021 16:37

Rica ederim
Iyi calismalar
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 342
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

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

İleti#6)  şahin » 12 Oca 2021 21:29

Kod: Tümünü seç
Sub ifThen()


Dim a, b, c As Integer



a = 3
b = 3
c = 3


If a = b And a = c And c = b Then
Sayfa1.Cells(5, 5) = "X"
Sayfa1.Cells(5, 6) = "X"
Sayfa1.Cells(5, 7) = "X"
    ElseIf a <> b And a <> c And c <> b Then
    Sayfa1.Cells(5, 5) = "X"
    Sayfa1.Cells(5, 6) = "Y"
    Sayfa1.Cells(5, 7) = "Z"
        ElseIf a = b And a <> c Then
        Sayfa1.Cells(5, 5) = "X"
        Sayfa1.Cells(5, 6) = "X"
        Sayfa1.Cells(5, 7) = "Y"
            ElseIf a <> b And a = c Then
            Sayfa1.Cells(5, 5) = "X"
            Sayfa1.Cells(5, 6) = "Y"
            Sayfa1.Cells(5, 7) = "Y"
End If
End Sub
Kullanıcı avatarı
şahin
Site Dostu
 
Kayıt: 30 Eyl 2016 21:24
Meslek: memur
Yaş: 31
İleti: 1127
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], Yandex[Bot] ve 0 misafir

Bumerang - Yazarkafe