Eğer Formülünde Koşul İfadesi

[tuvons]

Merhaba arkadaşlar,

Aşağıdaki gibi eğer ifadesinde "Ankara" veya "İstanbul" ise "Doğru" yaz yerine "Ankara" ve "İstanbul" ve diğerlerini içeren bir liste içine yazsam, eğer bu listenin içindeyse "Doğru" yaz gibi bir makro yazabilir miyiz?

If Mid(Veri1(x1, 10), 1, 3) = "Ankara" Or Mid(Veri1(x1, 10), 1, 3) = "İstanbul" Then
    tur = "Doğru"
ElseIf Mid(Veri1(x1, 10), 1, 3) = "Yurtdışı" Then
    tur = "Diğer"
Else
    tur = "Hatalı"
End If

 

[AdemCan]

Merhaba, örnek olması açısından A sütunundaki verileri, dizi içerisinde yazılan veriler ile karşılaştırır ve B sütununa sonucu yazar.

Sub test()
dizi = Array("Ankara", "İstanbul", "İzmir")
    For i = 1 To 7
        For x = 0 To 2
            If Cells(i, 1) = dizi(x) Then
                Cells(i, 2) = "Doğru"
                GoTo sonraki
            ElseIf Cells(i, 1) = "Yurtdışı" Then
                Cells(i, 2) = "Diğer"
            Else
                Cells(i, 2) = "Hatalı"
            End If
        Next x
sonraki:
    Next i
End Sub

Kod örnek olduğu için döngü bitişlerini sabit yazdım, siz dosyanıza göre uyarlama yapabilirsiniz.
Olmaz ise Google Drive, OneDrive ya da diğer paylaşım siteleri aracılığı ile dosyanızı paylaşır mısınız?

 

[tuvons]

teşekkürler @AdemCan

 

[AdemCan]

Rica ederim.