Kod çalışırken ekran atlatma yapıyor..

[karam54]

Arkadaşlar, C35 ve TABLO adlı 2 dosyam var. C35 de makroyu çalıştırıyorum Tabloya veri attırıyorum.Ancak aşağıda verdiğim kod çalışırken sürekli ekranda açılıp kapanma işlemi yapıyor.İşlem bitince stabil hale geliyor.Bu olayın olmaması için nasıl bir kod yazmamaız lazım?(sanki döngüye giriyormuş gibi her işlem için program çalıştığında ekran açılıp kapanıyor). Yardımlarınız için şimdiden teşekkür ederim.
kod: Sub Taşı()

Windows("C35 .xlsm").Activate
Range("C24").Select
Selection.Copy

Windows("TABLO.xls").Activate
Range("E35").Select
ActiveSheet.Paste


Windows("C35 .xlsm").Activate
Range("K36").Select
Selection.Copy

Selection.Copy
Windows("TABLO.xls").Activate
Range("E40").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("C35 .xlsm").Activate
Range("K37").Select
Selection.Copy

Selection.Copy
Windows("TABLO.xls").Activate
Range("E43").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[Merhum İdris SERDAR]

.
Sub Taşı()

Application.ScreenUpdating = False

....................
...................
...................
..................

Application.ScreenUpdating = True
End Sub

................... yerlere kodlarınızı yerleştirerek deneyin.

.

 

[karam54]

YURTTAS kardeşim,süpersin, çok teşekkür ederim.Eline sağlık