İki Tarih Arası veri Listeleme

fehdur

Altın Üye
Katılım
26 Eylül 2020
Mesajlar
73
Excel Vers. ve Dili
excel 2019 pro.Türkçe
Ekli dosyada sayfa 5 deki veriler userformda bulunan Textbox 1 ve 2 ye girilen tarih aralıklarında süzülerek listbox1 de listelenecektir.Yardımcı olacak arkadaşa Teşekkür ederim
 

Ekli dosyalar

Erdem_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,360
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
Merhaba,

Listbox kolon ayarlarını yaptıktan sonra aşağıdaki kodu commandbutton'lardan birinin click özelliğini ekleyin.

Kod:
Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select * from[sayfa5$] where [SÖZ#TARİHİ] between " & CLng(CDate(TextBox1.Value)) & " and " & CLng(CDate(TextBox2.Value)) & " "
Set rs = con.Execute(sorgu)

ListBox1.Column = rs.getrows

rs.Close
Set rs = Nothing
Set con = Nothing
 

fehdur

Altın Üye
Katılım
26 Eylül 2020
Mesajlar
73
Excel Vers. ve Dili
excel 2019 pro.Türkçe
ListBox1.ColumnCount = 8
kolon ayarları olarak yukardaki kodu ilave ettim ancak çalışmadı.--------Set rs = con.Execute(sorgu)--------satırı hata verdi.
 

fehdur

Altın Üye
Katılım
26 Eylül 2020
Mesajlar
73
Excel Vers. ve Dili
excel 2019 pro.Türkçe
Tamamdır.Çok Teşekkür ederim.Arşiv için güzel bir örnek oldu.
 

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
385
Excel Vers. ve Dili
OFFICE 2010 Tr
Rica ederim. iyi çalışmalar...
 

Erdem_34

Destek Ekibi
Destek Ekibi
Katılım
4 Mayıs 2007
Mesajlar
3,360
Excel Vers. ve Dili
OFİS 2013 TÜRKÇE-İNG. 64 BİT
Ben hata almadım. Kodda sorun yok.
 
Üst