Soru Sütun aktarma kodu

[sirkülasyon]

Sheets("Yüklenici").Columns(2).Copy Destination:=Sheets("Ödeme").Columns(2)
Sheets("Yüklenici").Columns(3).Copy Destination:=Sheets("Ödeme").Columns(3)
Sheets("Yüklenici").Columns(4).Copy Destination:=Sheets("Ödeme").Columns(4)
Sheets("Yüklenici").Columns(7).Copy Destination:=Sheets("Ödeme").Columns(5)
Sheets("Yüklenici").Columns(8).Copy Destination:=Sheets("Ödeme").Columns(6)
Sheets("Yüklenici").Columns(14).Copy Destination:=Sheets("Ödeme").Columns(7)
Sheets("Yüklenici").Columns(15).Copy Destination:=Sheets("Ödeme").Columns(8)

Yukarıda ki kod yapısını herhangi bir döngüye bağlanarak hızlandırılması mümkün müdür?

 

[Orion1]

Döngüye bağlanarak hızlı çalışma sağlanamaz.Ancak koddaki satır sayısı azalır.

 

[sirkülasyon]

Evren abi
7 sütun için döngü uygun değilse ve 7 sütun da aktarılması gerekiyor ise en hızlı şekilde nasıl aktarabiliriz?
birinci mesajda ki kod ile "Excel yanıt vermiyor" hatası alıyorum ve excel kapanıyor.

 

[Orion1]

Maalesef bu konuda bir fikrim yok.

 

[Orion1]

Kodlarınızda on error resume next komutu varsa onu iptal edin ve hatalı kodu tesbit edin.

 

[Korhan Ayhan]

Sütun olarak kopyalamak yerine hücre aralığı vererek kopyalamayı deneyiniz. Bütün sütun dolu değildir diye düşünerek bu cevabı paylaştım. Exceli yormaya gerek yok. İhtiyaca göre hareket etmek gerekir. Ayrıca eğer ihtiyacınızı görürse verileri değer olarak aktarmak belki işleme hız kazandırabilir.

Örnek;

Sheets("Hedef Sayfa").Range("A1:A100").Value = Sheets("Kaynak Sayfa").Range("A1:A100").Value

 

[sirkülasyon]

Korhan abi
Teşekkür ederim