Mükerrer kayıtların hangi satırda olduğunu göstersin

[marlalı1]

Arkadaşlar ekteki dosyayı incelermisiniz.mükerrer kayıtların satır numaralarını vermesini istiyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod B sütunundaki mükerrer verilerin satır nolarını listeler.

Option Explicit
 
Sub MÜKERRER_VERİLERİN_SATIR_NOLARINI_BUL()
    Dim X As Long, BUL As Range, ADRES As String
 
    With Range("C3:C65536,F3:F65536")
        .ClearContents
        .NumberFormat = "@"
    End With
 
    For X = 3 To Range("B65536").End(3).Row
        If Cells(X, 2) <> Empty Then
        Set BUL = Range("B:B").Find(Cells(X, 2), LookAt:=xlWhole)
        If Not BUL Is Nothing Then
        ADRES = BUL.Address
        Do
            If X <> BUL.Row Then
                If Cells(X, 3) = Empty Then
                    Cells(X, 3) = BUL.Row
                Else
                    Cells(X, 3) = Cells(X, 3) & "-" & BUL.Row
                End If
            End If
        Set BUL = Range("B:B").FindNext(BUL)
        Loop While Not BUL Is Nothing And BUL.Address <> ADRES
        End If
        End If
    Next
 
    For X = 3 To Range("E65536").End(3).Row
        If Cells(X, 5) <> Empty Then
        Set BUL = Range("E:E").Find(Cells(X, 5), LookAt:=xlWhole)
        If Not BUL Is Nothing Then
        ADRES = BUL.Address
        Do
            If X <> BUL.Row Then
                If Cells(X, 6) = Empty Then
                    Cells(X, 6) = BUL.Row
                Else
                    Cells(X, 6) = Cells(X, 6) & "-" & BUL.Row
                End If
            End If
        Set BUL = Range("E:E").FindNext(BUL)
        Loop While Not BUL Is Nothing And BUL.Address <> ADRES
        End If
        End If
    Next
 
    Set BUL = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Orion1]

Mükerrer kaydın yanınamı yazacak yoksa yeni sütunda yukarıdan aşağı doğru sıraylamı yazacak mükererr kayıtları?

 

[marlalı1]

farket mez hocam

 

[marlalı1]

yanına yazsa daha iyi olur

 

[Orion1]

Korhan bey cevabı vermiş.Ben görmedim.O mesajı sanırım sizde görmemmişsiniz.

 

[marlalı1]

ben bu kodu nereye kopyalaycağım.

 

[marlalı1]

yokmu yardım edecek birisi.ben bu kodu nereye kopyamalıyım.ekte dosya var.onun üzerinde bu formülü uygulayalım arkadaşlar.

 

[Korhan Ayhan]

Selamlar,

Sn. marlalı,

Dosyanızı açın.
ALT+F11 tuşularına basın. Kod editörü açılacaktır.
"Insert" menüsünden "Module" seçeneğini seçin.
Açılan beyaz pencereye vermiş olduğum kodu uygulayın.
Daha sonra sayfa üzerine bir düğme ekleyip makroyu bu düğmeye atayın ve çalıştırın. Yada ALT+F8 tuşuna basarak makro penceresinde makronuzu çalıştırabilirsiniz.

Eğer yapamam derseniz aşağıdaki linkte resimli anlatım bulunmaktadır. İncelerseniz rahatlıkla yapabilirsiniz.

Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım)

 

[baydeniro]

Sayın Korhan Ayhan, çok teşekkürler.

 

[marlalı1]

hocam kodu uyguladım b de ki mükerrer kayıtların satır numaralarını veriyor.çok teşekkür ederim.aynı şeyi formülü ' e' deki değerler içinde f hücresine mükerrer kayıtların satır numaralarını vermesini isityorum.bunu nasıl yapmalıyım.kodlardaki b ve c gördükerimi değiştirdim ama olmadı.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[marlalı1]

hocam dediğiniz şekilde yaptım.oldu çok teşekkür ederim.bu formülü aynı sayfadaki f sutununada yapmaya çalıştım ama yapamadım.'e'deki mükerrrer kayıtların satır numarasını f sütununa versin.

 

[marlalı1]

çok teşekkürler hocam.sağolun.başarılar