Hücrede ki yazıya makro atamak

[Mehmet Sait]

Merhaba,

Sayfamda bulunan makro butonlar, makroyu her çalıştırdığımda yeri değişmekte.
Makroyu hücredeki bir yazıya atama yapılabilir mi ?

 

[YUSUF44]

"Sayfamda bulunan makro butonlar, makroyu her çalıştırdığımda yeri değişmekte."

Bu sorununuzla

"Makroyu hücredeki bir yazıya atama yapılabilir mi ?"

bu isteğinizin alakasını anlamadım. Ancak eğer sayfadaki düğme/resim/nesnelerin yerinin değişmesini istemiyorsanız o düğmeye/nesneye/resme sağ tıklayın ve özelliklerinden "Hücrelerle taşıma ve boyutlandırma" seçeneğini işaretleyin.

"Makronun yazıya atanması" konusu farklı bir konuysa daha açık ve örnek vererek sorar mısınız?

 

[Mehmet Sait]

"Sayfamda bulunan makro butonlar, makroyu her çalıştırdığımda yeri değişmekte."

Bu sorununuzla

"Makroyu hücredeki bir yazıya atama yapılabilir mi ?"

bu isteğinizin alakasını anlamadım. Ancak eğer sayfadaki düğme/resim/nesnelerin yerinin değişmesini istemiyorsanız o düğmeye/nesneye/resme sağ tıklayın ve özelliklerinden "Hücrelerle taşıma ve boyutlandırma" seçeneğini işaretleyin.

"Makronun yazıya atanması" konusu farklı bir konuysa daha açık ve örnek vererek sorar mısınız?

Merhaba hocam,

Hücrelerde taşıma ve boyutlandırma seçili ve nesne kilitli. Buna rağmen her çalıştırdığımda buton yer değişmekte.

Makromu butona değilde, bir yazıya atamak istiyorum.

 

[Korhan Ayhan]

Şöyle sonuca gidilebilir...

Hücredeki veri değiştiğinde kod çalışabilir.
Hücreye çift tıkladığınızda kod çalışabilir.
Hücreye sağ tıkladığınızda kod çalışabilir.
Hücreyi seçtiğinizde kod çalışabilir.

Hangisini tercih edersiniz..

 

[Mehmet Sait]

Şöyle sonuca gidilebilir...

Hücredeki veri değiştiğinde kod çalışabilir.
Hücreye çift tıkladığınızda kod çalışabilir.
Hücreye sağ tıkladığınızda kod çalışabilir.
Hücreyi seçtiğinizde kod çalışabilir.

Hangisini tercih edersiniz..

Merhaba hocam,

Sayfamda 4 adet makro butonu var. Sayfamda Z3, Z4, Z5, Z6 Hücreye çift tıkladığımda farklı makroları çalıştırmak olabilir.

Teşekkür ederim.

 

[Korhan Ayhan]

Bu işlemi yapacağınız sayfanızın kod bölümüne uygulayıp deneyiniz.

Call Makro_1

Kalın bölümlere kendi makro isimlerinizini yazınız.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("Z3:Z6")) Is Nothing Then Exit Sub
    Cancel = True
    Select Case Target.Address(0, 0)
        Case "Z3": Call Makro_1
        Case "Z4": Call Makro_2
        Case "Z5": Call Makro_3
        Case "Z6": Call Makro_4
    End Select
End Sub

 

[Mehmet Sait]

Bu işlemi yapacağınız sayfanızın kod bölümüne uygulayıp deneyiniz.

Call Makro_1

Kalın bölümlere kendi makro isimlerinizini yazınız.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("Z3:Z6")) Is Nothing Then Exit Sub
    Cancel = True
    Select Case Target.Address(0, 0)
        Case "Z3": Call Makro_1
        Case "Z4": Call Makro_2
        Case "Z5": Call Makro_3
        Case "Z6": Call Makro_4
    End Select
End Sub

Gayet güzel oldu. Teşekkür ederim .