a4 hüçresine tıkladığımda makro çalışsın

[EmirhanG]

merhaba arkadaşlar, herkeslere hayırlı akşamlar. Benim, ilgilenecek arkadaşlardan ricam a4 hüçresine tıkladığımda makronun çalışmasını istiyorum
((bukadarı yeterli şimdilik ama ,tekrar tıkladığımda da başka bir makro çalıştırma şansım varmı ? teşekürler........))

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Bir modüle.

Sub MAKRO1()
MsgBox "Makro1 çalıştı..!!"
End Sub

Sub MAKRO2()
MsgBox "Makro2 çalıştı..!!"
End Sub

Çalışma sayfasının kod sayfasına
General bölümüne

Dim sayac

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A4]) Is Nothing Then Exit Sub
Cancel = True
If sayac Mod 2 = 0 Then Call MAKRO1
If sayac Mod 2 = 1 Then Call MAKRO2
sayac = sayac + 1
End Sub

 

[Necdet]

Merhaba Sayın EmirhanG,

Ekli Dosyayı İnceleyiniz, Umarım İstediğiniz Gibidir. A4 hücresine her çift tıklamada 4 adet makrodan sırayla çalıştırmaya başlar, 4 ten sonra 1. makro çalışır.



Not : Geç Kalmışım

 

[EmirhanG]

arkadaşlar ellerinize sağlık.Teşekürlerrrrr. Tam istediğimde buydu
İlgi ve alakanıza minnettarım. Hayırlı akşamlar.

 

[Necdet]

ilgi ve alaka aynı sözcüklerdir neden ikisini birden kullanırsınız bir türlü anlam veremiyorum. Neden?