• 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ü Bu haftanın günlerindeki kayıtları sayma hk. 2

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.
H

himmgarip

Excel Dostu
Katılım
27 Mar 2021
Mesajlar
797
Çözümler
96
Aldığı beğeni
883
Excel V
Office 2016 TR
Konu Sahibi
Öncelikle merhabalar. Önceki konu kilitli olduğundan dolayı buradan yeni konu ile devam etmek istedim.

Konunun en sonunda Refaz hocam bir vba kod ile yardımcı olmuştu. Kod pazar gününün kayıtlarını almıyor. Hafta geçince koddaki problemi görme şansım oldu.

1.png

1638807138464.png

Ek olarak burada sormak istediğim bir durum var;

Aşağıdaki kod ile bugün dahil bir haftalık kayıtları listeletiyorum.

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

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

filtreleme kriterine Refaz hocamın verdiği kodlardaki aşağıdaki bölümü kriter olarak entegre edebilirmiyiz?

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

Konu hakkında desteğinizi rica ederim. Saygılar.
 

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.
Çözüm
Refaz
Userformun en altına bir optionbutton ekledim ona tıklayın abey koduda alttaki gibi yaptım gereksiz if koşullatını sildim bir iki yerde.

Rowsource ile pek uğraşmadığım için bazen oluyor böyle.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Merhaba.
İlk eklediğiniz kodla olmaz sanırım.Yazdığım koda belki +1 eklenebilir sadece.
Önceki konuda formülde ve yazdığım kodda bir çıkarttığı için tam deneyememiştim doğru diye.
Yazdığım kodun tamamını bir ekleyin mobilden bakayım.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Merhaba.
İlk eklediğiniz kodla olmaz sanırım.Yazdığım koda belki +1 eklenebilir sadece.
Önceki konuda formülde ve yazdığım kodda bir çıkarttığı için tam deneyememiştim doğru diye.
Yazdığım kodun tamamını bir ekleyin mobilden bakayım.
Genişletmek için tıkla...

Refaz hocam kodu denemelerle çalıştırdım biraz önce.
1638818416652.png

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

Önceki kodu (BENİM EKLEDİĞİM) koşula bağlı çalıştırıyorum.

Aşağıdaki gibi ob_discekim isimli option button seçiliyse bu kodu çalıştır, ob_diger isimli option button seçiliyse diğer kodu çalıştır gibi. Sizin yazdığınız kodu bu araya alamadım.


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

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

Burada problem yaşadım.
 
Olumlu oy 0 Negatif oyla
Eklediğim sanıyorum commandButton içindeydi.
Son eklediğiniz kodu bu haliyle bir sub içine alın ve optiona o sub adını yazın sadece.
Birde alttaki say +1 olarak deneyin emin değilimim.Yarın birde ben bakarım unutmazsam.

Range("A2").Resize(say, UBound(arr, 2)).Value = arr
 
Olumlu oy 0 Negatif oyla
Userformun en altına bir optionbutton ekledim ona tıklayın abey koduda alttaki gibi yaptım gereksiz if koşullatını sildim bir iki yerde.

Rowsource ile pek uğraşmadığım için bazen oluyor böyle.

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

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
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst