• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
O

OğuzTürkyılmaz

Yeni Üye
Katılım
12 Eyl 2021
Mesajlar
263
Çözümler
1
Aldığı beğeni
31
Excel V
Office 365 TR
Konu Sahibi
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.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Muayene Bitiş.pngScreenshot_1.png
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
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.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Ekli dosyayı görüntüle 8430Ekli dosyayı görüntüle 8431
Genişletmek için tıkla...
Merhabalar,
Aşağıdaki kod ile yapılabilir ancak msgbox karakter limiti olduğu için hepsini göstermeyebilir.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
işsiz123' Alıntı:
Merhabalar,
Aşağıdaki kod ile yapılabilir ancak msgbox karakter limiti olduğu için hepsini göstermeyebilir.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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...
Forum sonuç.png
 
Olumlu oy 0 Negatif oyla
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...
Merhaba tekrar eden kısmı neye göre baz alacak plaka mı araç tipine göre mi
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
işsiz123' Alıntı:
Plakayı baz alarak tekrarları kaldırdı.

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

Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.
Genişletmek için tıkla...
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.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
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.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Merhaba, cevap yazmayı unutmuşum kb.
xlFilterThisWeek yazılan yer değiştiriseniz aşağıdaki görevleri yapmaktadır.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
işsiz123' Alıntı:
Merhaba, cevap yazmayı unutmuşum kb.
xlFilterThisWeek yazılan yer değiştiriseniz aşağıdaki görevleri yapmaktadır.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Hocam koddan dönen sonucu resimde görebilirsiniz. Benim almak istediğim sonuç excel açıldığında açıldığı günden itibaren 7 günlük sonucu vermesi. Bu kodda dönen değerler ise açıldığı tarihin içinde bulunduğu hafta. Yani dün ve evvelsi günüde gösteriyor. Benim geçen günlerle işim bitmiş oluyor ben bugün ve sonrasındaki 6 gün ilgilendiriyor. Ben bugünü ve bugünden sonraki 6 günü listelemek istiyorum. Sizi uğraştıryorum kusuruma bakmayın.Message box.png
 
Olumlu oy 0 Negatif oyla
Konu Sahibi

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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...
Teşekkür ederim Sn.Excelcan hata giderildi.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst