Sayfadan çıkarken makro çalıştıracak kodlar

[acolkesen1]

Merhaba arkadaşlar,
Sayfadan çıkarken herhangi bir makroyu çalıştırmak için, sayfanın kod bölümüne yazılacak bir kod var mıdır?

 

[Ayhan Ercan]

Merhaba arkadaşlar,
Sayfadan çıkarken herhangi bir makroyu çalıştırmak için, sayfanın kod bölümüne yazılacak bir kod var mıdır?

Merhaba Sn acolkesen1

Sayfanın kod bölümünde , Worksheet_Deactivate olayına kodlarınızı yazın...

 

[acolkesen1]

Sayın Ayhan Ercan merhaba, iş sebebiyle cevabınız şimdi okuyabildim ve teşekkür cevabı gecikti biraz. Yapmak istediğim sayfadan çıkarken aşağıdaki kopyala -yapıştır kodlarının çalışması idi. Ancak ya ben yanlış yazdım veya Worksheet_Deactivate olayını çalışması öyle olduğu için kopyalanan veri aktif sayfadan geçtiğim sayfanın bir hücresine yapıştırılmak isteniyor.
On Error GoTo son
ActiveSheet.Unprotect
Selection.Copy
Range("a3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect
son:
Yukarıdaki kodlar sayfada çalıştıktan sonra çıkış işlemi tamamlansın istiyorum. Mantıken sayfadan çıktıktan sonra biraz zor gibi görünüyor ama belki mümkündür diye düşünüyorum. yardımlarınız için tekrar teşekkür ederim.

 

[Ayhan Ercan]

Merhaba

ActiveSheet.Unprotect
[B][COLOR=red]Selection.Copy[/COLOR][/B]
Range("a3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect
son:

Yukarda kırımzı olarak işaretli olan satırda
"Seçileni kopyala" demektedir.

Kopyalanacak yeriniz değişebilir hücrelerdemi yoksa kopyalanacak hücre sabitmi?

 

[Kemal Demir]

ThisWokrBook kısmına aşagıdaki kod ile denermisniz.

Eğer yanlıs anlamadıysam sayfayı kapatırken calismasını istemiştiniz.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo son
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Selection.Copy
Range("a3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect
ThisWorkbook.Save
ThisWorkbook.Close
son:
End Sub

 

[acolkesen1]

Sayın Ayhan Ercan iyi geceler,
Kopyalanacak hücre sabit değil, yani her defasında başka bir hücre kopyalanıyor. O yüzden seçileni kopyala diye yazdım. Sağolsun sayın Rakkas da ilgilenmiş ancak onun yazdığı kodlar çalışma kitabı kapanırken devreye giriyor anladığım kadarıyla.ben sayfadan çıkarken çalışsın istiyorum. Aslında kodları bir butona atayarak da çalıştırmak mümkün ama unutulması halinde çalışmamda sorun çıkarır düşüncesiyle otomatik olarak çalışsın istiyorum. Yardım çabalarınız için teşekkür eder iyi geceler dilerim.

 

[Ayhan Ercan]

Sayın Ayhan Ercan iyi geceler,
Kopyalanacak hücre sabit değil, yani her defasında başka bir hücre kopyalanıyor. O yüzden seçileni kopyala diye yazdım. Sağolsun sayın Rakkas da ilgilenmiş ancak onun yazdığı kodlar çalışma kitabı kapanırken devreye giriyor anladığım kadarıyla.ben sayfadan çıkarken çalışsın istiyorum. Aslında kodları bir butona atayarak da çalıştırmak mümkün ama unutulması halinde çalışmamda sorun çıkarır düşüncesiyle otomatik olarak çalışsın istiyorum. Yardım çabalarınız için teşekkür eder iyi geceler dilerim.

Merhaba sn acolkesen1

Worksheet_Deactivate olayını çalışması öyle olduğu için kopyalanan veri aktif sayfadan geçtiğim sayfanın bir hücresine yapıştırılmak isteniyor.

Bu yüzden bende Selection.Copy hücresinin sabit olup olmadığını merak etmiştim.

Aslında kodları bir butona atayarak da çalıştırmak mümkün ama unutulması halinde çalışmamda sorun çıkarır düşüncesiyle otomatik olarak çalışsın istiyorum.

Kendi kodlarınızı bir düğmeye atasanız sonrada,

İlgili sayfanın kod bölümüne:

Private Sub Worksheet_Deactivate()
 MsgBox "Kayıt yapmadan çıkma"
End Sub

Yazıp sayfadan cıkışta size bir hatırlatma yapsa işinizi görebilirmi?

 

[acolkesen1]

Merhaba,iyi hafta sonları..
Başka çözüm bulamadığımıza göre hatırlatma açısından pratik bir çözüm.Msgbox ı bir çok yerde kullanıyorum ama burada kullanmak aklıma gelmedi doğrusu..Bir noktaya yoğunlaşınca başka çözümler gözden kaçıyor bazan. Çözüm öneriniz ve yardımlarınız için teşekkür ederim. Esen kalın..

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[acolkesen1]

Değerli Korhan Ayhan Hocam,
Çözümünüz için çok teşekkür ederim. Tam olması gerektiği gibi. Elinize sağlık. Sağlıcakla kalın.