Makro Yardımı

[Mehmet Sait]

Merhabalar,

Aşağıda ki makroyu çalıştırırken en başa Application.ScreenUpdating = True eklememe rağmen ekran yenilenmesini engelleyemedim.
Nasıl bir düzenleme yapmalıyım.

Yardımlarınız için teşekkür ederim.

Sub Aktar()
 
Application.ScreenUpdating = True

' Ocak
' 1. Hafta

Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("C15").Select
Selection.ClearContents
Sheets("Hafta Tarihleri").Select
Range("D7").Select
Selection.Copy
Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("C15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("F15").Select
Selection.ClearContents
Sheets("Hafta Tarihleri").Select
Range("G7").Select
Selection.Copy
Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("F15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'-----------------------------------------------------------------------------------------

' 2. Hafta
  

Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("C28").Select
Selection.ClearContents
Sheets("Hafta Tarihleri").Select
Range("J7").Select
Selection.Copy
Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("C28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("F28").Select
Selection.ClearContents
Sheets("Hafta Tarihleri").Select
Range("M7").Select
Selection.Copy
Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("F28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'-----------------------------------------------------------------------------------------

' 3. Hafta


Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("C41").Select
Selection.ClearContents
Sheets("Hafta Tarihleri").Select
Range("P7").Select
Selection.Copy
Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("C41").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("F41").Select
Selection.ClearContents
Sheets("Hafta Tarihleri").Select
Range("S7").Select
Selection.Copy
Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("F41").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'-----------------------------------------------------------------------------------------

' 4. Hafta

Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("C54").Select
Selection.ClearContents
Sheets("Hafta Tarihleri").Select
Range("V7").Select
Selection.Copy
Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("C54").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("F54").Select
Selection.ClearContents
Sheets("Hafta Tarihleri").Select
Range("Y7").Select
Selection.Copy
Sheets("Üretim Değerlendirme").Select
ActiveSheet.Unprotect Password:="33"
Range("F54").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'-----------------------------------------------------------------------------------------

' kodlar devam etmekte

'-----------------------------------------------------------------------------------------

    ActiveWorkbook.Save

 
Application.Calculation = xlAutomatic

End Sub

 

[EmrExcel16]

Merhaba ,

Başlangıçta False olarak ayarlayın makronun bitiminde de True olarak ayarlayın.

Sub Emr ()

    Application.ScreenUpdating = False

        'Kodlar.....

    Application.ScreenUpdating = True

End Sub

 

[Mehmet Sait]

Merhaba ,

Başlangıçta False olarak ayarlayın makronun bitiminde de True olarak ayarlayın.

Sub Emr ()

    Application.ScreenUpdating = False

        'Kodlar.....

    Application.ScreenUpdating = True

End Sub

Teşekkür ederim

 

[EmrExcel16]

Rica ederim , İyi çalışmalar.