Birden fazla sayfada toplam alma

[ordulu82]

Merhabalar
Ekteki dosyada da belirttiğim gibi excel dosyasında c5 ile c20 arasında isimleri olan birden fazla sayfada toplam kaç kişinin olduğunu öğrenebilir miyim ?

 

[Murat OSMA]

Merhaba kolay gelsin.

Bu kodları kullanabilirsiniz..
Hem benzersiz isimleri, hem de benzersiz isim sayısını getirir.

[SIZE="2"]Sub Emre()
    Dim dizi(), i%, a%, x%, t%
    For i = 1 To Sheets.Count - 1
        ReDim Preserve dizi(a)
        dizi(a) = Application.Transpose(Sheets(i).Range("C5:C25").Value)
        a = a + 1
    Next i
    On Error Resume Next
    With CreateObject("Scripting.Dictionary")
       .CompareMode = TextCompare
        For x = 0 To UBound(dizi(x))
            For t = 1 To 21
                If dizi(x)(t) <> "" Then
                    If Trim(dizi(x)(t)) <> "" Then al = .Item(Trim(dizi(x)(t)))
                End If
            Next t
        Next x
        Sayfa4.Range("A1:A" & Sayfa4.Rows.Count).ClearContents
        Sayfa4.Range("A1:B1").Value = Array("İsimler", "Benzersiz Adet")
        Sayfa4.Range("A2").Resize(UBound(.keys) + 1, 1).Value = Application.Transpose(.keys)
        Sayfa4.Range("B2").Value = .Count
        Sayfa4.Activate
    End With
    MsgBox "İşlem Tamamlandı.", vbInformation, "Www.ExcelArsivi.Com"
    t = Empty: x = Empty: a = Empty: i = Empty: Erase dizi
End Sub[/SIZE]