hızlı makrolar genel

[snx111]

Private Sub Worksheet_Change(ByVal target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False

If Range("j14") > 0 Then
On Error Resume Next

Range("j14:j20").Select

Selection.Copy
Range("j15").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("j14").Select
Selection.ClearContents
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("j14").ClearContents
End If
Application.EnableEvents = True
End sub

bu kopyala ve yapıştır makrosunu işlemciyi daha az yormak adına nasıl hızlandırırız ?

 

[snx111]

Sub KAYDET()
'
' KAYDET Makro
'

'
Application.ScreenUpdating = False

If Range("j21") > 0 Then
Range("J21").Select
Selection.Copy


Range("a65536").End(3)(2, 1).Select

ActiveSheet.Paste
End If
Application.CutCopyMode = xlCut

End Sub

birde bu makroyu nasıl hızlandırırız ?

 

[Murat OSMA]

Copy, PasteSpecials gibi kodlardan uzak durmaya çalışın...

"Copy Destination"ı deneyiniz...