dtpicker ile iki tarih arası filtre

[sanja2]

Merhaba arkadaşlar
Ekteki dosyada sorgula butonuna bastığımda açılan formda masraf cinsini seçtikten sonra dtpicker den seçtiğim iki tarih arasında olan verileri masraf cinsinin ait olduğu sayfadan alıp sorgu sayfasına tarih sırasına göre listelemesini istiyorum eğer istenen kriterlerde veri bulamazsada veri bulunamadı diye uyarı yazsın bu şekil filtreleme mümkünmü acaba ??? forumda bununla ilgili arama yaptım fakat bulduğum konularda eski tarihli olduğundan dosyalar silinmiş malesef Birde comboboxta formu açınca boş değilde "masraf cinsini seçiniz" ibaresi görünebilirmi? yardımcı olursanız çok sevinirim şimdiden teşekkürler...

 

[fedeal]

Merhaba kodlar aşagıda,

Private Sub CommandButton1_Click()
Set sf = Sheets(ComboBox1.Text)
fd = Sheets("sorgu").Range("a65000").End(xlUp).Row
For i = 2 To sf.Range("a65000").End(xlUp).Row
If sf.Cells(i, 1) >= DTPicker1.Value And sf.Cells(i, 1) <= DTPicker2.Value Then
son = Sheets("sorgu").Range("a65000").End(xlUp).Row + 1
For f = 1 To 3
 Sheets("sorgu").Cells(son, f).Value = sf.Cells(i, f).Value
 Next
 End If
Next
fd1 = Sheets("sorgu").Range("a65000").End(xlUp).Row
If fd1 > fd Then
MsgBox "aktarım tamam.", , "excel.web.tr"
Else
MsgBox "veri bulunamadı.", , "excel.web.tr"
End If
End Sub

Private Sub UserForm_Initialize()
DTPicker1 = Date
DTPicker2 = Date
ComboBox1.Text = "masraf cinsini seçiniz"
End Sub

iyi çalışmalar.

 

[sanja2]

Teşekkürler Fedeal Hocam.

Kodları form a ekledim fakat yeni girdiğim verileri görüp filtreleme yapmıyor anasayfadaki Form1 ile veri girişi yapıyorum bu veriler alta doğru yüzlerce satır olabilir bu sorgulamada girdiğim verileri tarihe göre listelemek istiyorum ama tüm verileri silip yeni veri yazdığımda veri bulunamadı diyor.Birde masraf cinsini seçmezsem hata veriyor bunun yerine "masraf cinsini seçin" diye uyarı vermesini sağlayabilirmiyiz.Son halini ekledim. Şimdiden Teşekkürler Hocam.

 

[fedeal]

Private Sub CommandButton1_Click()
If ComboBox1.Text = "masraf cinsini seçiniz" Then
MsgBox "MASRAF CİNSİNİ SEÇİNİZ", , "EXCEL.WEB.TR"
Exit Sub
End If
Set sf = Sheets(ComboBox1.Text)
fd = Sheets("sorgu").Range("a65000").End(xlUp).Row
For i = 2 To sf.Range("a65000").End(xlUp).Row
If sf.Cells(i, 1) >= DTPicker1.Value And sf.Cells(i, 1) <= DTPicker2.Value Then
son = Sheets("sorgu").Range("a65000").End(xlUp).Row + 1
For f = 1 To 3
 Sheets("sorgu").Cells(son, f).Value = sf.Cells(i, f).Value
 Next
 End If
Next
fd1 = Sheets("sorgu").Range("a65000").End(xlUp).Row
If fd1 > fd Then
MsgBox "aktarım tamam.", , "excel.web.tr"
Else
MsgBox "veri bulunamadı.", , "excel.web.tr"
End If
End Sub

Private Sub UserForm_Initialize()
DTPicker1 = Date
DTPicker2 = Date
ComboBox1.Text = "masraf cinsini seçiniz"
End Sub

Masraf cinsi seçiniz uyarısı ilave edildi.yeni eklenen verileri görmemesinin sebebi bu kodlar degil şimdi dogalgaz sayfasını açın 14.7.2009 tarihli hücreyi seçip enter tuşuyla çıkın şimdi dogalgaz sayfasını sorgulatın veriyi görecek.
buda formdan aktardıgınız veriler hücreye tarih formatında atılmadıgını gösteriyor.
cözümü userform1 deki

yer = WorksheetFunction.CountA(Worksheets(ad).Range("a1: a65000")) + 1
Worksheets(ad).Cells(yer, 1).Value = [COLOR="Red"]TextBox1.Text[/COLOR]
Worksheets(ad).Cells(yer, 2).Value = TextBox2.Text
Worksheets(ad).Cells(yer, 3).Value = TextBox3.Text
Sheets("Anasayfa").Select
MsgBox "VERİLER GİRİLDİ"

kırmızı olan textbox1.text kodunu datevalue(textbox1.text) olarak değiştirmek.
deneyin problem olursa tekrar bakalım ,saygılar.

 

[sanja2]

Çok teşekkür ederim Hocam

Dediğiniz gibi yaptım hiç bir problem olmadı Elinize sağlık tam istediğim gibi oldu iyi çalışmalar...