Mükerrer Kayıt Macro İle

[ocamsul]

Arkadaşlar tekrar Merhablar ;

Bu örnekte B sütununda ve I sütununda çift yani 2 defa girilmiş kayıt var ise bunların Sayfa2 de Listelenmesi konusunda yardeımlarınızı bekliyorum.

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodları bir düğmeye atayarak deneyiniz..

Sub aktar()
Dim son As Long, sson As Long
son = Sayfa1.[b65536].End(3).Row
Application.ScreenUpdating = False
For i = 2 To son
    For j = 2 To son
        sson = Sayfa2.[b65536].End(3).Row + 1
        If Cells(i, 2) = Cells(j, 9) Then
        Sayfa2.Cells(sson, 1) = sson - 1
        Sayfa2.Cells(sson, 2) = Cells(i, 2)
        End If
    Next j, i
End Sub

 

[ocamsul]

SN: Ayhan Ercan, üsdadım; vermiş olduğunuz kodu kayıtlar üzerinde denedim. Ancak KALIN olarak da işartleyip belirttiğim kayıtları mükerrer olarak göstermesi gerekirken göstermiyor. Bu durumu nasıl çözeriz?

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[Ayhan Ercan]

Korhan Hocam Ek Yok!!

 

[ocamsul]

SN: Korhan Ayhan, üsdat çok teşekkür ederim. Budur.