makro hızlandırma

[musa yüksel]

merhaba ,
örnekte ki gibi 24 adet makro yazdım , fakat veri sayısı artıkça çok yavaş çalışmaya başladı
önceden anında tepki veren makro şimdi 15 sn de tepki vermeye başladı
300 butonuna bastığımda aşağıda ki makro çalışıyor, makro da nasıl bir değişiklik yaparsam daha hızlı çalışmasını sağlayabilirim
teşekkürler

Sub ÜÇYÜZ3()
'
' ÜÇYÜZ3 Makro
'

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual


ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=4, Criteria1:="300"
Range("M1").Select
ActiveCell.FormulaR1C1 = "300"
Range("M2:M3").Select
Selection.ClearContents
Range("K4:K5").Select
Selection.ClearContents
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=5
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=6
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=14
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=15
Range("E1").Select

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
'
End Sub

 

[musa yüksel]

bir diğer karışık makro da aşağıda var

' HEPSİ3 Makro
'

'
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=1
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=3
ActiveWorkbook.Worksheets("LİSTE").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("LİSTE").AutoFilter.Sort.SortFields.Add Key:=Range( _
"B6:B1000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("LİSTE").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=4
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=5
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=6
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=7
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=9
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=14
ActiveSheet.Range("$A$6:$M$1000").AutoFilter Field:=15
Range("M1").Select
ActiveCell.FormulaR1C1 = "HEPSİ"
Range("M2:M3").Select
Selection.ClearContents
Range("K4:K5").Select
Selection.ClearContents
Range("E1").Select

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True


End Sub

 

[musa yüksel]

sorunu buldum ama çözümü bulamadım yardımcı olurmusunuz
excel dosyamda 2 adet sayfa var
1. sayfa liste
2. sayfa biten

1. sayfa (liste) da 100 e yakın satır da stok var , biten stokları bittiği zaman 2. sayfa (biten) kopyalıyorum biten stokları ileri tarihlerde lazım olması için (1500 e yakın satır var )

2. sayfayı sildiğimde makro salise hızında çalışıyor

sorun şu ki , 1.sayfa (liste) çalıştırdığım makro 2. sayfa ( biten ) de ki veri fazlalığından dolayı yavaş çalışıyor
2.sayfayı sildiğimde jet hızında çalışıyor. makronun 2. sayfada ki verilerden etkilenmemesini nasıl sağlarım

 

[Korhan Ayhan]

Forumda kod paylaşırken mesaj yazdığınız pencerede bulunan 3 nokta şeklindeki menüyü kullanınız.