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

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
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
 

Ekli dosyalar

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
Yardım lütfen.
 

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
Vakit ayırabilir misiniz. Değerli Üstadlarım.
 

gicimi

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
Konu güncel. Yardımcı olabilir misiniz.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,678
Excel Vers. ve Dili
Excel 2019 Türkçe
Pivot ismiyle masa üstüne kayıt etmek için MakroKaydet yöntemini kullanın. Kaydedilen satırları kodun altına ekleyin.
Kod:
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

Altın Üye
Katılım
3 Şubat 2008
Mesajlar
594
Excel Vers. ve Dili
Office 2016 Eng. 64 Bit
@hamitcan Bey kod için teşekkür ederim. "Yapmak isteğimi karşılamıyor. "
 
Üst