Çözüldü Msg Box da Tarih kriterine göre sonuçları biçimlendirmek

OğuzTürkyılmaz' Alıntı:

Merhaba
Çalışmamda workbook open yordamına yazığım aşağıdaki kod ile MuayeneBitiş tarihi o gün olan araçları listeliyorum. Çözmem gereken 2 sorun var bu konuda birincisi Listelemeye çalıştığım sadece o gün değil bir haftalık periyottaki araçların listesini msgbox da yazdırmak. Yani koda date +7 gibi bir parametre verebilmek İkincisi aynı aracın listede bir defa oluşmasını sağlamak döngüden gelen sonuçlarda 1 kere yazdırıldı mı aynı aracın bir daha ekrana gelmemesini sağlamak. Yardımlarınız için teşekkür ederim.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Ekli dosyayı görüntüle 8430Ekli dosyayı görüntüle 8431

Genişletmek için tıkla...

işsiz123' Alıntı:

Merhabalar,
Aşağıdaki kod ile yapılabilir ancak msgbox karakter limiti olduğu için hepsini göstermeyebilir.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

OğuzTürkyılmaz' Alıntı:

Merhaba Sn.İşsiz öncelikle vakit ayırıp çözüm ürettiğiniz için teşekkür ederim. Karakter sınırını araştırdım 256 dan 1024 e çıkarılmış yeni versiyonlarda, bu da benim için yeterli. Kodun sonucunda resimde gözüktüğü gibi döngüden aynı sonuç tekrar tekrar message box da yer alıyor. Bu durumu nasıl engelleyebiliriz. Birde bugün ve bundan sonraki 7 gün içindeki sonuçları döndüren kod parçası neresi onu çözemedim. Vakit ayırdığınız için tekrar teşekkür ederim.

Genişletmek için tıkla...

OğuzTürkyılmaz' Alıntı:

Merhaba Sn.İşsiz öncelikle vakit ayırıp çözüm ürettiğiniz için teşekkür ederim. Karakter sınırını araştırdım 256 dan 1024 e çıkarılmış yeni versiyonlarda, bu da benim için yeterli. Kodun sonucunda resimde gözüktüğü gibi döngüden aynı sonuç tekrar tekrar message box da yer alıyor. Bu durumu nasıl engelleyebiliriz. Birde bugün ve bundan sonraki 7 gün içindeki sonuçları döndüren kod parçası neresi onu çözemedim. Vakit ayırdığınız için tekrar teşekkür ederim.

Genişletmek için tıkla...

işsiz123' Alıntı:

Plakayı baz alarak tekrarları kaldırdı.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.

Genişletmek için tıkla...

OğuzTürkyılmaz' Alıntı:

Hocam akşam eve geçince deneyip geri dönüş yapacağım bir sorum vardı kod ile ilgili. Dosya açıldığında o günün tarihi ve sonraki 6 günün yani bir haftalık sonuçları döndürmesi gerekiyordu kodunuzda BU kod parçacığımı sonucu döndüren. ThisWeek kısmı bu hafta demek ben bunu Aylık almak istersem xlFilterThisMounth dersem +30 günlük periyodumu döndürmüş olurum. yoksa içinde bulunulan ayımı 1-30 arası değerleri döndürür. Akşam deneyeceğim ama meraktan soruyorum. Tekrar teşekkürler.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

işsiz123' Alıntı:

Merhaba, cevap yazmayı unutmuşum kb.
xlFilterThisWeek yazılan yer değiştiriseniz aşağıdaki görevleri yapmaktadır.

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

işsiz123' Alıntı:

Kodlara ekte

Kod:

Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

Genişletmek için tıkla...

excelcan' Alıntı:

Sayın OğuzTürkyılmaz MuayeneTarihiHatirlat yordamına hangi sayfada işlem
yapılacaksa o sayfayı yazın. Ben dosyayı indirdiğimde 3. sayfa aktifti.
Hata verdi. Anladığım kadarıyla Policeler sayfasında filtreleme yapmak isyiyorsunuz.

Sheets("Policeler").Select
Range("A1").Select
Selection.AutoFilter

Genişletmek için tıkla...