Birden fazla kayıtlar

[crackerdent]

Ekteki dosyayı inceleyebilirseniz sevinirim. Yardımlarınız için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Forumda en çok işlenen konulardan birisidir. Aşağıdaki linki incelerseniz sorunuza çözüm bulabilirsiniz.

http://www.excel.web.tr/search.php?searchid=628082&pp=15

 

[crackerdent]

Selamlar,

Forumda en çok işlenen konulardan birisidir. Aşağıdaki linki incelerseniz sorunuza çözüm bulabilirsiniz.

http://www.excel.web.tr/search.php?searchid=628082&pp=15

Sayın Korhan Ayhan,
ilginiz için teşekkür ederim ama ben yanlış ifade etmiş olabilirim.
Benim sorunum A sütununda mevcut bulunan kayıt numaraları B sütununda yanındaki hücrede belirtilen tarih dışında başka bir tarihte de kullanılmışsa onu bulmak istiyorum. Renklendirme şart değil örneğin yinelenen tarih varsa C sütununa da o değeri yazabilir.

Not:Örnek dosyada değişiklik yaptım, tekrar inceleyebilirseniz sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Not: Veri sayısı fazla olduğu için kodun çalışması biraz uzun sürecektir.

Sub TEKRARLARI_BUL()
    [C2:C65536].ClearContents
    For X = 2 To [A65536].End(3).Row
    If Cells(X, 1) <> "" And Cells(X, 2) <> "" Then
    If WorksheetFunction.CountIf(Columns(1), Cells(X, 1)) > 1 Then
    Set BUL = Columns(1).Find(Cells(X, 1), LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    ADRES = BUL.Address
    Do
    If Cells(X, 2) <> Cells(BUL.Row, 2) Then
    Cells(X, 3) = IIf(Cells(X, 3) = "", Cells(BUL.Row, 2), Cells(X, 3) & " - " & Cells(BUL.Row, 2))
    End If
    Set BUL = Columns(1).FindNext(BUL)
    Loop While Not BUL Is Nothing And BUL.Address <> ADRES
    End If
    End If
    End If
    Next
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[crackerdent]

Korhan Bey,
çok teşekkür ederim, elinize sağlık. Sorunum sayenizde çözüldü.