Soru Aktif Hücre Üzerinden Pivottable Oluşturma,

[gicimi]

Merhaba;

"A1 - L1 " (İL KODU-İL ADI-İLÇE- ADI-DURUMU-İLÇE KODU-MARKA-ÜRÜN-ADET- BİRİM FİYAT- TUTAR-AÇIKLAMA-AÇIKLAMA2)

Yukarıdaki başlık bilgilerinden birine tıklanması durumunda; hücre bilgisine göre ekteki belirtilen dosya gibi PİVOT oluşturarak Masaüstüne yeni bir çalışma dosyası oluşturmasını istiyorum. Yardımcı olabilir misiniz. Teşekkürler.

Örnek ektedir.

Yol=Desktop/Pivot

 

[gicimi]

Yardım lütfen.

 

[gicimi]

Vakit ayırabilir misiniz. Değerli Üstadlarım.

 

[gicimi]

Konu güncel. Yardımcı olabilir misiniz.

 

[hamitcan]

Pivot ismiyle masa üstüne kayıt etmek için MakroKaydet yöntemini kullanın. Kaydedilen satırları kodun altına ekleyin.

Sub PivotKaydet()
    On Error Resume Next
    If ActiveCell.Row <> 1 Then Exit Sub
    If ActiveCell = "" Then Exit Sub
    If ActiveCell.Column > 7 And ActiveCell.Column < 10 Then Exit Sub
    AlanAdi = ActiveCell.Text
    Application.DisplayAlerts = False
        Sheets("Rapor").Delete
    Application.DisplayAlerts = True
        Range("A1").Select
        Range(Selection, [l1000].Address).Select
        Sheets.Add
        ActiveSheet.Name = "Rapor"
        ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
            "Sheet1!R1C1:R1000C12", Version:=xlPivotTableVersion15).CreatePivotTable _
            TableDestination:="Rapor!R3C1", TableName:="PivotTable2", DefaultVersion _
            :=xlPivotTableVersion15
        Cells(3, 1).Select
        x = ActiveSheet.PivotTables.Count
        With ActiveSheet.PivotTables(x).PivotFields(AlanAdi)
            .Orientation = xlRowField
            .Position = 1
        End With
        ActiveSheet.PivotTables(x).AddDataField ActiveSheet.PivotTables( _
            x).PivotFields("ADET"), "Toplam ADET", xlSum
        ActiveSheet.PivotTables(x).AddDataField ActiveSheet.PivotTables( _
            x).PivotFields("BİRİM FİYAT"), "Toplam BİRİM FİYAT", xlSum
        ActiveSheet.PivotTables(x).AddDataField ActiveSheet.PivotTables( _
            x).PivotFields("TUTAR"), "Toplam TUTAR", xlSum
End Sub

 

[gicimi]

@hamitcan Bey kod için teşekkür ederim. "Yapmak isteğimi karşılamıyor. "