Pivot Tabloya Aktarılan Veriyi Günlük Olarak Saklama

  • Konuyu başlatan Konuyu başlatan emreaaa
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

emreaaa

Kullanıcı
Katkı: %0
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,

Dış kaynaktan aldığım verileri Pivot olarak özet haline getiriyor ve raporlama işlemini gerçekleştiriyorum.
Amacım günlük olarak veritabanından çektiğim bu verileri başka bir dosyada arşivlenmesini sağlamak.

Örnekteki dosyada;
(Pivot Sekmesinde) Günlük verilen hizmetler ve fiyatları yazıyor.
(Arşiv Sekmesinde) Günlük hizmet ve tutarlarının kayıt edilme şeklini gösteriyor.

İsteğim bir makro kodları ile günlük çektiğim bu özet tabloyu başka bir dosyaya günlük olarak sıralı halde kaydedebilmek.

Değerli yardımlarınızı rica ederim
 

Ekli dosyalar

Çözüm
ExcelDepo

ExcelDepo

Merhaba, aşağıdaki kod rapor dosyanızdaki Pivot sayfasında bulunan özeti, aynı klasördeki Hizmet Arsivi.xlsx dosyasına, örnekteki Arşiv düzeniyle her gün yeni bir blok olarak ekler. Kodu rapor dosyasında Alt+F11 ile açılan bölümde Insert > Module ile eklenen modüle yapıştırmanız ve dosyayı .xlsm olarak kaydetmeniz yeterlidir.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (12 satır). Giriş Yap
Tarihe göre sırala Oylamaya göre sırala
Merhaba, aşağıdaki kod rapor dosyanızdaki Pivot sayfasında bulunan özeti, aynı klasördeki Hizmet Arsivi.xlsx dosyasına, örnekteki Arşiv düzeniyle her gün yeni bir blok olarak ekler. Kodu rapor dosyasında Alt+F11 ile açılan bölümde Insert > Module ile eklenen modüle yapıştırmanız ve dosyayı .xlsm olarak kaydetmeniz yeterlidir.

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (115 satır). Giriş Yap

Kod nasıl çalışır?
  1. Pivot sayfasında gerçek bir pivot tablo varsa alan pivotun kendisinden okunur; tabloda yalnızca değerler varsa 5. satırdaki HİZMET TİPİ başlığından A sütunundaki son dolu satıra kadar olan bölüm alınır.
  2. Arşiv dosyası açıksa doğrudan kullanılır, kapalıysa açılır, hiç yoksa oluşturulur. Dosya salt okunur açıksa kayıt yapılmaz; beklenmeyen bir hata olursa kodun açtığı arşiv kaydedilmeden kapatılır ve hata mesajı gösterilir.
  3. Arşivin 2. satırında aynı tarih varsa kayıt tekrar eklenmez ve bilgi mesajı gösterilir.
  4. Yeni blok, 3. satırdaki son dolu sütunun sağından başlar: tarih bloğun ilk hücresine, para birimi başlıkları altına yazılır.
  5. Hizmetler B sütununda adına göre eşleştirilir. Arşivde olmayan yeni bir hizmet Genel Toplam satırının üstüne eklenir; önceki günlerin değerleri kaymaz.
  6. İşlem sonunda arşiv kaydedilir ve kodun açtığı arşiv dosyası yeniden kapatılır.

Notlar
  • Kod GunlukArsiveKaydet makrosuyla çalıştırılır; bir düğmeye atanabilir.
  • Tarih olarak bilgisayarın o günkü tarihi kullanılır. Önceki günün verisi arşivlenecekse GunlukArsiveKaydet içindeki Date ifadesi Date - 1 olarak değiştirilebilir.
  • Arşiv dosyasının adı ARSIV_ADI sabitinden, Pivot sayfasında yalnızca değerler bulunduğunda kullanılan başlık satırı BASLIK_SATIR sabitinden değiştirilebilir.
  • Pivotun dış kaynaktan güncellenmesi bittikten sonra çalıştırılması gerekir.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst