Diğer Sayfada Yapılan İşlemler

[xternet]

Merhaba arkadaşlar.
Sorumun yanıtı mutlaka bu forum içinde vardır ama aratarak ulaşamadım.

Aşağıda, anlaşılacağı üzere excelin "makro kaydet" işleviyle kaydettiğin bir kod var.
Kod güzel çalışıyor. Yalnız işlem sayfalar arasında geçiş yapılarak olduğu için makro çalıştırıldığında da sayfalar arasında hızlı bir geçiş oluyor ve bu insanı rahatsız ediyor.

Sanırım küçük bir düzenlemeyle sayfalar arasındaki geçişi görünmez hale getirebiliriz.
Bu konuda yardımlarınızı rica ediyorum.

Her şekilde zaman ayıran arkadaşlara şimdiden teşekkür ederim.
İyi çalışmalar.

Sub AKTAR_2()

Sheets("DOKUM_1").Select
Range("I21:S1520").Select
Selection.ClearContents
Sheets("GIRIS_CIKIS").Select
Range("I21:S1520").Select
Selection.Copy
Sheets("DOKUM_1").Select
Range("I21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("GIRIS_CIKIS").Select
Application.CutCopyMode = False
Sheets("GIRIS_CIKIS").Select
Range("A1").Select

End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz

Sub AKTAR_2()
[COLOR="Blue"]Application.ScreenUpdating = False[/COLOR]
Sheets("DOKUM_1").Select
Range("I21:S1520").Select
Selection.ClearContents
Sheets("GIRIS_CIKIS").Select
Range("I21:S1520").Select
Selection.Copy
Sheets("DOKUM_1").Select
Range("I21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("GIRIS_CIKIS").Select
Application.CutCopyMode = False
Sheets("GIRIS_CIKIS").Select
Range("A1").Select
[COLOR="blue"]Application.ScreenUpdating = True[/COLOR]
End Sub

 

[xternet]

Çok teşekkür ederim Sayın N.Ziya. Tam düşündüğüm gibi.
Sanırım mevcut kodun başına ve sonuna eklediğiniz satırlarla sadece sayfalar arasındaki geçisin görünmesini engellediniz.
Ben bu kodu benzer şekilde çalışan başka kodların da başına ve sonuna koyabilirim değil mi?

 

[N.Ziya Hiçdurmaz]

Tabiki Sayın xternet

 

[xternet]

Tekrar teşekkür ederim Sayın N.Ziya. Zihninize sağlık

İyi çalışmalar.