Makro Yavaş Çalışma sorunu ?

[ikikan]

If Range("A1").Value = 2 Then
Set Sh = Sheets("VF")
BOS = Sheets("HES").ListBox1.ListIndex + 5
For X = 2 To 256
Sheets("HES").Range("AJ" & X).Value = Sh.Cells(BOS, X).Text
Next
End if

Acaba nede makro altaki makroya göre çok yacaş calışıyor?

If Range("A1").Value = 3 Then
Set Sh = Sheets("VD")
BOS = Sheets("HES").ListBox1.ListIndex + 5
For X = 2 To 256
Sh.Cells(BOS, X).Value = Range("BJ" & X).Text
Next
End if

 

[ExcelF1]

Eklediğiniz bu satırlar dışında, modülde başka kod yok değil mi ?

 

[ikikan]

Eklediğiniz bu satırlar dışında, modülde başka kod yok değil mi ?

Var, tüm çalışmayı buraya koyuyorum bir sebepten kod kasıyor. Ben bulamıyorum..


Çalışma EXCEL 2007 ve üstüdür..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linki inceleyiniz.

listboxtan hücreye veri aktarırken daha hızlı nasıl olur

 

[ikikan]

Korhan bey çok teşekürler ..