Makro İle Pivot Table

[mktemel]

Merhaba ekli dosyadaki örneğimde Data sheet içerisnde A hücresindeki tüm bilgileri Pivot sheet sayfasının A hücresinde PivotTable şeklinde aldırabilceğim bir makroya ihtiyacım var .Konu hakkında yardımcı oalbilcek arkadaşlara teşekkür ederim.

Not: Bu konuyla ilgili gerekli örnekleri inceledim fakat uygulamada zorluk çektiğim için göndermek zorunda kaldım

 

[zafer]

Merhaba

Sorunuzu açabilirmisiniz.
Sadece bir sütunla ilgili özet tablo yapma konusunu anlayamadım.Verilerinizin kaç adet olduğunu saydıralım desek Zaten verileriniz hep tek tek.

 

[mktemel]

Amacım eger bır numaradan bırkac tane var ıse bırtane olarak gorunmesını sağlamak . Daha dogrusu tekrarlı olanları yazdırmamak.

 

[zafer]

Merhaba


Ekli dosyayı inceleyiniz.

 

[captan]

Bence bir Özet Tablo koyup Güncelle Demek daha mantıklı

Ekli dosyayı inceleyiniz

Yinede siz bilirsiniz.

 

[zafer]

Merhaba

Evet haklısınız en kolayı odur.bende öyle düşündüm.
Fakat Sn.Temel özet tabloyuda makro ile istiyor.

 

[captan]

Sayın Zafer bey sizin örneğinizi inceledim, çok zekice . .

Ancak ben Macro ile bir Özet tablo yapmaya çalıştım ancak beceremedim. ;(
İş yerindeyim, fazla uğraşamadım ama akşama tekrar deneyeceğim. .

 

[zafer]

Merhaba

Ben önce makro/Yeni makro kaydet'e basıyorum.
Sonra özet tablomu oluşturuyorum.
Makroyu durdur diyorum.

Ama bunun zaten hiç bir anlamı yok zaten 1 sefere mahsusu yapılacak bir şey 2. sefer aynı makroyu çalıştırısanız aynı ozet tablo var diye hata verir. sonra güncellemek için zaten özet tabloda veriyi yenileyeceksiniz.
En iyisi normal yollardan özet tablo oluşturmak.

 

[captan]

Sayın Zafer bey umarım ukalalık yaptığımı düşünmüyorsunuzdur,

Gördüğüm kadarıyla kalıcı bir Özet Tablo dosyada gereksiz bir şişme yaratıyor. Bu yüzden ekte bir çalışma denedim, çalışmam herdefasında eski tabloyu silip yenisini oluşturuyor. .

İnşallah mktemel bey ve siz bu çalışmayı beğenirsiniz !!

 

[zafer]

Merhaba

Sayın Zafer bey umarım ukalalık yaptığımı düşünmüyorsunuzdur,

İnşallah mktemel bey ve siz bu çalışmayı beğenirsiniz !!

Rica ederim.Her zaman yeni çözümler bilgilerimizi geliştirmemize yardımcı olur.

 

[emrexcel123]

pivot table

arkadaşlar ve üstadlar bence de sn captan'ın en son yaptığı örnek en somutu yani en kullanışlısıdır ben de bir kaç gün önce inanılmaz bir kaç kodla uğraştım kafayı yedirtiyordu bana az kaldı ki aklıma özet tablo geldi gerçekten çok güzel bir olay...

 

[conari]

Pivot Tablolarda pivotCash Boşaltmak için Makro

Sub pivotactiveet()
' pivotactiveet Makro
' Makro Conari tarafından 07.11.2005 tarihinde kaydedildi.

On Error GoTo ErrorHandler
    Dim pvtc As PivotCache
    For Each pvtc In ActiveWorkbook.PivotCaches
        If pvtc.MissingItemsLimit <> xlMissingItemsNone Then
            pvtc.MissingItemsLimit = xlMissingItemsNone
        End If
    Next
    GoTo EndSub
ErrorHandler:
    Err.Clear
    MsgBox "Aktif çalışma sayfasında Özet Tablo bulunamadı.", vbInformation, " Conari -Uyarı!!"
EndSub:
    ActiveSheet.PivotTables("Pivot").PivotCache.Refresh
End Sub

Yukarıda ki kodu modül olarak oluşturun ve Özet tablonun olduğu sayfanın aşağıdaki şekilde kod bloguna yapıştırın

Private Sub Worksheet_Activate()
pivotactiveet
End Sub

veya kodları direk bu eventte kullanın.

Pivot Tablonun Belleğini boşaltır ve Tabloyu Refresh eder.
Refresh olması için Pivot tablo adının Pivot seçilmesi gerekmekte.

 

[captan]

Sub pivotactiveet()
Pivot Tablonun Belleğini boşaltır ve Tabloyu Refresh eder.
QUOTE]

Bu çalışmayı hazırlarken amacım, Hiç olmayan bir tabloyu baştan yapmak ve daha sonra işlem bittiğinde tabloyu kaldırmaktı.  

Sayın conari nin verdiği kodlar gerçekten çok harika kodlar, ve olaya çok farklı bir bakış açısı. 


Not:
 Kusura bakmayın ben Özet Tablo diyorum, İngilizceminde hayli iyi olmasına rağmen ben Türkçe kullanmayı seçiyorum. Özellikle Pivot Tablo bana çok itici geldi..

 

[mktemel]

Öncelikle emeği geçen herkese ayrı ayrı teşekkür ederim. Konu incelirken farkı görüş ve farklı yöntemler çıkmasıda ayrıca bir güzellik tabiki.

Bilginin paylaştıkça anlam kazandığını birkez daha kanıtladığınız için hepinize tekrar teşekkür ederim.

 

[filizcandan]

Pİvot Ta İÇİn Yardim

Merhaba arkadaşalar ..
Benim SQL üzerinde çalışan bir programımdan Sipariş Bilgilerini Pivot yardımı ile excel e bilgileri gayet güzel alıyorum. Benim sorunum.
1- Başka bir excel tablosunda Sipariş veren firmanın ödeme dosyaları bulunmaktadır. ben Pivot ile excel dosyasını nasıl birleştirebilirim.
Sipariş pivot ında firma adı ve kodu bulunmakta ben firma adını tıkladığımda diğer excel tablosuna gitmesini ve ödeme bilgilerini göstermesini istiyorum.

umarım sorunumu anlata bilmişimdir. Yardımlarınıza şimdiden teşekkürler.

 

[ybilgin]

Kardeşimiz Conarinin 12 numaralı başlıkta verdiği kodlar için çok teşekkür ediyorum.
Ben böyle bir özelliği yapmaya çalışıyor ve beceremyiyordum. bu nedenle, Pivotu Makrolarla her seferinde yeni baştan oluşturuyor ve yeniden görsel şekil veriyordum. Bu kodlar sıkıntıyı ortdan kaldırdı.

Olaya vakıf olmayan arkadaşlara şu açıklamanı yapmayı borç bildim.
Arkadaşlar Elinizde olan hazır datalarla özet tablo oluşturduğunuzda Özet tablonun hafızasında sadece mevcut datalar kaydedilir, eğer siz datalara sonradan ilave yaparsanız, farklı bir değişken eklerseniz, tabloyu YENİLESENİZDE yani REFRESH etsenizde yeni eklediğiniz datalar mevcut özet tablonuza yansımaz,
İşte CONARİ arkadaşımız verdiği bu kodlarla, Pivota yeni eklenen değişkenlerinde eklşenmesini sağlıyor. bu sayede MEVCUT pivot üzerinde REFRESH edilerek, yeni eklenen datalar pivota ilave edilmiş oluyor,
tekrar teşekkür ediyorum.

arama tagları
pivot table
özet tablo
özet tablo yenile
pivot table refresh