Pivot tabloda biçim

[mesudiye_052]

Selamlar;

Listeden pivot tablo vasıtasıyla verileri alıp diğer sayfaya aktarabiliyorum
ama aktarırken taban dolgu rengi ve açıklamalarında aktarmasını istiyorum
acaba olabilirmi


Saygılar

 

[mesudiye_052]

Selamlar;
sadece pivot tablo ile olmuyorsa
pivot tabloyla beraber makro ile de olabilir

saygılar;

 

[hamitcan]

Özet tabloda dolgu rengi göremedim. Ayrıca nereye ve nasıl aktarmak istediğinizi de dosyada belirtin.

 

[mesudiye_052]

Selam;
Sayın Hamitcan;

Trafik sayfasındaki bilgileri taksitler ve peşinat sutunları da dahil olarak en uygın şekliyle pivot tablo şeklinde
dolgu rengi ve açıklamasıyla yapmaya çalıştım ama yapamadım
acaba en uygun şekliyle nasıl yaparım
yada pivot tabloyla olmazsa makro ile de olabilir.
mesela tali olarak fatihde dolgu renngi var

 

[hamitcan]

Özet tabloya biçimlendirmek istiyorsanız, otomatik biçim özelliğinden faydalanabilirsiniz. Bence buradaki biçimlendirmek oldukça güzel ve yapması da kolay.

 

[mesudiye_052]

Selam
Aslında pivot tabloyu biçimlendirmek değil ana sayfa olan trafikte biçim varsa pivota dahil edilmesini istioyrum
bir de pivot tabloyu verimli bir şeklide yapamadım bir de ona bakarsanız sevinirim

 

[hamitcan]

Selam
Aslında pivot tabloyu biçimlendirmek değil ana sayfa olan trafikte biçim varsa pivota dahil edilmesini istioyrum

Bildiğim kadarıyla, Özet Tablonun böyle bir özelliği yok.

Selam
bir de pivot tabloyu verimli bir şeklide yapamadım bir de ona bakarsanız sevinirim

Özet Tablo bu konuda çok esnek. Bence nasıl birşey yapacağınızı önce belirleyin sonra da özet tabloyu tekrar düzenleyin.

 

[mesudiye_052]

Selam;
Sayın Hamitcan;

şu anda Ekte gönderdiğim pivot taboda taksit ve ödemeler alt alta
acaba 2 sutunla taksit ödeme yan yana sutun şeklinde yapılabilirmi

saygılar

 

[hamitcan]

Bir kod yardımıyla formatını değiştirdim, galiba oldu.

Sub RaporOlustur()
    c = 1
    d = 1
    son2 = 2
    son = Range("1:1").End(xlToRight).Column
    Sheets("Rapor").[a2:l500].Clear
    For j = 2 To [a65536].End(3).Row
    For i = 11 To son
      If Right(Cells(i), 5) = "ÖDEME" Then
            c = c + 1
                Sheets("Rapor").Cells(c, "l") = Cells(j, i)
                Sheets("Rapor").Cells(c, "a") = Cells(j, 1)
                Sheets("Rapor").Cells(c, "b") = Cells(j, 2)
                Sheets("Rapor").Cells(c, "c") = Cells(j, 3)
                Sheets("Rapor").Cells(c, "d") = Cells(j, 4)
                Sheets("Rapor").Cells(c, "e") = Cells(j, 5)
                Sheets("Rapor").Cells(c, "f") = Cells(j, 6)
                Sheets("Rapor").Cells(c, "g") = Cells(j, 7)
                Sheets("Rapor").Cells(c, "h") = Cells(j, 8)
                Sheets("Rapor").Cells(c, "i") = Cells(j, 9)
                Sheets("Rapor").Cells(c, "j") = Cells(j, 10)
                Sheets("Rapor").Cells(c, "k") = Cells(1, i)
       ElseIf Right(Cells(i), 6) = "TAKSİT" Then
                d = d + 1
                Sheets("Rapor").Cells(d, "n") = Cells(j, i)
                Sheets("Rapor").Cells(d, "a") = Cells(j, 1)
                Sheets("Rapor").Cells(d, "b") = Cells(j, 2)
                Sheets("Rapor").Cells(d, "c") = Cells(j, 3)
                Sheets("Rapor").Cells(d, "d") = Cells(j, 4)
                Sheets("Rapor").Cells(d, "e") = Cells(j, 5)
                Sheets("Rapor").Cells(d, "f") = Cells(j, 6)
                Sheets("Rapor").Cells(d, "g") = Cells(j, 7)
                Sheets("Rapor").Cells(d, "h") = Cells(j, 8)
                Sheets("Rapor").Cells(d, "i") = Cells(j, 9)
                Sheets("Rapor").Cells(d, "j") = Cells(j, 10)
                Sheets("Rapor").Cells(d, "m") = Cells(1, i)
        End If
    Next
   Next
End Sub

 

[mesudiye_052]

Selam
Sayın Hamitcan

çok teşekkür ederim