- Katılım
- 23 Eylül 2004
- Mesajlar
- 91
Selamlar,
Aşağıdaki kod iki dosyanın aynı isimli sayfalarının ikincisinden aldığı değeri birincisinde arayıp bulduğunda ikincisindekinin karşısına yazdıran bir kod.
Fakat çok yavaş çalışıyor. (1 Saatten fazla) Daha hızlı çalışması için ne yapılabilir.
Teşekkürler.
Sheets("stok_hareketi").Activate
son_1 = 314
For i = 4 To son_1
a = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 2)
For j = 4 To son_1
b = Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 2)
If a = b Then
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 5) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 50)
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 6) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 51)
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 7) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 52)
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 8) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 53)
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 9) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 54)
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 10) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 55)
End If
Next j
Next i
Aşağıdaki kod iki dosyanın aynı isimli sayfalarının ikincisinden aldığı değeri birincisinde arayıp bulduğunda ikincisindekinin karşısına yazdıran bir kod.
Fakat çok yavaş çalışıyor. (1 Saatten fazla) Daha hızlı çalışması için ne yapılabilir.
Teşekkürler.
Sheets("stok_hareketi").Activate
son_1 = 314
For i = 4 To son_1
a = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 2)
For j = 4 To son_1
b = Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 2)
If a = b Then
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 5) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 50)
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 6) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 51)
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 7) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 52)
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 8) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 53)
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 9) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 54)
Workbooks("05_02_rapor_calismalari_1").Sheets("stok_hareketi").Cells(j, 10) = Workbooks("05_01_rapor_calismalari_1").Sheets("stok_hareketi").Cells(i, 55)
End If
Next j
Next i