Ado ile veri çekme

[hamitcan]

Arkadaşlar merhaba,
Ado yardımıyla Rapor sayfasında verdiği kriterlere göre arama yapmak istiyorum. Şimdiden teşekkür ederim.

 

[Erdem Akdemir]

Hamit bey aşağıdaki kodu kullanabilirsiniz.
Kod ve Kod2 'nin sayı-metin özelliğine dikkat etmek lazım.

Sub bul()

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 Isim from[Data$] where kod = '" & Range("A2") & "' and Kod2= '" & Range("B2") & "' "
Set rs = con.Execute(sorgu)

Range("c2").CopyFromRecordset rs

End Sub

 

[hamitcan]

Teşekkür ederim Erdem Bey, esas listeye uyarlamaya çalışıyorum.

 

[hamitcan]

Erdem Bey tekrar teşekkürler, gayet güzel çalışıyor.