Hüçreyi Çift Tıklayarak Makro Çalıştırma

[Rafet]

Her Hanigi bir hiçeyi çıft tıkladığımızda makro çalıştırmasını istıyorum.

Nasıl yapıyoruz bir turlu çözemedim. :?

İnş. Kolay bşe değildir. Çok kötü olurum. :agla:

 

[Ali]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

.....
Makrolarınız
.......

End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod işinizi görecektir.

Bu kod sadece A sütununda ve 0 dan farklı dolu hücrelerde çalışır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Target <> 0 Then
MsgBox "BU MESAJI OKUYABİLDİYSENİZ MAKRONUZ ÇALIŞMIŞ DEMEKTİR..", vbInformation
Else
MsgBox "MAKRONUZUN ÇALIŞMASI İÇİN HÜCRENİN DOLU OLMASI GEREKİR...", vbExclamation
End If
End Sub

Yukarıdaki kodda MsgBox olarak yazılan satırlara çalışmasını istediğiniz makronun adını yazmanız yeterlidir. Mesela YAZDIR makrosu gibi ilgili satıra direk bu ismi yazarsanız ve tıkladığınız hücredeki değerde 0 dan farklı bir değerse makronuz çalışacaktır. Eğer bir koşul olmaksızın hücreye çift tıkladığınızda makronun çalışmasını isterseniz aşağıdaki kodu kullanmanız gerekecektir.

Bu kod ise koşul olmaksızın hücre boş olsada sadece A sütununda çalışır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
MsgBox "BU MESAJI OKUYABİLDİYSENİZ MAKRONUZ ÇALIŞMIŞ DEMEKTİR..", vbInformation
End Sub

 

[Rafet]

Elinize sağlık.

Çok teşekkürler.

Çok Güzel oldu.

İşlerinizde kolaylıklar diliyorum.