Finding the Number of Each Item in the List Using the VBA and Pivot Table Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
'Bir Pivot Tablo ve Excel VBA yardımıyla bir listede görünen her bir öğenin bir sayısını alabiliriz. _
Halihazırda A1: A100'de yer alan listenin A1 olduğunu ve birçok öğenin birden fazla kez göründüğünü varsayalım. _
Aşağıdaki kodu, listeyi içeren aynı Çalışma Kitabının standart Modülüne kopyalayın.
Sub CreateCountOf()
Dim strHead As String
Dim strSheetName As String
Dim strListAddress As String
    strHead = Selection.Cells(1, 1)
    strSheetName = "'" & ActiveSheet.Name & "'!"
    strListAddress = Selection.Address(ReferenceStyle:=xlR1C1)
        ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
                strSheetName & strListAddress).CreatePivotTable TableDestination:="", _
                TableName:="CountOf"
        ActiveSheet.PivotTables("CountOf").AddFields RowFields:=strHead
        With ActiveSheet.PivotTables("CountOf").PivotFields(strHead)
            .Orientation = xlDataField
            .Caption = "Count of" & strHead
            .Function = xlCount
        End With
        ActiveWorkbook.ShowPivotTableFieldList = False
        Application.CommandBars("PivotTable").Visible = False
End Sub

No	Macro Name
1	Finding the Number of Each Item in the List Using the VBA and Pivot Table
2	excel operators hk
3	Hide or show pivot table fields according to a specific criterion
4	Create a user-defined menu / Create your own menu and assign a macro to them in the "Extensions" section
5	Send all pivot tables to printer
6	pushbutton pictures
7	add icons menus and buttons to the sheet / page
8	Send or bulk mail with Outlook
9	lists all macros in macros in excel files in a folder of your choice
10	send alert e-mail from microsoft outlook
11	specifies in detail how many references the book contains (on new sheet / page)
12	list formulas on new sheet / page
13	specifies in detail how many formulas are in the book (on new sheet / page)
14	automatic image fetch
15	userformless form menu sheet / page select
16	sheet / pages showing userform (with code without form)
17	desktop icon creation
18	Codes that prevent and open the vba window and access codes
19	sort data by name order
20	sort data by name order

Excel Free Macros (VBA)

Finding The Number Of Each Item İn The List Using The Vba And Pivot Table

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords