Data dan liste almak

[Barkode]

Ekte personel icin tutmaya basladıgım evrak bilgileri dosyası bulunuyor,,sheet lerde kişi isimleri ve evrak listesi bulunuyor,örnek olarak kimlerde ikametgah belgesi var yada saglık belgesi var gibi bir liste cıkartmak istiyorum bunu otomatize edecek bir formul yada makro var mıdır?yardımlarınız

 

[Ömer]

Merhaba,

Module kopyalayıp çalıştırın.

Sub Eksik_Ara()
 
    Dim i As Integer, sut As Integer, j As Long, c As Range
 
    Application.ScreenUpdating = False
    Sheets("ana sayfa").Select
    Range(Cells(4, "B"), Cells(Rows.Count, Columns.Count)).ClearContents
 
    For j = 4 To Cells(Rows.Count, "A").End(xlUp).Row
        sut = 2
        For i = 1 To Worksheets.Count
            With Sheets(i)
                If .Name <> "ana sayfa" Then
                    Set c = .[A:A].Find(Cells(j, "A"), , xlValues, xlWhole)
                    If Not c Is Nothing Then
                        If .Cells(c.Row, "B") = "" Then
                            Cells(j, sut) = .Name
                            sut = sut + 1
                        End If
                    End If
                End If
            End With
        Next i
    Next j
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[Merhum İdris SERDAR]

Ekte personel icin tutmaya basladıgım evrak bilgileri dosyası bulunuyor,,sheet lerde kişi isimleri ve evrak listesi bulunuyor,örnek olarak kimlerde ikametgah belgesi var yada saglık belgesi var gibi bir liste cıkartmak istiyorum bunu otomatize edecek bir formul yada makro var mıdır?yardımlarınız

.

Dosyanız ekte.

.