Arama macrosu çok ağır çalışıyor

[odin]

merhaba arkadaşlar,

sayfanın kod bölümüne bu kodu yazdığım zaman macro çok ağır çalışıyor.
sebebi nedendir acaba

saygılar.

Private Sub Worksheet_Activate()
On Error Resume Next
Application.ScreenUpdating = False
renk = [K46]
Range("A2").Select
Selection.AutoFilter Field:=7, Criteria1:=renk
Columns("F").Select
Selection.Copy
Sheets("S_OCAK").Select
Range("B2").Select
ActiveSheet.Paste
Sheets("OCAK").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("A1").Select
Sheets("S_OCAK").Select
Range("A1").Select
End Sub

 

[Mahmut Kök]

sayfaları faal yapıp (select) alanları seçerek kopyalayıp, başka sayfaya geçip yapıştırmak yerine "set" komutunu kullanarak alan tanımlaması yaparsanız işleminizin daha hızlı gerçekleşebileceğini düşünüyorum.