kolay gelsin arkadaşlar. Benim sorunum daha öncede sizlerin yardımıyma sayfa üzerinde bulunan kayıtlardaki mükerer kayıtları aşağıdaki makro ile buluyordum.
Sub mukerrer()
Columns("W:X").ClearContents
For a = 2 To Cells(65536, 6).End(xlUp).Row
Cells(a, 23) = Range("G" & a) & Range("F" & a) & Range("J" & a) & Range("K" & a)
If WorksheetFunction.CountIf(Range("W2:W" & a), Cells(a, 23).Value) > 1 Then Cells(a, 24) = "MÜKERRER KAYIT"
Next
End Sub
Ancak Excell de yaptığım tablomun şablonunu değiştirmek zorunda kaldım daha önce ceriler tek satırda iken bu kez her bir kayıt iki satırdan oluşuyor.
Makro üzerinde çalıştım ama başaramadım Yeni düzenlediğim dosya ekte dir yardımlarınızı bekliyorum
Sub mukerrer()
Columns("W:X").ClearContents
For a = 2 To Cells(65536, 6).End(xlUp).Row
Cells(a, 23) = Range("G" & a) & Range("F" & a) & Range("J" & a) & Range("K" & a)
If WorksheetFunction.CountIf(Range("W2:W" & a), Cells(a, 23).Value) > 1 Then Cells(a, 24) = "MÜKERRER KAYIT"
Next
End Sub
Ancak Excell de yaptığım tablomun şablonunu değiştirmek zorunda kaldım daha önce ceriler tek satırda iken bu kez her bir kayıt iki satırdan oluşuyor.
Makro üzerinde çalıştım ama başaramadım Yeni düzenlediğim dosya ekte dir yardımlarınızı bekliyorum