Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme

Bu kod ile Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme işlemini çok hızlı bir şekilde gerçekleştirebilir işlerinizde zaman tasarrufu sağlayabilirsiniz

XD Destek İste
Sub RefreshAllPivotTables()
Dim PT As PivotTable
For Each PT In ActiveSheet.PivotTables
    PT.RefreshTable
Next PT
End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

Eğer çalışma sayfalarınızda birden fazla Özet Tablo yer alıyorsa, bu kod ile hepsinin Yenilenme işlemini yapabilirsiniz.

Etiketler

50 Farklı Hazır Makro (VBA) Kodu
Tüm Boş Çalışma Sayfalarını Silme
UserForm Kapatma Kodu
Bir Çalışma Kitabında Kaç Sayfa Var
Satır Yüksekliğini Ayarla
Metni Tersten Yazdırma
Excel Alarm Kurma
Excel Makroları İle Not Defterini Açmak
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
Çalışma Kitabındaki Tüm Çalışma Sayfalarını Koruma
Grafiği Görüntü Olarak Yapıştırma
Aktif Hücrenin Temel Bilgilerini Bulma
ListBbox ve ComboBox Satır Kaydırma
Birleştirilmiş Tüm Hücreleri Ayırma
Excel Satır Silme Kodu
Excel Makroları ile İşlemci Bilgilerini Bulma
Özel Sayfaları Yazdırma
Sütunu Kes Kopyala ve Yapıştır
Tarih ve Saatten Tarihi Kaldırma
Sütunlardaki Farkı Renklendirme
Birden Çok Çalışma Sayfası Ekleme
Makro ile Boş Satırları Silme
Metinden Konuşma Oluşturma
Alarmlı Saat Ekleme Kodu
Excel Satır Seçme Kodu
Yorumları İçeren Hücreleri Renklendirme
Belli Sütunlarda Alfabetik Sıralama
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Excel Makroları ile Hücreye Saat Ekleme
Excel Açılırken Otomatik İşlem Yaptırma
Aralıklı Olarak Satır Silme
Satır Yüksekliklerini Otomatik Ayarlama
Makro ile Biçimleri Temizleme
Excel Kapanırken Otomatik İşlem Yaptırma
Excel Hücresine Gitme Makrosu
Çift Satırlı Msgbox Örneği
Hedef Aramayı Kullanma
Tekrarlayan Verileri Vurgulama
Küp Kökünü Hesaplama
Seçili Hücrelerden Boşlukları Kaldırma
Seri Numaralarını Ekleme
Excel Makroları ile Dosya Taşıma
Klavyeye Makro Atama ve Çalıştırma
Toplu Satır Silme
Sütunda Yazılı Olanlardan Sayfa Adı Yapma
Son Satır Numarasını Bulma
Txt Dosyası Oluşturma
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Tüm Satırda İşlem Yapan Döngü
Çalışma Sayfalarını Alfabetik Olarak Sıralama
Seçili Satırların Sayısını Bulma
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Alttaki gibi bir tablonuz olduğunu varsayalım.

Örnek Tablo

Normal şartlarda B2:B7 aralığını kopyala deyip, C2 hücresine yapıştırdığımızda; B2:B8 aralığındaki verilerin aynısı C2:C8 aralığına yapıştırılır ve C4 hücresinde bulunan HAYIR değeri silinir. B2:B8 aralığında bulunan EVET değerlerini HAYIR değerini koruyarak yapıştırmak istersek;
Kopyala -> Özel Yapıştır seçeneklerinden -> Boş Olanları Atla seçeneğini işaretlememiş yeterli olacaktır.

Boş Olanlar Nasıl Atlanır?
Yükleniyor...