for each kodu hakkında

[kemalguray]

Merhabalar,

"for each" kodu ile veya başka bir kodla aşağıdaki kodun çözümünü nasıl yapabilirim.

excelde yüzlerce hücreden oluşan veri grubum var. farklı satırdaki değeri bu yüzlerce hücredeki değerden kontrol edip "evet" veya "hayır" yazdırmasını istiyorum.
bu kontrolü yaparken verilerin olduğu hücrelerde tam eşleşme değil içinde geçiyorsa "evet" yazmalı. Yani örneğin veri dosyasında 125647 yazılı referans hücrede 464 veya 125647 yazdığında "evet" çıktısını vermeli.
örnek oluşturduğum dosya ektedir.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub kontrol()
sonA = Cells(Rows.Count, "A").End(3).Row
sonD = Cells(Rows.Count, "D").End(3).Row

For d = 2 To sonD
    For a = 2 To sonA
        If Len(Cells(a, "A")) <> Len(Replace(Cells(a, "A"), Cells(d, "D"), "")) Then
            Cells(d, "E") = "Evet"
            a = sonA
        Else
            Cells(d, "E") = "Hayır"
        End If
    Next
Next
End Sub

 

[kemalguray]

Merhaba Yusuf bey,

iletmiş olduğunuz kodlar çalıştı.
teşekkürler, aslında daha kısa bir kodla yapmak mümkün olabilir mi acaba?

 

[YUSUF44]

Daha kısası olur mu bilmiyorum ama daha hızlısı muhtemelen vardır. Benim bilgim bu kadar maalesef. D sütunundaki her değer A sütunundaki her hücrede ayrı ayrı aranacağı için bu şekilde yaptım.

 

[kemalguray]

tamamdır Yusuf bey.
Çok teşekkürler,