Düşeyara ile mükerrer olmayan verilerin gelmesi

[polatsuayip]

Merhaba Üstadlar,

Ekte bulunan excel dosyasında farklı tarihlerde aynı müşteriye aynı ürünleri satabiliyorum haliyle müşteriyi seçtiğimde ona satmış olduğum ürünlerin listesinin gelmesini istiyorum. Ancak gelen listede mükerrer ürünler oluyor. Aynı müşteriye farklı tarihlerde satılan aynı ürünü tek listelemesini nasıl sağlayabilirim.

Örnek excel Linktedir => bahsettiğim örnek linki

Saygılarımla
Şuayip

 

[YUSUF44]

F sütununu yardımcı sütun olarak kullanarak aşağıdaki gibi çözülebilir:

F5 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayın:

=EĞER(C5=$J$5;EĞER(ÇOKEĞERSAY($C$4:C5;C5;$D$4:D5;D5)=1;MAK($F$4:F4)+1;"");"")

J6 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayın:

=EĞERHATA(İNDİS($D$5:$D$22;KAÇINCI(SATIR()-5;$F$5:$F$22;0));"")

İkinci formüldeki 22'leri verilerinizin çokluğuna göre değiştirebilirsiniz.

 

[polatsuayip]

F sütununu yardımcı sütun olarak kullanarak aşağıdaki gibi çözülebilir:

F5 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayın:

=EĞER(C5=$J$5;EĞER(ÇOKEĞERSAY($C$4:C5;C5;$D$4:D5;D5)=1;MAK($F$4:F4)+1;"");"")

J6 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayın:

=EĞERHATA(İNDİS($D$5:$D$22;KAÇINCI(SATIR()-5;$F$5:$F$22;0));"")

İkinci formüldeki 22'leri verilerinizin çokluğuna göre değiştirebilirsiniz.

Teşekkürler YUSUF üstadım işime hallettim.

 

[polatsuayip]

Peki bunu makro olarak yapabilmemiz mümkün mü? dosyanın çok büyük olduğunu düşünürsek

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyin. J5 hücresini değiştirdiğinizde işlem yapar:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [J5]) Is Nothing Then Exit Sub
son = WorksheetFunction.Max(5, Cells(Rows.Count, "C").End(3).Row)
If [J5] = "" Then Exit Sub
eski = WorksheetFunction.Max(6, Cells(Rows.Count, "J").End(3).Row)
If WorksheetFunction.CountIf(Range("C5:C" & son), [J5]) = 0 Then
    Range("J6:J" & eski).ClearContents
    Exit Sub
Else
    Range("J6:J" & eski).ClearContents
    For i = 5 To son
        If Cells(i, "C") = Target Then
            yeni = Cells(Rows.Count, "J").End(3).Row + 1
            If WorksheetFunction.CountIf(Range("J5:J" & yeni), Cells(i, "D")) = 0 Then
                Cells(yeni, "J") = Cells(i, "D")
            End If
        End If
    Next
End If
End Sub

 

[polatsuayip]

çok teşekkürler Yusuf üstadım