Event Eventi çağırma

[mesudiye_052]

Merhabalar;

1.Event çift tıklama ile faal olunca
2.Eventin tetiklemesine(kapatma düğmesine) basınca çalışsın ve mesaj ekrana yazsın
1.Eventte tıklanma olmazsa 2.Event pasif olsun çalışmasın
Nasıl yapabiliriz.

1.Event
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

2.Event
Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "Kapatılıyor..."
End Sub

 

[Korhan Ayhan]

1. Event kodları nedir?

Ya da tam olarak ne yapmaya çalıştığınızı yazarsanız daha hızlı çözüm bulunabilir.

 

[mesudiye_052]

Merhabalar;

Çalışma sayfasının herhangi bir hücresine çift tıklama ile
tetiklenen 1.event , 2.Eventi tetiklenmesine ve exceli kapatınca mesaj iletisinin çıkmasına sebep olması
Şayet 1.eventte çift tıklama olmaz dolayısıyla 1.Event tetiklenmezse
2.Event te çalışmasın ve exceli kapatınca mesaj iletisi gelmesin.

Bu işlemin gerçekleşmesi için eventlere nasıl bir kod yazılabilir.

 

[Suskun]

İkinci event birincisinden bağımsız. Dosyayı kapatırken uyarı veriyor.
Workbook_BeforeClose de Değişiklikleri kaydetmeden çıkmak için:

  ActiveWorkbooks.Close SaveChanges:=False

Mesaj vermeden değişiklikleri kaydedip çıkması için:

  Me.Saved = True

deneyin.

 

[mesudiye_052]

Merhabalar;

Cevabınız için teşekkürler

her iki event birbiri ile ilişkili if yönlendirmesi gibi
1.event tetiklenme aktif ise 2.Eventdeki uygulamaları (burada örnek msgbox) çalıştır değilse (2.event tetiklense bile) uygulamaları çalıştırma tarzında istiyorum

 

[Korhan Ayhan]

Çift tıklama ile kapanış kodu tetikleniyor. Fakat bende excel kapanışta hata verdiği için foruma eklemekten vazgeçtim.

 

[muratboz06]

Yeni bir Module ekleyin ve aşağıdaki değişkeni tanımlayın.

Public DoubleClick As Integer

İlgili worksheetin kod bölümüne aşağıdaki kodu ekleyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    DoubleClick = 1
End Sub

BuÇalışmaKitabı (Thisworkbook) kod bölümüne ekleyin.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If DoubleClick = 1 Then
        MsgBox "DoubleClick değeri: " & DoubleClick
    End If
End Sub

Kodu kendinize göre revize edersiniz.

 

[Korhan Ayhan]

Bende buna benzer bir yapı kullandım. Kapanışta ki mesaj kutusundan sonra Excel hata verdiği için paylaşmak istemedim. Belki bende bu sorun oluşuyordur.

 

[mesudiye_052]

Merhabalar;

Teşekkürler
Sayın muratboz06,
Sayın Korhan Ayhan