Listbox'tan Excele Veri Aktarmayı Hızlandırma

[deniz42]

Arkadaşlar, Bu kod çok yavaş nasıl hızlandırabilirim.

For i = 0 To Me.ListBox1.ListCount - 1
'Range("a65536").End(3)(2, 1) = Me.ListBox1.List(i, 0) 
'Range("a65536").End(3)(1, 2) = Me.ListBox1.List(i, 5) 
'Range("a65536").End(3)(1, 3) = Me.ListBox1.List(i, 2) 
'Range("a65536").End(3)(1, 4) = Me.ListBox1.List(i, 6)
'Range("a65536").End(3)(1, 5) = Me.ListBox1.List(i, 4)
'Next i

 

[askm]

Örnek dosya ekleyebilir misiniz.

 

[deniz42]

Örneği gönderemiyorum doya ekle bölümü çıkmıyor.

 

[deniz42]

Burada yapmak isteğim şey listbox'taki verileri excel sayfasına aktarma bu vermiş olduğum kod sıra sıra satır satır atıyor ve çok uzun sürüyor. Benim istediğim ise listbox'taki hazır listeli bilgileri olduğu gibi anında aktarsın istiyorum.
Kodu hızlandırmaktaki amacım bu listbox'taki verileri anında excele aktarması vermiş olduğum kod satır satır atmakta.

Bu kodu seçmemdeki amaç ise listboxtaki istediğim sütunu istediğim excel sütununa sıralatmak.