Diğer açık kitaptan veri almak.

[daali]

Selamlar,İki tane çalışma kitabım var.Kitap10 un B,C,D,E, sutununa, Kitap 20 deki B,C,D,E sutunundaki verileri almak istiyorum.Tüm bunlar A sutunundaki verileri karşılaştırıp yapıyor olacak.
Saygılarımla.
not:satır sayısı yak.38000.dir.Biraz hızlı makro olabilmeli..

 

[Orion1]

Kitap10
dosyasına boş bir modüle aşağıdaki kodları yazınız.
Yalnız her 2 dosyanında açık olması lazım.

Sub aktar()
Dim i As Long, j As Byte
For i = 1 To Cells(65536, "A").End(xlUp).Row
    Set k = Workbooks("Kitap20 ref.xls").Sheets("Sayfa1").Range("A1:A65536").Find(Cells(i, "A").Value, LookIn:=xlValues, lookat:=xlWhole)
    If Not k Is Nothing Then
        For j = 2 To 4
            Cells(i, j).Value = Workbooks("Kitap20 ref.xls").Sheets("Sayfa1").Cells(k.Row, j).Value
        Next j
    End If
Next i
MsgBox "AKTARMA YAPILDI"
End Sub

 

[arol11]

Çok selamlar sayın Sezar,
Bu konu ile ilgili olarak benimde bir sorum olacak.Eğer kapalı bir dosyadan veri almak istersek ,ne yapmamız lazım.Sanırım dosya yolu ilkin bilinmeli.C:\Documents and Settings\Cafe\Belgelerim\kitap20.xls gibi değilmi.Bu durumda kodlar nasıl olmalı.

 

[Orion1]

Çok selamlar sayın Sezar,
Bu konu ile ilgili olarak benimde bir sorum olacak.Eğer kapalı bir dosyadan veri almak istersek ,ne yapmamız lazım.Sanırım dosya yolu ilkin bilinmeli.C:\Documents and Settings\Cafe\Belgelerim\kitap20.xls gibi değilmi.Bu durumda kodlar nasıl olmalı.

Merhaba.
Bunun için yeni bir topic açınız.
Cevaplandıran arkadaşlar ve üstadlar çıkacaktır.

 

[arol11]

Tammam ,teşekkür ederim sayın Sezar.