Listview'den sayfaya veri aktarımı

[mehmet dur]

Merhabalar ekli dosyada listview1 den sayfaya veri aktarıyorum, kodlar çalışıyor ama bir dakika'dan daha uzun sürüyor. Daha hızlı aktarabilmem için yardımlarınızı bekliyorum.
https://s5.dosya.tc/server4/c34gav/Dosya_Aktar.xlsm.html

 

[mehmet dur]

Sheets("PÇS2").Select
With UserForm4.ListView1
Sheets("PÇS2").Range("B8:AF36").Select
Selection.ClearContents
For i = 1 To .ListItems.Count
Sheets("PÇS2").Cells(8, i + 1) = .ListItems(i).ListSubItems(1).Text
For e = 1 To .ColumnHeaders.Count - 1
Sheets("PÇS2").Cells(e + 7, i + 1) = .ListItems(i).ListSubItems(e).Text
Next e
Next i
End With

Arkadaşlar yukarıdaki kodların daha hızlı çalışabilmesi için nasıl bir düzenleme yapmam gerekir.

 

[Orion1]

Sheets("PÇS2").Select
With UserForm4.ListView1
Sheets("PÇS2").Range("B8:AF36").Select
Application.ScreenUpdating = False
Selection.ClearContents
For i = 1 To .ListItems.Count
Sheets("PÇS2").Cells(8, i + 1) = .ListItems(i).ListSubItems(1).Text
For e = 1 To .ColumnHeaders.Count - 1
Sheets("PÇS2").Cells(e + 7, i + 1) = .ListItems(i).ListSubItems(e).Text
Next e
Next i
Application.ScreenUpdating =true
End With

Arkadaşlar yukarıdaki kodların daha hızlı çalışabilmesi için nasıl bir düzenleme yapmam gerekir.

Yukraıdaki gibi deneyiniz.

 

[mehmet dur]

Merhaba orion 1
Cevabınız için teşekkür ederim, bu kodları işyerinde kullanıyorum ama mesaim bittiği için şuan deneme şansım yok. Eminim ki istediğim olmuştur. Şimdiden teşekkür.