Sql kodundaki tarih kısıtını excel hücresinden alma

[unalh]

Bu kodları deneyiniz.

Dim EVN As String
EVN = "SELECT SUM(TBLMCEK.TUTAR)"
EVN = EVN + " FROM TBLMCEK INNER JOIN TBLBNKHESSABIT ON TBLBNKHESSABIT.NETHESKODU=TBLMCEK.SC_VERILENK WHERE TBLMCEK.VADETRH <'" + Format$(Sayfa1.Cells(2, 9), "yyyy-mm-dd") + "'"
EVN = EVN + " AND TBLMCEK.SC_SONDUR='" & Sayfa1.Cells(3, 9).Value & "'"
EVN = EVN + " AND TBLBNKHESSABIT.ACIKLAMA='" & Sayfa1.Cells(4, 9).Value & "'"
EVN = EVN + " GROUP BY TBLBNKHESSABIT.ACIKLAMA "

Sayfa1 9.sütunun 2.satırına tarihi yazınız.

<'" + Format$(Sayfa1.Cells(2, 9), "yyyy-mm-dd") + "'"

Sayfa1 9.sütunun 3.satırına durumunu yazınız.

" & Sayfa1.Cells(3, 9).Value & "'"

Sayfa1 9.sütunun 4.satırına Açıklama kısmını yazınız.

'" & Sayfa1.Cells(4, 9).Value & "'"

Bu şekilde istediğiniz değişiklikleri hızlı bir şekilde yapabilirsiniz.

 

[freespirit]

Hala ilgilenen varsa hiç listbox veya makro kullanmadan yapılabiliyor.

Veri / Diğer kaynaklar / microsoft query'den oluşturmanız gerekiyor.
Query editör açıldığında burda ölçüt ekle diyebiliyoruz.
Ekleyince parametre aktif hale geliyor.
parametre seçeneğinden hücreye atayabiliyorsunuz.
query'e
"where TARIH Between (?) And (?)
"

şeklinde yazıyorsunuz.

Ve tablo şeklinde import etmek gerekiyor. içinde sum gibi bir fonksiyon kullanılan sorgular çalışmıyor.