Unieke records in compleet bestand

[ohrid]

Hallo allemaal,

Ik heb een Excelbestand met 17 tabbladen. Ieder tabblad staat voor een bepaalde groep in de organisatie. Sommige namen kunnen in meerdere groepen staan en het is eigenlijk de bedoeling dat ik op het eerste tabblad dan het aantal unieke records heb in een cel (dus als Jan in groep A, C en F zit wordt hij maar 1 keer geteld. Totaal aantal mensen kan dan 230 zijn in cel B2, maar unieke mensen in cel B3 is dan bijvoorbeeld 130).

Ik heb al een heel wat geprobeerd, maar tot nu toe met weinig succes.
Alvast bedankt.

 

[Cobbe]

Je moet ONS niet bedanken want je hebt zelf het werk gedaan, zeg je toch.

 

[Timshel]

Wordt toch een macrootje schat ik.
Plaats graag een representatief voorbeeld-excelbestand (dus geen plaatje).

 

[ohrid]

Bij deze een voorbeeld:

Bekijk bijlage Unieke waarden.xlsx

Eigenlijk heb ik mijn bestand zo goed als hetzelfde opgebouwd en dien ik in het rode vak dus inderdaad een werkend macro te krijgen.

 

[VenA]

Bv

Sub VenA()
Dim j As Long, sh As Object, ar
  With CreateObject("scripting.Dictionary")
    For Each sh In Sheets
      If sh.Name <> "Blad1" Then
        ar = sh.Cells(1).CurrentRegion
        For j = 1 To UBound(ar)
          .Item(Trim(ar(j, 1))) = ""
        Next j
      End If
    Next sh
    Sheets("Blad1").Cells(6, 2) = .Count
  End With
End Sub

 

[Cobbe]

Heb de oplossing van VenA toegepast in uw bestandje.

Als toegiftje.

 

[Timshel]

Ik heb iets vergelijkbaars, maar dan met een function.

 

[snb]

@Timshel

Function F_Uniek(Rng As Variant) As Long
    With CreateObject("Scripting.Dictionary")
        For Each Sh In Rng
            For Each it In Sheets(Sh.Value).UsedRange.Columns(1).Cells
                x0 = .Item(Trim(it.Value))
            Next
        Next
        F_Uniek = .Count
    End With
End Function

 

[Timshel]

@snb
Het lijkt inderdaad dat in een function geen currentregion gebruikt kan worden.

 

[ohrid]

De eerste code werkte goed. Hartstikke bedankt. Was alleen een geklooi omdat ik geen gebruik mocht maken van macro's op mijn werk.

 

[snb]

@Timshel

Dat geldt voor specialcells ook.