MAKRO İLE YAPTIĞIM TARİH ARALIĞI SÜZME İŞLEMİNİ USERFORMA TANIMLADIĞIMDA ÇALIŞMIYOR, YARDIMCI OLABİLİR MİSİNİZ

[bkk]

Merhabalar,
Ekte iletmiş olduğum Excel kitabının "Kayıtlar" sekmesinde "Kayıt oluştur" butonuna tıkladığımda açılan "girişler" sayfasında,
"İki tarih aralığı" isimli makro yine "Kayıtlar" sayfasında "J1" ve "J2" hücrelerine yazılmış olan iki tarih aralığını süzüyor,
Ancak userform2'ye tanımladığım "rapor al" butonuna "Call ikitariharası" komutunu ekleyip çalıştırdığımda süzmüyor, yardımcı olabilir misiniz?

 

[Trilenium]

Çünkü Multipage kullanıyorsunuz, denetim altına almalısınız.

Aşağıdaki kod,

Çıkışlar sayfasına geçildiğinde Çıkışlar sayfasındaki textboxlara göre çalışacak, eğer Girişler Sayfasına göre geçerse ona göre çalışacak.

If Me.MultiPage1.SelectedItem.Caption = "Ç ı k ı ş l a r" Then
Sheets("Kayitlar").[J1] = TextBox3.Value
Sheets("Kayitlar").[J2] = TextBox4.Value
Call ikitariharasi
Else
Sheets("Kayitlar").[J1] = TextBox3.Value
Sheets("Kayitlar").[J2] = TextBox4.Value
End If

 

[bkk]

Teşekkür ediyorum , ama yine çalışmadı

 

[Trilenium]

Bende çalışıyor

Aşağıda yer alan kodu tekrar dener misiniz.




If Me.MultiPage1.SelectedItem.Caption = "Ç ı k ı ş l a r" Then
Sheets("Kayıtlar").[J1] = TextBox3.Value
Sheets("Kayıtlar").[J2] = TextBox4.Value
Call İKİTARİHARASI
Else
Sheets("Kayıtlar").[J1] = TextBox3.Value
Sheets("Kayıtlar").[J2] = TextBox4.Value
End If

 

[bkk]

Teşekkür ederim , ben tarihi nokta ile ayırdığım için süzme yapmamış , örnekteki gibi denediğimde çalıştı

 

[Trilenium]

Rica ederim. Kolay gelsin