Birden Fazla Sayfadan Veri Aktarma

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

theorder

VIP Üye
Kullanıcı
Katılım
4 Mar 2022
Mesajlar
113
Excel Versiyonu
Excel 2013
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba,
Bir konuda yardımlarınıza ihtiyacım vardır. personel listesini takip çizelgesinde günlük olarak veri girişi yapılmaktadır. rapor tarih aralığı girdipimde aktar dediğimde rapor sayfasındaki gibi bir rapor istiyorum. düşeyara gibi birşey ile yapmaya çalıştım ama yapamadım. yardımcı olabilir misiniz. rapor sayfasında aynı kişinin adı 1 kere yazacak yan sütünlarda verileri gelecek rapor tarihine göre. yardımlarınızı bekliyorum.

konu mühimdir yardımlarınızı bekliyorum.
 
Koşula Bağlı Satır Silme
ADO ile Çok Kriterli Filtreleme

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
theorder' Alıntı:
Merhaba,
Bir konuda yardımlarınıza ihtiyacım vardır. personel listesini takip çizelgesinde günlük olarak veri girişi yapılmaktadır. rapor tarih aralığı girdipimde aktar dediğimde rapor sayfasındaki gibi bir rapor istiyorum. düşeyara gibi birşey ile yapmaya çalıştım ama yapamadım. yardımcı olabilir misiniz. rapor sayfasında aynı kişinin adı 1 kere yazacak yan sütünlarda verileri gelecek rapor tarihine göre. yardımlarınızı bekliyorum.

konu mühimdir yardımlarınızı bekliyorum.
Genişletmek için tıklayın ...
rapor sekmesi mümkün olmazsa benzer bir listede üretilebilir.
Ömer BARAN' Alıntı:
Sn @theorder

Şu kod işinizi görür.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(22 satır)
Genişletmek için tıklayın ...
Sayın Ömer Hocam,
Elinize sağık . Kod Çok güzel şekilde çalışıyor. Teşekkür ederim.
 
Oyla 0 Olumsuz oyla
Kodun şu satırındaki sayfa adını listeleme hangi sayfaya yapılacaksa o sayfanın adıyla değiştirmeniz yeterlidir.

Set rap = Sheets("RAPOR(İSTENİLEN RAPOR)")
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Kodun şu satırındaki sayfa adını listeleme hangi sayfaya yapılacaksa o sayfanın adıyla değiştirmeniz yeterlidir.

Set rap = Sheets("RAPOR(İSTENİLEN RAPOR)")
Genişletmek için tıklayın ...
Ömer Üstadım,
Kodu farklı çalışmalarım içinde kullanıyorum.(Bu konuda tekrardan sizlere farklı bir konu açabilirim). Bu çalışmada belirli bir tarih aralığına göre filtre vermiştik bu filtreyi dikkate almadan direk listelemesi için kodda nasıl bir düzeltme yapmam gerekiyor.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Sn @theorder

Şu kod işinizi görür.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(22 satır)
Genişletmek için tıklayın ...

Ömer Hocam,
kodu uyarlama çalıştım ama Hata alıyorum. büyük ihtimal gözden kaçırdığım hususlar var . uğraştıkça için içinden hiç çıkamıyorum. Bana düzenleme hususunda yardımcı olabilir misiniz ? Örnek olması amacı ile dosyayı sizle paylastım. Örnek bir çalışma yaptım. kodu uyarlayamadım.

Konu hakkında sizlerin yardımına minnet duyduğumu belirtir, Yardımlarınızı bekliyorum.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
admin' Alıntı:
Kodlarda, sayfanın rename edilebilecek adları yerine Visual Basic tarafındaki kod adlarını kullanmak, olası sayfa adı değişikliklerine bağlı yaşanacak hataların önüne geçecektir.

Kodlama Yapısında Sayfa Adlarının Doğru Kullanımı makalesini okumanızı öneririm.
Genişletmek için tıklayın ...
Evet Sayfanıza hakimim okudum bilgilendirmeleri, sayfa adlarını ve gerekli yerlerde değişiklik yaptım ama kodlamada içindeki şartlar ve durumlardan kaynaklı malesef ki başarısız oldu. Öneriniz İçin Teşekkür ederim.
 
Oyla 0 Olumsuz oyla
@theorder

Son eklenen belgeyi incelemedim.
Listelemede tarih koşulunu kaldırmak için;
1) bas_trh = tak.[F2].Value2: bit_trh = tak.[G2].Value2 satırını silin
2) If t(ta, 1) = p(pa, 1) And t(ta, 2) >= bas_trh And t(ta, 2) <= bit_trh Then satırını If t(ta, 1) = p(pa, 1) Then olarak değiştirin.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt