Farkı Excel çalışma Kitabından veri alma

[kontto]

Arkadaşlar ekte gönderdiğim dosyanın içinde iki adet excel çalışma safası var. Sizden istediğim yardım. Ana sayfa adlı çalışma kitabının H3 satırına İLİ yazdığım zaman isim listesi adlı excel çalışma safasında bulunun ilin karşındaki ismin ve bilgilerinin aktarılmasını istiyorum. Yardımınız için şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

AnaSayfa dosyasının Sayfa1'in kod bölümüne aşağıdaki kodları kopyalayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
'Microsoft ActiveX Data Object 2.X Library seçili olmalıdır.
    If Intersect(Target, [H3]) Is Nothing Then Exit Sub
 
    Dim Yol     As String
    Dim i       As Long
    Dim DB      As ADODB.Connection
    Dim RS      As ADODB.Recordset
    Dim SQLStr  As String
 
    On Error GoTo Son
    Application.ScreenUpdating = False
    i = Cells(Rows.Count, "A").End(3).Row + 1
 
    Range("A2:E" & i).ClearContents
 
    Set DB = New ADODB.Connection
    Yol = ThisWorkbook.Path & Application.PathSeparator & "isim listesi.xls"
    DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & Yol
 
    Set RS = New ADODB.Recordset
    RS.CursorLocation = adUseClient
    RS.CursorType = adOpenDynamic
    RS.LockType = adLockOptimistic
    SQLStr = "SELECT * FROM [Sayfa1$] WHERE [İL] = '" & Target.Value & "'"
    RS.Open SQLStr, DB, 1, 3
 
    Range("A2").CopyFromRecordset RS
 
Son:
        DB.Close
        Set DB = Nothing
        Set RS = Nothing
 
    Application.ScreenUpdating = True
 
End Sub

 

[kontto]

Necdet bey özür dilerim. Denedim ama hata veriyor.

 

[Necdet]

Merhaba,

Sanırım söylemeyi unuttum, iki dosya da aynı dizinde olmalı.

 

[kontto]

Necdet bey iki dosyada aynı dizinde

Dim DB As ADODB.Connection

hatayı yukarıdaki kodda veriyor

 

[Necdet]

Necdet bey iki dosyada aynı dizinde

Dim DB As ADODB.Connection

hatayı yukarıdaki kodda veriyor

Merhaba,

Hata vermesi doğal, VBA da referanslardan Microsoft ActiveX.... diye başlayan referansın kullanılması gerekiyor. Bunu kod içinde açıklama olarak koymuştum.

Tam adını bulup en yüksek sürümünü seçiniz. Sonra sıkıntı kalmaz, çalışır