listboxdaki veriyi hücreye yazdırma

[akavak]

Merhaba

Private Sub CommandButton3_Click()

Sheets("taslak").Select
Cells(1, 1) = ListBox1
Cells(2, 1) = ListBox2
Cells(3, 1) = ListBox5
Cells(4, 1) = ListBox4
End Sub


butona basıldığında 4 ad listbox da seçilmiş yazıları taslak sayfasında hücrelere yazdırıyorum.
Ama bu işlem bayağı yavaş oluyor.
yardım eder misiniz lütfen.

 

[Ferhat Pazarçevirdi]

Bunun için olası birçok neden olabilir.

Belki, değerini değiştirdiğiniz hücre, Worksheet'in bir olayını tetikliyordur. Değer değişince tetiklenen olaylar bitirilmeden, koduzun geri kalan kısmı çalıştırılmaz.

Belki de, dosyanızda, kodlarla birlikte kullandığınız çok sayıda formül veya koşullu biçimlendirme olabilir. Bu durumda, etkilenen hücrelerdeki tüm hesaplamalar tamamlanmadan, kodunuzun geri kalan kısmı çalıştırılmaz.

Kodunuza şunları ilave ederek tekrar çalıştırmayı deneyiniz.

Private Sub CommandButton3_Click()
    
[COLOR=red]    With Application
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With[/COLOR]
    
    Sheets("taslak").Select
    Cells(1, 1) = ListBox1
    Cells(2, 1) = ListBox2
    Cells(3, 1) = ListBox5
    Cells(4, 1) = ListBox4
 
[COLOR=red]    With Application
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With[/COLOR]
    
End Sub

.

 

[akavak]

Ferhat bey
userformu yeni oluşturdum fazla çalışan bir şey yok. Ama bu kodlarla hızlandı.

Teşekkür ederim.

 

[serendal]

selam
bende listboxtaki verileri ilgili sayfaya aktarmak istiyorum.

ekte dosyayı gönderiyorum.

listbox2 ye eklenen verileri sayfa2 de a1 hücresinden başlayarak sırayla aşağıya doğru yazdırmak istiyorum
yardımcı olabilirmisiniz?