Farklı olanı bulmak

[omt123]

Merhaba,


Ekli dosyada bir ürüne birden fazla kod tanınmış. Normalde bir ürüne ait tek bir kod olması gerekir. Birden fazla kod tanınmışları bulabilmem konusunda yardımcı olmanızı rica ediyorum.

 

[Murat OSMA]

Örnek verin. Meselâ dosyanızdaki hangi ürüne birden fazla kod tanınmış ?

 

[omt123]

Tabi. Mesala CERRAHİ LOUPES 3.5X-EF adlı ürüne 3 farklı kod tanımlanmış.

 

[Murat OSMA]

Başlangıç olarak şu kodu bir dener misiniz ?

Sub Farklı_Olanı_Bul()
    Dim i As Integer
    For i = 4 To Range("B65536").End(3).Row
        If Cells(i, 3) = Cells(i + 1, 3) And Cells(i, 2) <> Cells(i + 1, 2) Then
            Range("E65536").End(3)(2, 1) = Cells(i, 2) & " " & Cells(i, 3)
        End If
    Next i
    i = Empty
End Sub

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.


.

 

[hayri tekin]

D sütununa aşağıdaki formülü uygulayın; sıfırdan büyük olanlar mükerrer kodlu olanlardır.Süzgüden bunlara ulaşabilirsiniz.

=EĞERSAY($C$4:$C$29138;C678)-EĞERSAY($B$4:$B$29138;B678)