excel veri kopyalama

[gkrkc]

arkadaşlar çok acemiyim bu konuda yardımcı olabilen olursa çok sevinirim.

yapmak istediğim şey EAE listesindeki B sutunundaki değerlerin karşılığı EAE Güncel listesindeki Eski kod sutununda var.

EAE listesindeki değerlerin karşısına diğer listedeki YENİ KOD sutununda yer alan karşılıkları gelsin istiyorum sağda boş bir sutunda. dosyalar aşağıdaki linkte yapabilen olursa çok sevinirim teşekkürler.

 

[gkrkc]

arkadaşlar çok basit birşeymiş beceremedim yardımcı olabilecek yokmu acil biraz kusuruma bakmayın :s

 

[Murat OSMA]

Çok basit bir şey olduğunu kim söyledi ? :dusun:

 

[gkrkc]

inceledim biraz çünkü yapamadım sutunları secip bir formul seciliyor sadece o kadar karmasık olmasa gerek bir kısmını kopyalamadı bende sorunum o ztn

 

[Murat OSMA]

Hmmm :dusun: anladım..

Şu konulara bakabilirsiniz;
http://www.excel.web.tr/f117/kapaly-dosyadan-d-eyara-vlookup-kullanymy-t864.html
http://www.excel.web.tr/f48/kapaly-dosyadan-du-eyara-t122180.html

 

[Emir Hüseyin Çoban]

. . .

Aktarması 15 dk. civarı sürüyor. :dusun:
2 tablo aynı klasör içinde olmalı.

Sub KOD()
    Dim Con As Object, Rs As Object, Sorgu As String, i As Integer
    Set Con = CreateObject("Adodb.Connection")
    Set Rs = CreateObject("Adodb.RecordSet")
    Range("G2:G65536").ClearContents

        Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        ThisWorkbook.Path & "\EAE KOD GÜNCELLEME ÇALIŞMASI.xlsx" & ";extended properties=""excel 12.0;hdr=yes"""
        For i = 2 To Range("B65536").End(3).Row
            Sorgu = "Select [Yeni Kod] from [KOD$] where[Eski Kod]=" & "'" & Cells(i, "B") & "'"
            Rs.Open Sorgu, Con, 1, 1
             Cells(i, "G").CopyFromRecordset Rs
            Rs.Close
        Next i
        Con.Close
    Set Con = Nothing: Set Rs = Nothing: Sorgu = "": i = Empty
End Sub

. . .