2 alana göre gelişmiş süz yaptırmak ?

[sherlockholmes]

Merhaba Arkadaşlar ,

Tablomda sütunlar ve isimleri şöyle ;

1. sütun - tarih
2. sütun - ad
3. sütun - soyad
4. sütun - yas
5. sütun - maas
6. sütun - sehir

Yapmak istediğim işlem ; belirttiğim tarihe ve belirttiğim maas değerine sahip kişilerin sehir bilgilerini farklı bir çalışma kitabına kopyalamak.

Otomatik süz ile makroları kullanmayı denediğimde hata verdi. Forumdaki tarama sonucunda otomatik süz kullanılması gerektiğini öğrendim fakat tam olarak çözemedim. Dosyaya bakarsanız anlatmak istediğim daha iyi ifade edebileceğim.

Önerilerinizi bekliyorum. Teşekkürler..

 

[Zeki Gürsoy]

Merhaba,

Otomatik süz, kullanılabilecek metotlardan sadece biri. Bu başlık tam size göre.

Veri tabanından seçilen kriterlere göre sorgulama

 

[sherlockholmes]

Zeki bey teşekkürler , hemen bakıyorum.

Kolay gelsi.n

 

[Zeki Gürsoy]

Ben genelde ADO kullanırım.

Private Sub CommandButton1_Click()
    Call Suzgec(TextBox1, TextBox2)
End Sub

Private Sub Suzgec(d As Date, m As Double)
Dim cn As Object, rs As Object

Set cn = CreateObject("ADODB.Connection")

cn.Open _
"DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & _
    ThisWorkbook.FullName
    
Set rs = cn.Execute( _
    "select sehir from [Sayfa1$] " & _
    "where tarih = " & CLng(CDate(d)) & _
    " and maas = " & m)


Sheets("Sayfa3").[a2].CopyFromRecordset rs

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing
End Sub