Bulunduğu satırdan üsteki satırlarda varsa aynı kişiye ait bilgileri alma

[teyadih]

Merhaba arkadaşlar. ekli dosyada detaylı olarak açıkladığım üzere bulunduğu satırdan üsteki satırlarda varsa aynı kişiye ait bilgileri alacak formüle ihtiyacım var. Yardım eder misiniz?

 

[YUSUF44]

Bu işlem formüll olur mu bilmiyorum, olursa da ben yapamam maalesef.

Ancak dosyanızda anlayamadığım bir nokta var. Siz sicil tekrarlandığında üstteki B sütunundaki değerlerin N sütununda birleştirilmesini istiyorsunuz ama verdiğiniz örnekte N10 hücresindeki 1'in nerden geldiğini bulamadım.

Bu noktayı gözardı edip makro ile çözüm isterseniz aşağıdaki kodları deneyin:

Sub eskiler()
son = Cells(Rows.Count, "E").End(3).Row
For i = 9 To son
    For j = 8 To i - 1
        If Cells(i, "E") = Cells(j, "E") Then
            If Cells(i, "N") = "" Then
                Cells(i, "N") = Cells(j, "B")
            Else
                Cells(i, "N") = Cells(i, "N") & "-" & Cells(j, "B")
            End If
        End If
    Next
Next
End Sub

 

[teyadih]

Teşekkür ederim YUSUF44 elinize sağlık