koşula bağlı Mükerrer kayıt bulmak

[ilm25]

merhaba arkadaşlar gönderdiğim excel tablomda 2 türlü mükerrer kayıt sorgulaması yapmam gerekiyor yardımlarınızı rica ediyorum

 

[hamitcan]

Linkte bir sürü örnek mevcut.
http://www.excel.web.tr/f120/

 

[ilm25]

linklerde istediğim gibi bir sonuç bulamadım

 

[ilm25]

arkadaşlar tabloya bakıp acilen bir çözüm lütfen..........

 

[ilm25]

arkadaşlar lütfen şu çizelgeye bir göz atın

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?

Sub Mukerrer()
    Cells.Interior.ColorIndex = xlNone
    For i = 4 To [a65536].End(3).Row
        If WorksheetFunction.CountIf(Range("a" & i & ":a60"), Cells(i, 1)) > 1 Then
            Set f = Columns(1).Find(Cells(i, 1))
            Set g = Range("a" & i + 1 & ":a60").Find(Cells(i, 1))
            If Cells(g.Row, "d") - Cells(f.Row, "e") = 5 Then
                Range(Cells(g.Row, "a"), Cells(g.Row, "e")).Interior.ColorIndex = 6
                Range(Cells(f.Row, "a"), Cells(f.Row, "e")).Interior.ColorIndex = 6
            End If
        End If
        If Cells(g.Row, "e") = "" And Cells(f.Row, "e") = "" Then
                Range(Cells(g.Row, "a"), Cells(g.Row, "e")).Interior.ColorIndex = 3
                Range(Cells(f.Row, "a"), Cells(f.Row, "e")).Interior.ColorIndex = 3
        End If
    Next
End Sub

 

[ilm25]

hamitcan beye

özür dilerim ben excelde v.b kodlarını tam olarak kullanmayı bilmiyorum dersem yeridir acaba uygulamayı öğretebilirmisiniz bu kodu nasıl kullanıyoruz

 

[hamitcan]

Ozaman aşağıdaki makaleyi okumalısınız.
http://www.excel.web.tr/f60/kod-yazmayy-oreniyorum-t4228.html