DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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