Coding the DistinctCount function in VBA for creating pivot table

[vergab]

Hi,
I tried to run this code, but it calculate "count" instead of "distinctcount" in case of datafield "TT". If I do pivot table manually, in the Create PivotTable dialog box I have to check the box next to the label “Add this data to the Data Model”. But I don’t know how it works in VBA code. Can anybody help me?
Tis is the code:

Option Explicit
 Sub Pivottable()
Dim PSheet As Worksheet
 Dim DSheet As Worksheet
 Dim LastPivRow As Long
 Dim LastPivCol As Long
 Dim PCache As PivotCache
 Dim PTable As Pivottable
 Dim PRange As Range
On Error Resume Next
 Application.DisplayAlerts = False
 Worksheets("Pivot").Delete
 Sheets.Add After:=Worksheets("Data")
 ActiveSheet.Name = "Pivot"
 Application.DisplayAlerts = True
Set PSheet = Worksheets("Pivot")
 Set DSheet = Worksheets("Data")
LastPivRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
 LastPivCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column
 Set PRange = DSheet.Cells(1, 1).Resize(LastPivRow, LastPivCol)
Set PCache = ActiveWorkbook.PivotCaches.Create _
 (SourceType:=xlDatabase, SourceData:=PRange). _
 CreatePivotTable(TableDestination:=PSheet.Cells(1, 1), _
 TableName:="PivotTable")
Set PTable = PCache.CreatePivotTable _
 (TableDestination:=PSheet.Cells(1, 1), TableName:="PivotTable")
With ActiveSheet.PivotTables("PivotTable").PivotFields("Name")
         .Orientation = xlRowField
         .Position = 1
 End With
 With ActiveSheet.PivotTables("PivotTable").PivotFields("DB")
         .Orientation = xlColumnField
         .Position = 1
 End With
 With ActiveSheet.PivotTables("PivotTable").PivotFields("DS")
         .Orientation = xlColumnField
         .Position = 2
 End With
 With ActiveSheet.PivotTables("PivotTable").PivotFields("TT")
         .Orientation = xlDataField
         .Position = 1
         .Function = xlDistinctCount
 End With
 With ActiveSheet.PivotTables("PivotTable").PivotFields("Month")
     .Orientation = xlPageField
     .CurrentPage = 12
 End With
End Sub

 

[sergioMabres]

Hi Verga
Here is an excellent link for counting unique values
http://www.mrexcel.com/forum/excel-questions/48385-need-count-unique-items-column-visual-basic-applications.html

Sergio

 

[vergab]

Hi Sergio,
Thank you for this link. It is very useful. But I can not see how could I connect this solution to my problem. Because as far as I understood this is not a pivot table related thing.

 

[sergioMabres]

Yes you are right, I got confused because it is quite strange what happens with distinct count (xlDistinctCount) in some version of Excel does not show at all so I am used to doing it with an extra column, your code seems to be using xlDistinctCount so if it does no t work as you think you will have to do with an extra column, like in excel - Simple Pivot Table to Count Unique Values - Stack Overflow
Cheers
Sergio