Textbox içeriği birbirine eşit değilse

[meslek5]

Merhaba değerli hocalarım.

Textbox1'de yazılı değer Textbox2 veya Textbox3 içeriği ile eşit değilse makroyu sonlandırmak, eğer Textbox1 birinden birine eşitse devam ettirmek istiyorum. Fakat Textbox1 içeriği Textbox2 veya Texbox3 içeriğine eşit olmasına rağmen ilerlemiyor.

If TextBox1.Value <> TextBox2.Value Or TextBox3.Value Then

 

[Muzaffer Ali]

Merhaba.

Aşağıdakilerden istediğinizi kullanabilirsiniz.

    If TextBox1.Value = TextBox2.Value Or TextBox1.Value = TextBox3.Value Then
        'TextBox1 2 yada 3 ile eşitse buradaki kodlar çalışır
    Else
        'Eşitlik yoksa buradaki kodlar çalışır.
        'Buraya Exit sub satırı ekleyerek kodlşarın çalışmasını engelleyebilirsiniz.
        Exit Sub
    End If

Yada

    If TextBox1.Value <> TextBox2.Value And TextBox1.Value <> TextBox3.Value Then
        'Eşitlik yoksa buradaki kodlar çalışır.
        Exit Sub
    Else
        'Eşitlik varsa buradaki kodlar çalışır
    End If

Yada

    If TextBox1.Value <> TextBox2.Value And TextBox1.Value <> TextBox3.Value Then
        'Eşitlik yoksa buradaki kodlar çalışır.
        Exit Sub
    End If

 

[meslek5]

Merhaba.

Aşağıdakilerden istediğinizi kullanabilirsiniz.

    If TextBox1.Value = TextBox2.Value Or TextBox1.Value = TextBox3.Value Then
        'TextBox1 2 yada 3 ile eşitse buradaki kodlar çalışır
    Else
        'Eşitlik yoksa buradaki kodlar çalışır.
        'Buraya Exit sub satırı ekleyerek kodlşarın çalışmasını engelleyebilirsiniz.
        Exit Sub
    End If

Yada

    If TextBox1.Value <> TextBox2.Value And TextBox1.Value <> TextBox3.Value Then
        'Eşitlik yoksa buradaki kodlar çalışır.
        Exit Sub
    Else
        'Eşitlik varsa buradaki kodlar çalışır
    End If

Yada

    If TextBox1.Value <> TextBox2.Value And TextBox1.Value <> TextBox3.Value Then
        'Eşitlik yoksa buradaki kodlar çalışır.
        Exit Sub
    End If

çok teşekkür ederim hocam sonuncu kod tam istediğim sonucu verdi.