Çözüldü Listbox Seçimli İki Tarih Aralığına Göre Çoklu Rapor Revizesi3

[DataMaestro]

Merhabalar Değerli ExcelCozum.Com kullanıcıları,

Ekteki çalışmanın rapor sorgusunda sıkıntı yaşıyorum. Rapor sorgusu Sn. Adnan bey ve sn.ubak'ın değerli yardımları ile oluşturulmuştur.
Manuel olarak oluşturulan örnek çalışmanın mdlSorgu isimli modülündeki kodlar gayet güzel çalışmaktadır.
Veritanabı olarak kullandığım 7 adet sayfa verileri, farklı sistemden otomatik olarak almaktadır.
Bu seble koşul olarak aldığım Giriş Tarihi sütunlarında tarih formatı ile ilgili sıkıntı yaşıyorum.
İki tarih aralığı ve seçilen sayfaların raporlarını oluşturabilmek için mevcut kod nasıl revize etmeliyim.
Benim için çok değerli olan yardımlarınızı rica ederim.

Saygılarımla,

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.

 

[Refaz]

Merhaba.
Kodda yanlışlıklar var.
On error resume next yapıldığı için farkedilmiyor ama hatalı.

Mesela Rs = Nothing yerine set Rs = Nothing olacaktı.

Alttaki gibi yapılmış
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Doğrusu

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Kod nasıl çalışıyor olamaz bende on error resume next kaldırınca ölçüt hatası verdi.

Sayfa8.Columns(1).NumberFormat = "@" olan yere kadar olanı alttaki gibi değiştirin ve diğer sorgularıda böyle düzeltin.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[DataMaestro]

Sayın Refaz,

Konuya gösterdiğiniz ilgi, yardım ve anlatım için size müteşekkirim.
Söyledikleriniz tamamen yapmama rağmen aşağıdaki satırı sarı renk işaretleyerek hata alıyorum.
ReDim c(1 To Rs.RecordCount, 1 To 1)
Maalesef kod bilgi sınırlı olduğu için nerede hata yaptığımı çözemiyorum.

Saygılarımla,

 

[Adnan]

Sn Omerullah kodlarınız doğrudur. Tarih alanlarının formatlanmasında problemler olduğu için çalışmıyordu. Gerekli düzenlemeyi yaptım

 

[Refaz]

Sayın Refaz,

Konuya gösterdiğiniz ilgi, yardım ve anlatım için size müteşekkirim.
Söyledikleriniz tamamen yapmama rağmen aşağıdaki satırı sarı renk işaretleyerek hata alıyorum.
ReDim c(1 To Rs.RecordCount, 1 To 1)
Maalesef kod bilgi sınırlı olduğu için nerede hata yaptığımı çözemiyorum.

Saygılarımla,

Rica ederim abey.
Anacak zaman bulup baktım.
Private Sub Workbook_Open() kodundaki Application.ScreenUpdating = False false yi true yapmalısınız en başta.

Ayrıca Adnan hoca kodlarda hata yok demiş ama 1 ve 4 numaralı mesajdaki kodları okla işaretledim.
En alttaki resim benimde hatalı dediğim idi ve üsttteki resimdede adnan hocanın hatayı düzeltmiş hali.

 

[DataMaestro]

Sayın Adnan Bey,

Ellerinize ve emeğinize sağlık. Konu amacına ulaşmıştır.
ALLAH sizden razı olsun.
Hakkınızı helal ediniz lütfen.

Saygılarımla,

 

[DataMaestro]

Sayın Refaz,

Ellerinize ve emeğinize sağlık. Anlatımlı çözüm öneriniz bana yeni şeyler öğrenmeme sebep olmuştur.
ALLAH sizden razı olsun.
Hakkınızı helal ediniz lütfen.

Saygılarımla,