özet tablo oluşturma

[ozserdar]

üstadlar merhaba

ekte bulunan dosya da E sütununda yer alan 0(sıfır) değerine sahip B sütunundaki bulunan isimleri özet sayfada göstersin istiyorum. ilginiz için teşekkür eder hayırlı günler dilerim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir module kopyalayıp deneyiniz.

Sub SIFIRBUL()

    Dim i   As Integer, _
        j   As Integer, _
        Sat As Integer, _
        Kisi, _
        ShO As Worksheet, _
        Syf As Worksheet
    
    Application.ScreenUpdating = False
    
    Set ShO = Sheets("özet")
    ShO.Range("A:B").Clear
    ShO.Range("A1") = "SAYFA"
    ShO.Range("B1") = "KİŞİLER"
    
    Sat = 1
    
    For Each Syf In Worksheets
        If Syf.Name = "özet" Then Exit For
        Kisi = ""
        For j = 2 To Syf.Cells(Rows.Count, "A").End(3).Row
            If Syf.Cells(j, "E") = 0 Then
                If Kisi = "" Then
                    Kisi = Syf.Cells(j, "B")
                Else
                    Kisi = Kisi & "-" & Syf.Cells(j, "B")
                End If
            End If
            
        Next j
        If Not Kisi = "" Then
            Sat = Sat + 1
            ShO.Cells(Sat, "A") = Syf.Name
            ShO.Cells(Sat, "B") = Kisi
        End If
    Next Syf
    
    Application.ScreenUpdating = True
         
End Sub

 

[Necdet]

İnsan bir geri bildirimde bulunur, oldu ya da olmadı diye.
Ne insanlar var yaaa.

 

[assenucler]

Haklısınız üstadım.

 

[ozserdar]

İnsan bir geri bildirimde bulunur, oldu ya da olmadı diye.
Ne insanlar var yaaa.

Hemen tepki göstermeyin necdet hocam Şimdi gördüm denedim olmadı maalesef elinize sağlık