Özet Tablo Yardım

[staluer]

Merhaba,
Ek'teki dosyada veri sayfasında 0 dan büyük malzemelerin tablo sayfasında tablo oluşturulması hakkında yardımlarınız bekliyorum.
Forumda biraz araştırma yaptım fakat bir sonuca ulaşamadım.
Teşekkürler.

 

[Vedat Özer]

Selamlar,

Aşagıdaki kodu modül sekmesine yapıştırıp bir butona bağlayın.

Sub rr()
    Selection.AutoFilter Field:=2, Criteria1:=">0", Operator:=xlAnd
    Columns("B:C").Select
    Range("C1").Activate
    Selection.Copy
    Sheets("TABLO").Select
    Columns("B:C").Select
    Range("C1").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("VERİ").Select
    Application.CutCopyMode = False
    Range("D1").Select
    Selection.AutoFilter Field:=2
    Range("D1").Select
End Sub

 

[staluer]

teşekkürler yardmınız için.
Dosyayı ek'teki gibi değiştiridiğimizde malzeme giriş alanı sayısını arttırdığımızda neler yapabiliriz ?
Tablo kısmı da tablo sayısı artmış olacak....

 

[Vedat Özer]

Selamlar,

Çok uzun işlemleri makro kaydet ile yapın daha sonradan tek tıkla bütün işlemleriniz yapılsın.
Veri/Filtre uygula/Otomatik filtreleme ile yapılmıştır.
Ben bu şekilde yaptım kodu veriyorum.

Sub ZOR()
    Range("C2").Select
    Selection.AutoFilter Field:=2, Criteria1:=">0", Operator:=xlAnd
    Columns("B:C").Select
    Selection.Copy
    Sheets("TABLO").Select
    Columns("B:C").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C14").Select
    Sheets("VERİ").Select
    Application.CutCopyMode = False
    Selection.AutoFilter Field:=2
    Selection.AutoFilter Field:=3, Criteria1:=">0", Operator:=xlAnd
    Range("B:B,D:D").Select
    Range("D1").Activate
    Selection.Copy
    Sheets("TABLO").Select
    Columns("E:E").Select
    Sheets("VERİ").Select
    Application.CutCopyMode = False
    Columns("B:B").Select
    Selection.Copy
    Sheets("TABLO").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("VERİ").Select
    Application.CutCopyMode = False
    Columns("D:D").Select
    Selection.Copy
    Sheets("TABLO").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "MALZEME ADI"
    Columns("F:F").Select
    Sheets("VERİ").Select
    Selection.Copy
    Sheets("TABLO").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E14").Select
    Application.CutCopyMode = False
    Sheets("VERİ").Select
    Selection.AutoFilter Field:=3
    Range("E3:E4").Select
    Range("E4").Activate
    Selection.AutoFilter Field:=4, Criteria1:=">0", Operator:=xlAnd
    Columns("B:B").Select
    Selection.Copy
    Sheets("TABLO").Select
    Columns("H:H").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("VERİ").Select
    Application.CutCopyMode = False
    Columns("E:E").Select
    Selection.Copy
    Sheets("TABLO").Select
    Columns("I:I").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("H8").Select
    Sheets("VERİ").Select
    Application.CutCopyMode = False
    Selection.AutoFilter Field:=4
    Selection.AutoFilter Field:=5, Criteria1:=">0", Operator:=xlAnd
    Columns("B:B").Select
    Selection.Copy
    Sheets("TABLO").Select
    Columns("K:K").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E24").Select
    Sheets("VERİ").Select
    Columns("F:F").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("TABLO").Select
    Columns("L:L").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("K11").Select
    Sheets("VERİ").Select
    Application.CutCopyMode = False
    Selection.AutoFilter Field:=5
    Range("G1").Select
End Sub

 

[staluer]

Çok teşekkürler.

 

[ANATOLİA_01]

Özet tablodaki alanların liste görünümü

Merhaba;
1.Özet tablo (klasik görünüm) verilerinin 2.alanı (masrafın konusu), 2.bir pivotun data listesine bağlanıyor.Aynı şekilde 1.alanın da (Açıklama) liste şeklinde görünmesi gerekiyor ki bağlantıda boş hücre yerine cari ismi olsun.Ekte daha net görebilirsiniz.Acil yardım lütfen :kafa::kafa::kafa:

 

[Merhum İdris SERDAR]

Merhaba;
1.Özet tablo (klasik görünüm) verilerinin 2.alanı (masrafın konusu), 2.bir pivotun data listesine bağlanıyor.Aynı şekilde 1.alanın da (Açıklama) liste şeklinde görünmesi gerekiyor ki bağlantıda boş hücre yerine cari ismi olsun.Ekte daha net görebilirsiniz.Acil yardım lütfen :kafa::kafa::kafa:

.

İlgili sütunun üstünde sağ klik yapın. Field settings > Layout&Print > Repeat label items kutusunu işaretleyin.

.

 

[ANATOLİA_01]

.

İlgili sütunun üstünde sağ klik yapın. Field settings > Layout&Print > Repeat label items kutusunu işaretleyin.

.

Zaten öğe etiketlerini sekmeler biçiminde göster tikli.Benim istediğim ilk grubun altındaki boşluklarda etiket adının tekrarlanması.

1. SÜTUN______2.SÜTUN_________TOPLAM SÜTUNU
ÖZÇETE KARO______NAKLİYE_______________70,80
_________________ÇEVRE DÜZENLEME______188,80

Yerine aşağıdaki gibi görüntülenmesi;

ÖZÇETE KARO____NAKLİYE__________________70,80
ÖZÇETE KARO____ÇEVRE DÜZENLEME________188,80

 

[zünnun]

pivot table seçeneklerinde rapor düzeninde alanları yenile var ona tıka seninki düzelir gibi

peki bunların türkçesi nedir bende özet tablo yaparken her özet tabloda anahat biçiminde göster kendime göre bir grafik seçiyorum bunları tek seferde kaydetmem ve bütün özet tablo yaparken ayarların gelmesi için ne yapmam laızm

 

[Merhum İdris SERDAR]

Zaten öğe etiketlerini sekmeler biçiminde göster tikli.Benim istediğim ilk grubun altındaki boşluklarda etiket adının tekrarlanması.

1. SÜTUN______2.SÜTUN_________TOPLAM SÜTUNU
ÖZÇETE KARO______NAKLİYE_______________70,80
_________________ÇEVRE DÜZENLEME______188,80

Yerine aşağıdaki gibi görüntülenmesi;

ÖZÇETE KARO____NAKLİYE__________________70,80
ÖZÇETE KARO____ÇEVRE DÜZENLEME________188,80

.


Yukarıda yazdıklarım dediğinizi yapıyor.

Dosyanız ekte.


.