Farklı bir dosyadan koşullu veri almak

[vivident]

Merhaba

İki adet dosyam var
* Aktarılacak dosya
* Veri dosyası

----------------------

Aktarılacak dosyasının, kontrolpaneli sayfasında bulunan listden bir rakam seçilecek. Bu rakam veri dosyası sayfasının C sutununda bulunan rakamlarla eşlesen satırların tümünü, aktarılacak dosya içindeki liste sayfasına yapıştırılacak

Yardımcı olabilirmisiniz ?

Şimdiden teşekkür ederim

 

[Orion1]

Her 2 dosyada ayni klasörde olmalıdır.
Dosya ektedir.

Sub db59()
Dim conn As Object, rs As Object, dosya As String
dosya = ThisWorkbook.Path & "\veridosyası.xlsx"
Sheets("LISTE").Range("A2:C" & Rows.Count).ClearContents
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RECORDSET")
conn.Open "Provider=microsoft.ace.oledb.12.0;data source=" & dosya & ";extended properties=""excel 12.0;hdr=yes;imex=1"";"
'rs.Open "select * from [SECENEK$] where SAYI=" & Range("F1").Value & ";", conn, 1, 1
'hepsini alması için aşağıdaki koddaki gibidir.
rs.Open "select * from [SECENEK$];", conn, 1, 1
'aşağıdakide F1 hücresi yerine E1 hücresindeki değeri sorguluyor.
'rs.Open "select * from [SECENEK$] where SAYI=" & Range("E1").Value & ";", conn, 1, 1
Sheets("LISTE").Range("A2").CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
Sheets("LISTE").Select
MsgBox "İşlem Tamamlanmıştır." & vbLf & _
    "evrengizlen@hotmail.com", vbOKOnly + vbInformation, Application.UserName

End Sub

 

[vivident]

Hocam büyüksün, çok teşekkür ederim

 

[Orion1]

Özel mesajdan sorduğunuz soruda sorgu olmadan verilerin hepsini nasıl alacağınızı sormuştunuz.Önceki dosyada yaptım.
diğer sorunuzun kodunuda kodların için de yazdım.
Diğer sorunuzda F1 değilde başka bir hücreden sorguyu almaktı.