{"id":1515,"date":"2023-11-18T06:40:14","date_gmt":"2023-11-18T06:40:14","guid":{"rendered":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/"},"modified":"2023-12-10T06:05:49","modified_gmt":"2023-12-10T06:05:49","slug":"pivot-tablo-1","status":"publish","type":"page","link":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/","title":{"rendered":"Vba ile pivot tablo nas\u0131l olu\u015fturulur?"},"content":{"rendered":"<div class=\"excel-icerikten-once\" id=\"excel-3440747094\"><script type=\"text\/javascript\">\r\n\tatOptions = {\r\n\t\t'key' : 'c1158f160081d6540a8409e6925dab94',\r\n\t\t'format' : 'iframe',\r\n\t\t'height' : 250,\r\n\t\t'width' : 300,\r\n\t\t'params' : {}\r\n\t};\r\n<\/script>\r\n<script type=\"text\/javascript\" src=\"\/\/www.highperformanceformat.com\/c1158f160081d6540a8409e6925dab94\/invoke.js\"><\/script><\/div> <p>Size bu k\u0131lavuzu vermeden ve pivot tablo olu\u015fturmak i\u00e7in VBA&#8217;y\u0131 kullanmaya ba\u015flamadan \u00f6nce <span style=\"font-size: 1em;\">size bir \u015fey s\u00f6yleyeyim.<\/span><\/p><p> VBA&#8217;y\u0131 kullanmay\u0131 yaln\u0131zca ALTI y\u0131l \u00f6nce \u00f6\u011frendim. Ve pivot tablo olu\u015fturmak i\u00e7in ilk kez makro kodu yazd\u0131\u011f\u0131mda bu bir ba\u015far\u0131s\u0131zl\u0131kt\u0131.<\/p><p> O zamandan beri, k\u00f6t\u00fc kodlamamdan ger\u00e7ekten i\u015fe yarayan kodlardan daha fazlas\u0131n\u0131 \u00f6\u011frendim.<\/p><p> Bug\u00fcn size makro kodunu kullanarak pivot tablolar\u0131n\u0131z\u0131 otomatikle\u015ftirmenin basit bir yolunu g\u00f6sterece\u011fim.<\/p><p> Normalde bir elektronik tabloya pivot tablo ekledi\u011finizde bu basit bir i\u015flemle ger\u00e7ekle\u015fir, <span style=\"font-size: 1em;\">ancak t\u00fcm bu s\u00fcre\u00e7 o kadar h\u0131zl\u0131d\u0131r ki ne oldu\u011funu asla fark etmezsiniz.<\/span><\/p><p> VBA&#8217;da <span style=\"font-size: 1em;\">t\u00fcm bu s\u00fcre\u00e7 ayn\u0131d\u0131r, sadece kod kullan\u0131larak \u00e7al\u0131\u015f\u0131r.<\/span> Bu k\u0131lavuzda size her ad\u0131m\u0131 g\u00f6sterece\u011fim <span style=\"font-size: 1em;\">ve bunun i\u00e7in nas\u0131l kod yaz\u0131laca\u011f\u0131n\u0131 anlataca\u011f\u0131m.<\/span><\/p><p> <span style=\"font-size: 1em;\">Bu makro kodunu bir d\u00fc\u011fmeyle \u00e7al\u0131\u015ft\u0131rabilece\u011finiz a\u015fa\u011f\u0131daki \u00f6rne\u011fe bak\u0131n ve bu, yeni bir \u00e7al\u0131\u015fma sayfas\u0131nda an\u0131nda yeni bir pivot tablo d\u00f6nd\u00fcr\u00fcr.<\/span> <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter\"><img decoding=\"async\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Code-de-macro-a-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel.gif\" sizes=\"\" srcset=\"\" alt=\"Pivot tablo olu\u015fturmak i\u00e7in makro kodlar\u0131\"><\/figure><\/div><p> Laf\u0131 fazla uzatmadan pivot tablo olu\u015fturmak i\u00e7in makro kodumuzu yazmaya ba\u015flayal\u0131m.<\/p><h2 class=\"wp-block-heading\"> Excel&#8217;de Pivot Tablo Olu\u015fturmak \u0130\u00e7in VBA&#8217;da Makro Kodu Yazman\u0131n 8 Basit Ad\u0131m\u0131<\/h2><p> Size kolayl\u0131k sa\u011flamak i\u00e7in t\u00fcm s\u00fcreci 8 basit ad\u0131ma b\u00f6ld\u00fcm. Bu ad\u0131mlar\u0131 izledikten sonra t\u00fcm pivot tablolar\u0131n\u0131z\u0131 otomatikle\u015ftirebileceksiniz.<\/p><p> Devam etmek i\u00e7in <a href=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/tableau-croise-dynamique-de-donnees-vba.zip\" rel=\"nofollow\">bu dosyay\u0131 buradan indirdi\u011finizden<\/a> emin olun.<\/p><h3 class=\"wp-block-heading\"> 1. De\u011fi\u015fkenleri bildirin<\/h3><p> \u0130lk ad\u0131m, farkl\u0131 \u015feyleri tan\u0131mlamak i\u00e7in kodumuzda kullanmam\u0131z gereken de\u011fi\u015fkenleri bildirmektir.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">'Declare Variables Dim PSheet As Worksheet Dim DSheet As Worksheet Dim PCache As PivotCache Dim PTable As PivotTable Dim PRange As Range Dim LastRow As Long Dim LastCol As Long<\/code><\/pre><p> Yukar\u0131daki kodda \u015funlar\u0131 beyan ettik:<\/p><ol><li> PSsheet: Yeni bir pivot tablo i\u00e7in sayfa olu\u015fturmak i\u00e7in.<\/li><li> DSheet: Teknik sayfa olarak kullan\u0131lacakt\u0131r.<\/li><li> PChache: Pivot tablo \u00f6nbelle\u011finin ad\u0131 olarak kullan\u0131n.<\/li><li> PTable: Pivot tablomuzun ad\u0131 olarak kullan\u0131n.<\/li><li> PRange: kaynak veri aral\u0131\u011f\u0131n\u0131 ayarlamak i\u00e7in.<\/li><li> LastRow ve LastCol: veri aral\u0131\u011f\u0131m\u0131z\u0131n son sat\u0131r\u0131n\u0131 ve s\u00fctununu almak i\u00e7in.<\/li><\/ol><h3 class=\"wp-block-heading\"> 2. Yeni bir e-tablo ekleyin<\/h3><p> Excel, bir pivot tablo olu\u015fturmadan \u00f6nce bo\u015f bir sayfa ekler ve ard\u0131ndan bu sayfa \u00fczerinde yeni bir pivot tablo olu\u015fturur. <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter\"><img decoding=\"async\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Inserer-une-nouvelle-feuille-de-calcul-pour-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel-1.png\" sizes=\"\" srcset=\"\" alt=\"excel'de pivot tablo olu\u015fturmak i\u00e7in vba'y\u0131 kullanmak i\u00e7in yeni \u00e7al\u0131\u015fma sayfas\u0131 ekleyin\"><\/figure><\/div><p> Ve a\u015fa\u011f\u0131daki kod da sizin i\u00e7in ayn\u0131 \u015feyi yapacak.<\/p><p> Aktif \u00e7al\u0131\u015fma sayfas\u0131n\u0131n \u00f6n\u00fcne \u201cPivot Table\u201d ad\u0131nda yeni bir \u00e7al\u0131\u015fma sayfas\u0131 ekleyecek ve ayn\u0131 isimde bir \u00e7al\u0131\u015fma sayfas\u0131 varsa \u00f6nce onu silecektir.<\/p><p> Yeni bir \u00e7al\u0131\u015fma sayfas\u0131 ekledikten sonra bu kod, pivot tablo \u00e7al\u0131\u015fma sayfas\u0131ndaki PSheet de\u011fi\u015fkeninin ve kaynak veri \u00e7al\u0131\u015fma sayfas\u0131ndaki DSheet de\u011fi\u015fkeninin de\u011ferini ayarlayacakt\u0131r.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">'Declare Variables On Error Resume Next Application.DisplayAlerts = False Worksheets(\"PivotTable\").Delete Sheets.Add Before:=ActiveSheet ActiveSheet.Name = \"PivotTable\" Application.DisplayAlerts = True Set PSheet = Worksheets(\"PivotTable\") Set DSheet = Worksheets(\"Data\")<\/code><\/pre><p class=\"alert-box\"> Koddaki \u00e7al\u0131\u015fma sayfas\u0131 adlar\u0131n\u0131, verilerinizdeki adlarla de\u011fi\u015ftirdi\u011finizden emin olun.<\/p><h3 class=\"wp-block-heading\"> 3. Veri aral\u0131\u011f\u0131n\u0131 ayarlay\u0131n<\/h3><p> \u015eimdi bir sonraki ad\u0131m, veri aral\u0131\u011f\u0131n\u0131 kaynak \u00e7al\u0131\u015fma sayfas\u0131ndan ayarlamakt\u0131r. Burada bir \u015feye dikkat etmeniz gerekiyor; sabit bir kaynak aral\u0131\u011f\u0131 belirtemezsiniz.<\/p><p> Kaynak sayfadaki t\u00fcm verileri tan\u0131mlayabilecek koda ihtiyac\u0131n\u0131z var. Ve a\u015fa\u011f\u0131da kod:<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">'Define Data Range LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol)<\/code><\/pre><p> Bu kod, veri tablosunun ilk h\u00fccresinden ba\u015flayacak ve son sat\u0131ra, ard\u0131ndan son s\u00fctuna kadar se\u00e7ilecektir.<\/p><p> Ve son olarak se\u00e7ilen bu aral\u0131\u011f\u0131 kaynak olarak ayarlay\u0131n. En iyi yan\u0131, pivot tabloyu olu\u015ftururken <a style=\"outline: none;\" spellcheck=\"false\" href=\"https:\/\/exceladvisor.org\/tr\/otomatik-guncelleme-araligi\/\" data-ms-editor=\"true\">her seferinde veri kayna\u011f\u0131n\u0131 de\u011fi\u015ftirmenize<\/a> gerek olmamas\u0131d\u0131r.<\/p><h3 class=\"wp-block-heading\"> 4. Bir pivot \u00f6nbellek olu\u015fturun<\/h3><p> Excel 2000 ve \u00fczeri s\u00fcr\u00fcmlerde, pivot tablo olu\u015fturmadan \u00f6nce veri kayna\u011f\u0131n\u0131 ayarlamak i\u00e7in bir pivot \u00f6nbellek olu\u015fturman\u0131z gerekir.<\/p><p> Normalde pivot tablo olu\u015fturdu\u011funuzda Excel size sormadan otomatik olarak pivot \u00f6nbellek olu\u015fturur ancak VBA kullanman\u0131z gerekti\u011finde bunun i\u00e7in baz\u0131 kodlar yazman\u0131z gerekir.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">'Define Pivot Cache Set PCache = ActiveWorkbook.PivotCaches.Create _ (SourceType:=xlDatabase, SourceData:=PRange). _ CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), _ TableName:=\"SalesPivotTable\")<\/code><\/pre><p> Bu kod iki \u015fekilde \u00e7al\u0131\u015f\u0131r; <strong>birincisi,<\/strong> bir veri kayna\u011f\u0131 kullanarak bir pivot \u00f6nbellek ayarlamak ve ikinci olarak, pivot tabloyu eklemek i\u00e7in yeni eklenen \u00e7al\u0131\u015fma sayfas\u0131na h\u00fccre adresini ayarlamak.<\/p><p> Bu kodu de\u011fi\u015ftirerek pivot tablonun konumunu de\u011fi\u015ftirebilirsiniz.<\/p><h3 class=\"wp-block-heading\"> 5. Bo\u015f bir pivot tablo ekleyin<\/h3><p> Pivot \u00f6nbelle\u011finden sonraki ad\u0131m bo\u015f bir pivot tablo eklemektir. Bir pivot tablo olu\u015fturdu\u011funuzda, her zaman \u00f6nce bo\u015f bir pivot alaca\u011f\u0131n\u0131z\u0131, ard\u0131ndan t\u00fcm de\u011ferleri, s\u00fctunlar\u0131 ve sat\u0131rlar\u0131 ayarlayaca\u011f\u0131n\u0131z\u0131 unutmay\u0131n. <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter\"><img decoding=\"async\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Inserer-un-tableau-croise-dynamique-vide-pour-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel.png\" sizes=\"\" srcset=\"\" alt=\"excel'de pivot tablo olu\u015fturmak i\u00e7in vba'y\u0131 kullanmak i\u00e7in bo\u015f pivot ekleyin\"><\/figure><\/div><p> Bu kod ayn\u0131 \u015feyi yapacak:<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">'Insert Blank Pivot Table Set PTable = PCache.CreatePivotTable _ (TableDestination:=PSheet.Cells(1, 1), TableName:=\"SalesPivotTable\")<\/code><\/pre><p> Bu kod bo\u015f bir pivot tablo olu\u015fturur ve onu &#8220;SalesPivotTable&#8221; olarak adland\u0131r\u0131r. Bu ad\u0131 kodun kendisinden de\u011fi\u015ftirebilirsiniz.<\/p><h3 class=\"wp-block-heading\"> 6. Sat\u0131r ve s\u00fctun alanlar\u0131n\u0131 ekleyin<\/h3><p> Bo\u015f bir pivot tablo olu\u015fturduktan sonraki ad\u0131m, normalde yapt\u0131\u011f\u0131n\u0131z gibi sat\u0131r ve s\u00fctun alanlar\u0131n\u0131 eklemektir.<\/p><p> Her sat\u0131r ve s\u00fctun alan\u0131 i\u00e7in bir kod yazman\u0131z gerekir. Burada sat\u0131r alan\u0131na y\u0131l ve aylar\u0131, s\u00fctun alan\u0131na ise alanlar\u0131 eklemek istiyoruz. <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter\"><img decoding=\"async\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Inserer-des-champs-de-colonne-de-ligne-pour-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel-1.png\" sizes=\"\" srcset=\"\" alt=\"excel'de pivot tablo olu\u015fturmak i\u00e7in vba'y\u0131 kullanmak i\u00e7in sat\u0131r s\u00fctun alanlar\u0131 ekleyin\"><\/figure><\/div><p> \u0130\u015fte kod:<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">'Insert Row Fields With ActiveSheet.PivotTables(\"SalesPivotTable\").PivotFields(\"Year\") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables(\"SalesPivotTable\").PivotFields(\"Month\") .Orientation = xlRowField .Position = 2 End With 'Insert Column Fields With ActiveSheet.PivotTables(\"SalesPivotTable\").PivotFields(\"Zone\") .Orientation = xlColumnField .Position = 1 End With<\/code><\/pre><p> Bu kodda y\u0131l ve ay\u0131 iki alan olarak belirttiniz. \u015eimdi koda bakarsan\u0131z orada bir pozisyon numaras\u0131n\u0131n da oldu\u011funu g\u00f6receksiniz. Bu konum numaras\u0131 alanlar\u0131n s\u0131ras\u0131n\u0131 tan\u0131mlar.<\/p><p> Her defas\u0131nda birka\u00e7 alan (Sat\u0131r veya S\u00fctun) eklemeniz gerekti\u011finde, bunlar\u0131n konumlar\u0131n\u0131 belirtin. Ve alanlar\u0131 koddan adlar\u0131n\u0131 de\u011fi\u015ftirerek de\u011fi\u015ftirebilirsiniz.<\/p><h3 class=\"wp-block-heading\"> 7. Bir veri alan\u0131 ekleyin<\/h3><p> \u00d6nemli olan pivot tablonuzdaki de\u011fer alan\u0131n\u0131 tan\u0131mlamakt\u0131r.<\/p><p> De\u011ferleri tan\u0131mlamaya y\u00f6nelik kod, sat\u0131rlar\u0131 ve s\u00fctunlar\u0131 tan\u0131mlamaktan farkl\u0131d\u0131r \u00e7\u00fcnk\u00fc burada say\u0131lar\u0131n, konumlar\u0131n ve i\u015flevlerin format\u0131n\u0131 tan\u0131mlamam\u0131z gerekir.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">'Insert Data Field With ActiveSheet.PivotTables(\"SalesPivotTable\").PivotFields(\"Amount\") .Orientation = xlDataField .Function = xlSum .NumberFormat = \"#,##0\" .Name = \"Revenue \" End With<\/code><\/pre><p> Yukar\u0131daki kod ile tutar\u0131 de\u011fer alan\u0131 olarak ekleyebilirsiniz. Ve bu kod, de\u011ferleri ay\u0131r\u0131c\u0131 (,) i\u00e7eren bir say\u0131 olarak bi\u00e7imlendirecektir.<\/p><p> De\u011ferleri eklemek i\u00e7in xlsum&#8217;u kullan\u0131r\u0131z, ancak siz xlcount ve di\u011fer i\u015flevleri de kullanabilirsiniz.<\/p><h3 class=\"wp-block-heading\"> 8. Pivot tabloyu bi\u00e7imlendirin<\/h3><p> Sonu\u00e7ta pivot tablonuzu bi\u00e7imlendirmek i\u00e7in kod kullanman\u0131z gerekir. Pivot tabloda genellikle varsay\u0131lan bir bi\u00e7imlendirme vard\u0131r ancak bu bi\u00e7imlendirmeyi de\u011fi\u015ftirebilirsiniz.<\/p><p> VBA ile koddaki bi\u00e7imlendirme stilini ayarlayabilirsiniz. <\/p><div class=\"wp-block-image\"><figure class=\"aligncenter\"><img decoding=\"async\" src=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Utiliser-VBA-pour-creer-un-tableau-croise-dynamique-au-format-Excel-1.png\" sizes=\"\" srcset=\"\" alt=\"excel format\u0131nda bir pivot tablo olu\u015fturmak i\u00e7in vba'y\u0131 kullan\u0131n\"><\/figure><\/div><p> Kod:<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">'Format Pivot TableActiveSheet.PivotTables(\"SalesPivotTable\").ShowTableStyleRowStripes = True ActiveSheet.PivotTables(\"SalesPivotTable\").TableStyle2 = \"PivotStyleMedium9\"<\/code><\/pre><p> Yukar\u0131daki kod, \u00e7izgi \u015feritlerini ve &#8220;Pivot Stili Orta 9&#8221; stilini uygulayacakt\u0131r, ancak <a href=\"https:\/\/learn.microsoft.com\/en-us\/office\/vba\/api\/Excel.PivotTable\" target=\"_blank\" rel=\"noreferrer noopener\">bu ba\u011flant\u0131dan ba\u015fka bir stil<\/a> de kullanabilirsiniz.<\/p><p> Sonunda kodunuz kullan\u0131ma haz\u0131r.<\/p><h2 class=\"wp-block-heading\"> [TAM KOD] Excel&#8217;de PivotTable Olu\u015fturmak i\u00e7in VBA&#8217;y\u0131 Kullan\u0131n \u2013 Makroyu Kopyalay\u0131p Yap\u0131\u015ft\u0131r\u0131n <\/h2><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Sub InsertPivotTable() 'Macro By Exceladvisor.org 'Declare Variables Dim PSheet As Worksheet Dim DSheet As Worksheet Dim PCache As PivotCache Dim PTable As PivotTable Dim PRange As Range Dim LastRow As Long Dim LastCol As Long 'Insert a New Blank Worksheet On Error Resume Next Application.DisplayAlerts = False Worksheets(\"PivotTable\").Delete Sheets.Add Before:=ActiveSheet ActiveSheet.Name = \"PivotTable\" Application.DisplayAlerts = True Set PSheet = Worksheets(\"PivotTable\") Set DSheet = Worksheets(\"Data\") 'Define Data Range LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column Set PRange = DSheet.Cells(1, 1).Resize(LastRow, LastCol) 'Define Pivot Cache Set PCache = ActiveWorkbook.PivotCaches.Create _ (SourceType:=xlDatabase, SourceData:=PRange). _ CreatePivotTable(TableDestination:=PSheet.Cells(2, 2), _ TableName:=\"SalesPivotTable\") 'Insert Blank Pivot Table Set PTable = PCache.CreatePivotTable _ (TableDestination:=PSheet.Cells(1, 1), TableName:=\"SalesPivotTable\") 'Insert Row Fields With ActiveSheet.PivotTables(\"SalesPivotTable\").PivotFields(\"Year\") .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables(\"SalesPivotTable\").PivotFields(\"Month\") .Orientation = xlRowField .Position = 2 End With 'Insert Column Fields With ActiveSheet.PivotTables(\"SalesPivotTable\").PivotFields(\"Zone\") .Orientation = xlColumnField .Position = 1 End With 'Insert Data Field With ActiveSheet.PivotTables(\"SalesPivotTable\").PivotFields (\"Amount\") .Orientation = xlDataField .Function = xlSum .NumberFormat = \"#,##0\" .Name = \"Revenue \" End With 'Format Pivot Table ActiveSheet.PivotTables(\"SalesPivotTable\").ShowTableStyleRowStripes = True ActiveSheet.PivotTables(\"SalesPivotTable\").TableStyle2 = \"PivotStyleMedium9\" End Sub<\/code><\/pre><div class=\"wp-block-group is-layout-constrained\"><div class=\"wp-block-group__inner-container\"><h2 class=\"wp-block-heading\"> \u00d6rnek bir dosya indirin <\/h2><ul id=\"ub_styled_list-07372de0-935e-465b-bc3a-5f279b60d6e3\" class=\"ub_styled_list\"><li class=\"ub_styled_list_item\"> <a href=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/tableau-croise-dynamique-vba-2.zip\" rel=\"nofollow\"><strong>Haz\u0131r<\/strong><\/a><\/li><\/ul><\/div><\/div><h2 class=\"wp-block-heading\"> Mevcut \u00e7al\u0131\u015fma sayfas\u0131ndaki pivot tablo<\/h2><p> Yukar\u0131da kulland\u0131\u011f\u0131m\u0131z kod, yeni bir \u00e7al\u0131\u015fma sayfas\u0131nda PivotTable olu\u015fturur, ancak bazen zaten \u00e7al\u0131\u015fma kitab\u0131nda bulunan bir \u00e7al\u0131\u015fma sayfas\u0131na PivotTable eklemeniz gerekir.<\/p><p> Yukar\u0131daki kodda (yeni \u00e7al\u0131\u015fma sayfas\u0131ndaki pivot tablo), yeni \u00e7al\u0131\u015fma sayfas\u0131 eklemek i\u00e7in kodu yazd\u0131\u011f\u0131n\u0131z k\u0131sma bir ad verin. L\u00fctfen kodda baz\u0131 de\u011fi\u015fiklikler yap\u0131n.<\/p><p> \u00dcz\u00fclmeyin; Sana g\u00f6sterece\u011fim.<\/p><p> \u00d6ncelikle pivot tablonuzu eklemek istedi\u011finiz \u00e7al\u0131\u015fma sayfas\u0131n\u0131 (zaten \u00e7al\u0131\u015fma kitab\u0131nda) belirtmeniz gerekir.<\/p><p> Ve bunun i\u00e7in a\u015fa\u011f\u0131daki kodu kullanmal\u0131s\u0131n\u0131z:<\/p><p> Yeni bir \u00e7al\u0131\u015fma sayfas\u0131 eklemek yerine, \u00e7al\u0131\u015fma sayfas\u0131n\u0131n ad\u0131n\u0131 PSsheet de\u011fi\u015fkeninde belirtmeniz gerekir.<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Set PSheet = Worksheets(\"PivotTable\") Set DSheet = Worksheets(\u201cData\u201d)<\/code><\/pre><p> Yap\u0131lacak biraz daha \u015fey var. Kulland\u0131\u011f\u0131n\u0131z ilk kod, pivotu eklemeden \u00f6nce ayn\u0131 adl\u0131 \u00e7al\u0131\u015fma sayfas\u0131n\u0131 (varsa) siler.<\/p><p> Mevcut \u00e7al\u0131\u015fma sayfas\u0131na bir PivotTable ekledi\u011finizde, orada ayn\u0131 ada sahip bir PivotTable&#8217;\u0131n\u0131z zaten olabilir.<\/p><p> Demek istedi\u011fim, \u00f6nce o pivotu \u00e7\u0131karman gerekiyor.<\/p><p> Bunu yapmak i\u00e7in, yenisini eklemeden \u00f6nce ayn\u0131 isimli pivotu \u00e7al\u0131\u015fma sayfas\u0131ndan (varsa) kald\u0131rmas\u0131 gereken kodu eklemeniz gerekir.<\/p><p> Eklemeniz gereken kod a\u015fa\u011f\u0131dad\u0131r:<\/p><pre class=\"wp-block-code\"> <code class=\"language-visual-basic\" lang=\"visual-basic\">Set PSheet = Worksheets(\"PivotTable\") Set DSheet = Worksheets(\u201cData\u201d) Worksheets(\"PivotTable\").Activate On Error Resume Next ActiveSheet.PivotTables(\"SalesPivotTable\").TableRange2.Clear<\/code><\/pre><p> Bu kodun ne i\u015fe yarad\u0131\u011f\u0131n\u0131 size anlatay\u0131m.<\/p><p> \u0130lk olarak, PSsheet&#8217;i zaten \u00e7al\u0131\u015fma kitab\u0131n\u0131zda bulunan pivot tabloyu eklemek istedi\u011finiz \u00e7al\u0131\u015fma sayfas\u0131 olarak ayarlar ve Veri \u00c7al\u0131\u015fma Sayfalar\u0131n\u0131 DSheet olarak ayarlar.<\/p><p> Bundan sonra \u00e7al\u0131\u015fma sayfas\u0131n\u0131 etkinle\u015ftirir ve \u201cSat\u0131\u015f \u00d6zet Tablosunu\u201d buradan kald\u0131r\u0131r.<\/p><p class=\"qt-tip\"> <strong>\u00d6nemli:<\/strong> \u00c7al\u0131\u015fma kitab\u0131n\u0131zdaki \u00e7al\u0131\u015fma sayfalar\u0131n\u0131n adlar\u0131 farkl\u0131ysa bunlar\u0131 koddan de\u011fi\u015ftirebilirsiniz. Bunu yapman\u0131z gereken kodu vurgulad\u0131m.<\/p><h2 class=\"wp-block-heading\"> Sonunda,<\/h2><p> Bu kodu kullanarak pivot tablolar\u0131n\u0131z\u0131 otomatikle\u015ftirebiliriz. Ve en iyi yan\u0131, bunun benzersiz bir kurulum olmas\u0131d\u0131r; bundan sonra pivot tablo olu\u015fturmak i\u00e7in tek t\u0131klamam\u0131z yeterli ve zamandan b\u00fcy\u00fck \u00f6l\u00e7\u00fcde tasarruf edebilirsiniz. \u015eimdi bana bir \u015fey s\u00f6yle.<\/p><p> <strong>Pivot tablo olu\u015fturmak i\u00e7in hi\u00e7 VBA kodunu kulland\u0131n\u0131z m\u0131?<\/strong><\/p><p> L\u00fctfen g\u00f6r\u00fc\u015flerinizi yorum kutusunda benimle payla\u015f\u0131n; Bunlar\u0131 sizinle payla\u015fmak ve bu ipucunu arkada\u015flar\u0131n\u0131zla payla\u015fmak istiyorum.<\/p><p> <strong>Benzer makaleler:<\/strong><\/p><ul><li> <a style=\"outline: none;\" spellcheck=\"false\" href=\"https:\/\/exceladvisor.org\/tr\/ekle-genel-toplami-sil\/\" data-ms-editor=\"true\">Excel&#8217;deki bir pivot tabloya genel toplam ekleme veya kald\u0131rma<\/a><\/li><li> <a style=\"outline: none;\" spellcheck=\"false\" href=\"https:\/\/exceladvisor.org\/tr\/birikimli-toplam\/\" data-ms-editor=\"true\">Excel&#8217;de bir pivot tabloya de\u011fi\u015fen toplam\u0131 ekleme<\/a><\/li><li> <a style=\"outline: none;\" spellcheck=\"false\" href=\"https:\/\/exceladvisor.org\/tr\/otomatik-guncelleme-araligi\/\" data-ms-editor=\"true\">Excel&#8217;de bir pivot tabloyu otomatik olarak g\u00fcncelleme<\/a><\/li><li> <a style=\"outline: none;\" spellcheck=\"false\" href=\"https:\/\/exceladvisor.org\/tr\/pivot-tabloda-hesaplama\/\" data-ms-editor=\"true\">Hesaplanan alan ve \u00f6\u011fe ekleme<\/a><\/li><li> <a style=\"outline: none;\" spellcheck=\"false\" href=\"https:\/\/exceladvisor.org\/tr\/pivot-tabloyu-sil\/\" data-ms-editor=\"true\">Excel&#8217;de PivotTable&#8217;\u0131 silme<\/a><\/li><\/ul>","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"open","ping_status":"closed","template":"","meta":{"ub_ctt_via":"","footnotes":""},"class_list":["post-1515","page","type-page","status-publish","hentry"],"featured_image_src":null,"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v25.4 - https:\/\/yoast.com\/wordpress\/plugins\/seo\/ -->\n<title>\u25b7 VBA ile pivot tablo nas\u0131l olu\u015fturulur?<\/title>\n<meta name=\"description\" content=\"Excel&#039;de pivot tablo olu\u015fturmak i\u00e7in VBA&#039;y\u0131 nas\u0131l kullanaca\u011f\u0131n\u0131z\u0131 biliyor musunuz? Peki, sizin i\u00e7in 8 basit kod ad\u0131m\u0131n\u0131 listeledim\" \/>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/\" \/>\n<meta property=\"og:locale\" content=\"tr_TR\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"\u25b7 VBA ile pivot tablo nas\u0131l olu\u015fturulur?\" \/>\n<meta property=\"og:description\" content=\"Excel&#039;de pivot tablo olu\u015fturmak i\u00e7in VBA&#039;y\u0131 nas\u0131l kullanaca\u011f\u0131n\u0131z\u0131 biliyor musunuz? Peki, sizin i\u00e7in 8 basit kod ad\u0131m\u0131n\u0131 listeledim\" \/>\n<meta property=\"og:url\" content=\"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/\" \/>\n<meta property=\"og:site_name\" content=\"Excel Advisor\" \/>\n<meta property=\"article:modified_time\" content=\"2023-12-10T06:05:49+00:00\" \/>\n<meta property=\"og:image\" content=\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Code-de-macro-a-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel.gif\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Tahmini okuma s\u00fcresi\" \/>\n\t<meta name=\"twitter:data1\" content=\"9 dakika\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\/\/schema.org\",\"@graph\":[{\"@type\":\"WebPage\",\"@id\":\"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/\",\"url\":\"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/\",\"name\":\"\u25b7 VBA ile pivot tablo nas\u0131l olu\u015fturulur?\",\"isPartOf\":{\"@id\":\"https:\/\/exceladvisor.org\/tr\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/#primaryimage\"},\"image\":{\"@id\":\"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/#primaryimage\"},\"thumbnailUrl\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Code-de-macro-a-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel.gif\",\"datePublished\":\"2023-11-18T06:40:14+00:00\",\"dateModified\":\"2023-12-10T06:05:49+00:00\",\"description\":\"Excel&#39;de pivot tablo olu\u015fturmak i\u00e7in VBA&#39;y\u0131 nas\u0131l kullanaca\u011f\u0131n\u0131z\u0131 biliyor musunuz? Peki, sizin i\u00e7in 8 basit kod ad\u0131m\u0131n\u0131 listeledim\",\"breadcrumb\":{\"@id\":\"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/#breadcrumb\"},\"inLanguage\":\"tr\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"tr\",\"@id\":\"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/#primaryimage\",\"url\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Code-de-macro-a-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel.gif\",\"contentUrl\":\"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Code-de-macro-a-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel.gif\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Ev\",\"item\":\"https:\/\/exceladvisor.org\/tr\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Vba ile pivot tablo nas\u0131l olu\u015fturulur?\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\/\/exceladvisor.org\/tr\/#website\",\"url\":\"https:\/\/exceladvisor.org\/tr\/\",\"name\":\"Excel Advisor\",\"description\":\"Veri hakimiyetine y\u00f6nelik nihai rehberiniz!\",\"publisher\":{\"@id\":\"https:\/\/exceladvisor.org\/tr\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\/\/exceladvisor.org\/tr\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"tr\"},{\"@type\":\"Organization\",\"@id\":\"https:\/\/exceladvisor.org\/tr\/#organization\",\"name\":\"Excel Advisor\",\"url\":\"https:\/\/exceladvisor.org\/tr\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"tr\",\"@id\":\"https:\/\/exceladvisor.org\/tr\/#\/schema\/logo\/image\/\",\"url\":\"https:\/\/exceladvisor.org\/tr\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png\",\"contentUrl\":\"https:\/\/exceladvisor.org\/tr\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png\",\"width\":105,\"height\":36,\"caption\":\"Excel Advisor\"},\"image\":{\"@id\":\"https:\/\/exceladvisor.org\/tr\/#\/schema\/logo\/image\/\"}}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"\u25b7 VBA ile pivot tablo nas\u0131l olu\u015fturulur?","description":"Excel&#39;de pivot tablo olu\u015fturmak i\u00e7in VBA&#39;y\u0131 nas\u0131l kullanaca\u011f\u0131n\u0131z\u0131 biliyor musunuz? Peki, sizin i\u00e7in 8 basit kod ad\u0131m\u0131n\u0131 listeledim","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/","og_locale":"tr_TR","og_type":"article","og_title":"\u25b7 VBA ile pivot tablo nas\u0131l olu\u015fturulur?","og_description":"Excel&#39;de pivot tablo olu\u015fturmak i\u00e7in VBA&#39;y\u0131 nas\u0131l kullanaca\u011f\u0131n\u0131z\u0131 biliyor musunuz? Peki, sizin i\u00e7in 8 basit kod ad\u0131m\u0131n\u0131 listeledim","og_url":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/","og_site_name":"Excel Advisor","article_modified_time":"2023-12-10T06:05:49+00:00","og_image":[{"url":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Code-de-macro-a-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel.gif","type":"","width":"","height":""}],"twitter_card":"summary_large_image","twitter_misc":{"Tahmini okuma s\u00fcresi":"9 dakika"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"WebPage","@id":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/","url":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/","name":"\u25b7 VBA ile pivot tablo nas\u0131l olu\u015fturulur?","isPartOf":{"@id":"https:\/\/exceladvisor.org\/tr\/#website"},"primaryImageOfPage":{"@id":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/#primaryimage"},"image":{"@id":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/#primaryimage"},"thumbnailUrl":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Code-de-macro-a-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel.gif","datePublished":"2023-11-18T06:40:14+00:00","dateModified":"2023-12-10T06:05:49+00:00","description":"Excel&#39;de pivot tablo olu\u015fturmak i\u00e7in VBA&#39;y\u0131 nas\u0131l kullanaca\u011f\u0131n\u0131z\u0131 biliyor musunuz? Peki, sizin i\u00e7in 8 basit kod ad\u0131m\u0131n\u0131 listeledim","breadcrumb":{"@id":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/#breadcrumb"},"inLanguage":"tr","potentialAction":[{"@type":"ReadAction","target":["https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/"]}]},{"@type":"ImageObject","inLanguage":"tr","@id":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/#primaryimage","url":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Code-de-macro-a-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel.gif","contentUrl":"https:\/\/exceladvisor.org\/wp-content\/uploads\/2023\/08\/Code-de-macro-a-utiliser-VBA-pour-creer-un-tableau-croise-dynamique-dans-Excel.gif"},{"@type":"BreadcrumbList","@id":"https:\/\/exceladvisor.org\/tr\/pivot-tablo-1\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Ev","item":"https:\/\/exceladvisor.org\/tr\/"},{"@type":"ListItem","position":2,"name":"Vba ile pivot tablo nas\u0131l olu\u015fturulur?"}]},{"@type":"WebSite","@id":"https:\/\/exceladvisor.org\/tr\/#website","url":"https:\/\/exceladvisor.org\/tr\/","name":"Excel Advisor","description":"Veri hakimiyetine y\u00f6nelik nihai rehberiniz!","publisher":{"@id":"https:\/\/exceladvisor.org\/tr\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/exceladvisor.org\/tr\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"tr"},{"@type":"Organization","@id":"https:\/\/exceladvisor.org\/tr\/#organization","name":"Excel Advisor","url":"https:\/\/exceladvisor.org\/tr\/","logo":{"@type":"ImageObject","inLanguage":"tr","@id":"https:\/\/exceladvisor.org\/tr\/#\/schema\/logo\/image\/","url":"https:\/\/exceladvisor.org\/tr\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png","contentUrl":"https:\/\/exceladvisor.org\/tr\/wp-content\/uploads\/2023\/12\/exceladvisor.org_.png","width":105,"height":36,"caption":"Excel Advisor"},"image":{"@id":"https:\/\/exceladvisor.org\/tr\/#\/schema\/logo\/image\/"}}]}},"yoast_meta":{"yoast_wpseo_title":"","yoast_wpseo_metadesc":"","yoast_wpseo_canonical":""},"_links":{"self":[{"href":"https:\/\/exceladvisor.org\/tr\/wp-json\/wp\/v2\/pages\/1515","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/exceladvisor.org\/tr\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/exceladvisor.org\/tr\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/exceladvisor.org\/tr\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/exceladvisor.org\/tr\/wp-json\/wp\/v2\/comments?post=1515"}],"version-history":[{"count":1,"href":"https:\/\/exceladvisor.org\/tr\/wp-json\/wp\/v2\/pages\/1515\/revisions"}],"predecessor-version":[{"id":2834,"href":"https:\/\/exceladvisor.org\/tr\/wp-json\/wp\/v2\/pages\/1515\/revisions\/2834"}],"wp:attachment":[{"href":"https:\/\/exceladvisor.org\/tr\/wp-json\/wp\/v2\/media?parent=1515"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}