Kaynak Dosyadan Veri Getirme

[abazya]

Merhaba,
şöyle bir şey yapmak istiyorum.Tutanaklar dosyasındaki “E” Sütununa stok no girildiğinde Kaynak dosyasındaki stok noya denk gelen (B sütunu) ismin Tutanaklar dosyasının “N” sütununa yazdırılması. Mümkün müdür?

 

[Merhum İdris SERDAR]

.

=VLOOKUP(E2;'[COLOR="Red"][B]C:\karalama\[/B][/COLOR][kaynak.xls]ViewCurrentNeeds'!$A$3:$B$5506;2;0)

VLOOKUP=DÜŞEYARA

Kırmızı yeri kaynak dosyanızın yer alacağı yere göre değiştirin.

.

 

[abazya]

Sayın yurttaş teşekkürler, elinize sağlık.

 

[Orion1]

Bende ado ile yaptım.
Kaynak dosyası kapalı olabilir.Açmadan ado ile aldım veriyi.
Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim conn As Object, rs As Object
If Intersect(Target, Range("E2:E" & Rows.Count)) Is Nothing Then Exit Sub
Target.Offset(0, 9).ClearContents
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
conn.Open ("provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _
        "\kaynak.xls;extended properties=""excel 8.0;hdr=no;imex=1"";")
Set rs = conn.Execute("select count (F1) from [ViewCurrentNeeds$A3:B65536] where F1=" & _
        Target.Value & ";")
If rs(0).Value < 1 Then
    Set rs = Nothing
    Else
    Set rs = Nothing
    Set rs = conn.Execute("select F1,F2 from [ViewCurrentNeeds$A3:B65536] where F1=" & _
            Target.Value & ";")
    Target.Offset(0, 9).Value = rs(1).Value
    Set rs = Nothing
End If
conn.Close
Set conn = Nothing
End Sub

 

[abazya]

Kaynak dosyası kapalı olabilir.

Buda güzel, buda başka bir alternatif neden olmasın.
Sayın Orion1 emeğiniz için size de teşekkür ederim.