Eksikleri Nasıl Bulabilirim

[osmankul]

ekteki örnek dosyada da belirttiğim gibi E SÜTUNUNDAKİLERLE C SÜTUNUDAKİLER FİŞ NUMARALARI E SÜTUNUNDA OLUP C SÜTUNUDADA OLANLARIN GÖZÜKMEMESİNİ BUNA KARŞILIK C SÜTUNUNDA OLUPDA E DE OLMAYANLARINDA GÖZÜKMESİNİ İSTİYORUM BUNU NASIL YAPABİLİRİM

 

[İhsan Tank]

ekteki örnek dosyada da belirttiğim gibi E SÜTUNUNDAKİLERLE C SÜTUNUDAKİLER FİŞ NUMARALARI E SÜTUNUNDA OLUP C SÜTUNUDADA OLANLARIN GÖZÜKMEMESİNİ BUNA KARŞILIK C SÜTUNUNDA OLUPDA E DE OLMAYANLARINDA GÖZÜKMESİNİ İSTİYORUM BUNU NASIL YAPABİLİRİM

merhaba
öncelikle Yazarken Küçük harf yazarsanız daha iyi olur.
eki inceleyiniz.
formüller Dizi Formülüdür. ( Dizi Formülü Formül Girildikten Sonra Enter Tuşuna Basmadan ctrl+shift+enter Tuş Kombinasyonu İle Aktif Olur ve Formülün Başına {} bu işaretler çıkar Elle Girerseniz Formül Hata Verecektir. )
Not : Formüller Ömer Uzman'dan Alıntıdır. Kendisine Çok Teşekkür Ederim
I2'deki Formülü Silmeyiniz.
H Sutunundaki Formülü Yeterince Çoğaltınız. Ben 100 Satır'a Kadar Yaptım.

 

[Evolver]

aşağıdaki kodları deneyin bakalım istediğiniz bumuydu

Sub aynilar()
Dim eson As Integer
Dim ara As Range
Dim a As Range
Dim bul As String

eson = Range("E65536").End(xlUp).Row
For Each a In Range("E2:E" & eson)
    Set ara = Range("C:C").Find(a, , xlValues, xlWhole)
    If Not ara Is Nothing Then
        bul = ara.Address
        Do
            ara.Interior.ColorIndex = 2
            ara.Font.ColorIndex = 2
            Set ara = Range("C:C").FindNext(ara)
        Loop While ara.Address <> bul
    End If
Next a
End Sub