Sıralama Sorunu!

[karaf]

Selamlar...

Aşağıya eklediğim çalışmamla ilgili bir sorunumu paylaşmak istedim. Dosyanın içinde sorunu ayrıntılı bir şekilde anlattım.

İlginiz için şimdiden teşekkürler...

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:6ee8d15ef4]Sub TMMFSIRALA()
Sheets("PUAN-DERECE").Select
[G11:H70].Sort Key1:=[H11], Order1:=xlDescending
[L11:M70].Sort Key1:=[M11], Order1:=xlDescending
For a = 1 To 60
Cells(a + 10, 9) = a
Cells(a + 10, 14) = a
Next
[G11:I70].Sort Key1:=[G11], Order1:=xlAscending
[L11:N70].Sort Key1:=[L11], Order1:=xlAscending
End Sub
[/vb:1:6ee8d15ef4]

 

[mustafa]

Levent beyin kodlarına aşağıdaki gibi ekleme yapınca sıralama işi daha hızlı yapılıyor.

Sub TMMFSIRALA()

Application.Calculation = xlCalculationManual

Sheets("PUAN-DERECE").Select
[G11:H70].Sort Key1:=[H11], Order1:=xlDescending
[L11:M70].Sort Key1:=[M11], Order1:=xlDescending
For a = 1 To 60
Cells(a + 10, 9) = a
Cells(a + 10, 14) = a
Next
[G11:I70].Sort Key1:=[G11], Order1:=xlAscending
[L11:N70].Sort Key1:=[L11], Order1:=xlAscending

Application.Calculation = xlCalculationAutomatic

End Sub

 

[karaf]

Sayın leventm ve mustafa,

Efendim verdiğiniz bilgiler için çok teşekkür ederim...

Çok hoş oldu ve kurtuldum o destansı makrodan..

Saygılarımla...