- Katılım
- 25 Haziran 2023
- Mesajlar
- 92
- Excel Vers. ve Dili
- Microsoft Office 2019 / TR
Arkadaslar Merhaba,
ekteki dosyamda sayfalar arasında for dongusu ıle esıtleme yapıyorum fakat cok uzun suruyor bunu nasıl dusurebılırım tek dongu olarak
For i = 2 To Sayfa2.Range("F2").End(xlDown).Row
Sayfa1.Cells(i, 1) = Sayfa2.Cells(i, 3)
Sayfa1.Cells(i, 2) = Sayfa2.Cells(i, 6)
Sayfa1.Cells(i, 4) = Sayfa2.Cells(i, 8)
Sayfa1.Cells(i, 5) = Sayfa2.Cells(i, 9)
Sayfa1.Cells(i, 6) = Sayfa2.Cells(i, 12)
Sayfa1.Cells(i, 7) = Sayfa2.Cells(i, 13)
Next
https://s2.dosya.tc/server29/1341om/ORNEK.xlsm.html
ekteki dosyamda sayfalar arasında for dongusu ıle esıtleme yapıyorum fakat cok uzun suruyor bunu nasıl dusurebılırım tek dongu olarak
For i = 2 To Sayfa2.Range("F2").End(xlDown).Row
Sayfa1.Cells(i, 1) = Sayfa2.Cells(i, 3)
Sayfa1.Cells(i, 2) = Sayfa2.Cells(i, 6)
Sayfa1.Cells(i, 4) = Sayfa2.Cells(i, 8)
Sayfa1.Cells(i, 5) = Sayfa2.Cells(i, 9)
Sayfa1.Cells(i, 6) = Sayfa2.Cells(i, 12)
Sayfa1.Cells(i, 7) = Sayfa2.Cells(i, 13)
Next
https://s2.dosya.tc/server29/1341om/ORNEK.xlsm.html