Soru makro ile butona basarak ölçü göndermede sayfada hareketler oluyor

[Revival5084]

https://dosya.co/mdxsan1o7ikg/Modül_Hesaplama.xlsm.html
üstadlarım bi yardımcı olabilirmisiniz.
ben mobilyacıyım kendime dolapların parça listesini çıkartma sistemi yaptım
ölçü göndermek için makro ile butona basınca sayfada hareketler oluyor
yani macro kaydı il yaptığım işlemleri hızlı geçişler halinde görüyorum
bunu nasıl düzeltebiliriz. linki attım.

Sub GÖVDE()
'
' GÖVDE Makro
'

'
ActiveSheet.Range("$F$1:$F$400").AutoFilter Field:=1, Criteria1:= _
ActiveWorkbook.IconSets(xl3Symbols2).Item(3), Operator:=xlFilterIcon
Range("D9:H393").Select
Selection.Copy
Sheets("Gövde").Select
Range("C7:G150").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M6").Select
Sheets("Modül Şablon").Select
ActiveSheet.Range("$F$1:$F$400").AutoFilter Field:=1
Range("N3").Select
End Sub

 

[Ömer]

Merhaba

Başlama satırından sonra

Application.ScreenUpdating = False

Ekleyerek deneyin.

Eski haline gelmesi için bitiş satırından önce false yi true yapabilirsiniz.

 

[YUSUF44]

Kodların başına

Application.ScreenUpdating = False

ve sonuna

Application.ScreenUpdating = True

ekleyip deneyin:

Sub GÖVDE()
'
' GÖVDE Makro
'

'
Application.ScreenUpdating = False
    ActiveSheet.Range("$F$1:$F$400").AutoFilter Field:=1, Criteria1:= _
        ActiveWorkbook.IconSets(xl3Symbols2).Item(3), Operator:=xlFilterIcon
    Range("D9:H393").Select
    Selection.Copy
    Sheets("Gövde").Select
    Range("C7:G150").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("M6").Select
    Sheets("Modül Şablon").Select
    ActiveSheet.Range("$F$1:$F$400").AutoFilter Field:=1
    Range("N3").Select
Application.ScreenUpdating = True

End Sub

 

[Revival5084]

oldu güzel oldu
Allah razı olsun çok makbule geçti çok teşekkür ederim