Kesisen degerleri makro ile bulmak.

[vipereddy]

merhabalar. forumda aratttim ama bulamadim. Vlookup li macrolara bakmaya calistim onuda yapamadim.

Ektede gorulecegi uzere iki tane sheetim var. report ve data sheet. ornek olarak report sheette CIE0000RW01111 ve 21-01-2010 kesistigi yere data sheette ayni kod ve tarihin kesisti degeri getirmek istiyorum.

bu sheetler 12000 satir ve 800 kolondan olusuyor. (8milyon hucre) vlookup ile yapmaya calistim 4 saat bekledikten sonra patladi, hata verdi kapandi. umarim soruyu anlatabilmisimdir.

simdiden cok tesekkur ederim.

 

[hmtylcnky]

Samet Bey,

Aklıma şöyle bir çözüm geliyor;

data ve report sheetindeki kolon sayılarını ve sıralamalarını birbiri ile eşit şekilde yapıp aşağıdaki kodu yazarsanız sorunuza cevap olacağını düşünüyorum.

-----------------------------------------------------------------------
Sub Macro1()
For k = 1 To 11495
kodd = Sheets("report").Cells(k, 1).Value


For k2 = 4 To 9711
kodb = Sheets("data").Cells(k2, 1).Value
If kodd = kodb Then
For j = 2 To 754
plan = Sheets("data").Cells(k2, j).Value

Sheets("report").Cells(k, j).Value = plan



Next j

End If
Next k2
Next k
End Sub
--------------------------------------------------------------------------
Selamlar

 

[vipereddy]

cok tesekkurler saolun