Hücre İçinde Veri Sorgulama

[Bakigemlik]

Merhaba,

Ek dosyada A hücresinde görüldüğü gibi verilerim var, hücre içinde veriler ";" birbirinden ayrılıyor, birden fazla il olduğu zaman bunlar birbirinden farklı ise B hücresine "Hata Var" yazabilir mi?

Konu hakkında desteğinizi rica ederim,

Teşekkürler,

 

[sakman26]

selam,
sorunuz Makro başlığı altında..
Formülle çözüm isterseniz eki inceleyin..
kolay gelsin..

 

[Bakigemlik]

Çok teşekkürler desteğiniz ve emeğiniz için,

 

[YUSUF44]

Dün makroyla yapmaya çalıştım ama işin içinden çıkamadım. Sayın sakman26 olaya çok güzel bir yaklaşım yapmış. Teşekkür ederim.

 

[sakman26]

Çok teşekkürler desteğiniz ve emeğiniz için,

Rica ediyorum..
İnce düşünceleriniz için ben teşekkür ediyorum..
kolay gelsin...

 

[sakman26]

Dün makroyla yapmaya çalıştım ama işin içinden çıkamadım. Sayın sakman26 olaya çok güzel bir yaklaşım yapmış. Teşekkür ederim.

Rica ediyorum..
İnce düşünceleriniz için ben teşekkür ediyorum..
kolay gelsin...

 

[Ziynettin]

Dün makroyla yapmaya çalıştım ama işin içinden çıkamadım. Sayın sakman26 olaya çok güzel bir yaklaşım yapmış. Teşekkür ederim.

Merhaba,

Kod ile yapılan çalışma.

Sub Hatali()
Dim d As Object, a(), b(), Kriter As Variant
Dim j As Long, i As Integer, Son As Long
    Son = Cells(Rows.Count, 1).End(3).Row
    ReDim b(1 To Son, 1 To 1)
    a = Range("A1:A" & Son)
        For j = 1 To UBound(a)
            Set d = CreateObject("Scripting.Dictionary")
            Kriter = Split(a(j, 1) & ";", ";")
                For i = 0 To UBound(Kriter)
                    d(Kriter(i)) = ""
                Next i
            If d.Count - 1 > 1 Then
                b(j, 1) = "Hata Var"
            End If
        Next j
    Range("B1").Resize(UBound(a)) = b
MsgBox "İşleminiz Tamam.", vbInformation
End Sub