Hücreye Tıkladığında Makro Çalışması

[Gokhan78]

Selamlar

"B3:B27" hücreleri arasında ve "D3:D25" hücreleri arasında personel isimleri yazıyor.
Bu hücrelerden hangisine tıklarsam onunla ilgili makro çalışsın istiyorum.

Daha net anlaşılması açısından "B5" hücresine tıklarsam "B5Makro" adı verdiğim makro
"D7" hücresine tıklarsam "D7Makro" adı verdiğim makro çalışmalı.


Yardımlarınızı rica ediyorum

[SNNAY]

Deneyiniz; Kodu Çalışma sayfasının modülüne yapıştırınız.

Kod: Tümünü seç

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cellAddress As String

    ' Seçilen hücrenin adresini al
    cellAddress = Target.Address(False, False)

    ' B3:B27 veya D3:D25 hücrelerinde olup olmadığını kontrol et
    If Not Intersect(Target, Me.Range("B3:B27, D3:D25")) Is Nothing Then
        Select Case cellAddress
            Case "B5"
                Call B5Makro
            Case "D7"
                Call D7Makro
            ' Diğer hücreler için de aynı şekilde makro çağırabilirsiniz
            ' Case "B4"
            '    Call B4Makro
            ' Case "D4"
            '    Call D4Makro
            ' ...
            ' Diğer hücreler ve makrolar için buraya ekleme yapabilirsiniz
        End Select
    End If
End Sub

[erseldemirel]

Bende döngülü örnek vereyim.

Bu kodu sayfa kodunun içine yazabilirsiniz.

Kod: Tümünü seç

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range("B3:B27, D3:D25")) Is Nothing Then
cellAddress = Target.Address
If Target.Column = 2 Then
i = Target.Row
Application.Run "B" & i & "Makro"
ElseIf Target.Column = 4 Then
j = Target.Row
Application.Run "D" & j & "Makro"
End If
End If
End Sub

Makro isimlendirmelerini standart şekil verdik.
Sonra module içinde çalıştırılır

Kod: Tümünü seç

Sub B3Makro()
    MsgBox "B3 Makro !"
End Sub
Sub B4Makro()
    MsgBox "B4 Makro !""
End Sub
Sub B5Makro()
    MsgBox "B5 Makro !""
End Sub
Sub D3Makro()
    MsgBox "D3 Makro !""
End Sub
Sub D4Makro()
    MsgBox "D4 Makro !""
End Sub
Sub D5Makro()
    MsgBox "D5 Makro !""
End Sub
'....
'....
'....
'....

[Gokhan78]

Yoğun olduğumdan bir süre bakamadım .

Elinize sağlık çok güzel olmuş.