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

Altın Üye
Katılım
30 Aralık 2019
Mesajlar
183
Excel Vers. ve Dili
Ofis 2019
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?
 

Ekli dosyalar

Trilenium

Destek Ekibi
Destek Ekibi
Katılım
16 Eylül 2008
Mesajlar
1,052
Excel Vers. ve Dili
Microsoft Office 2019 English
Çü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

Altın Üye
Katılım
30 Aralık 2019
Mesajlar
183
Excel Vers. ve Dili
Ofis 2019
Teşekkür ediyorum , ama yine çalışmadı :(
 

Trilenium

Destek Ekibi
Destek Ekibi
Katılım
16 Eylül 2008
Mesajlar
1,052
Excel Vers. ve Dili
Microsoft Office 2019 English
Bende çalışıyor

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

222067


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

Altın Üye
Katılım
30 Aralık 2019
Mesajlar
183
Excel Vers. ve Dili
Ofis 2019
Teşekkür ederim , ben tarihi nokta ile ayırdığım için süzme yapmamış , örnekteki gibi denediğimde çalıştı
 

Trilenium

Destek Ekibi
Destek Ekibi
Katılım
16 Eylül 2008
Mesajlar
1,052
Excel Vers. ve Dili
Microsoft Office 2019 English
Rica ederim. Kolay gelsin
 
Üst