Metne makro atama

[preLude3]

Merhaba,

Forumda araştırdım göremedim umarım atlamamışımdır. Metne makro atamak istiyorum. Köprü gibi olacak, tıklayınca makro çalışacak. Yani düğmenin yaptığı işlevi metin yapsın istiyorum. Heralde bir yolu vardır bunun

 

[uzmanamele]

merhaba

sitede yüzlerce örneği var sizin tarifiniz hatalı.
sayfanın kod bölümüne yazarak ve A1 hücreyi tıklayarak deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
Call test
End Sub

standart modüle yazınız.

Sub test()
MsgBox "merhaba"
End Sub

 

[preLude3]

anladım, çok teşekkürler.

 

[preLude3]

peki aynı zamanda başka bir hücreye başka bir makro atamak için koda nasıl ekleme yapmalıyım? mesela f6 hücresine test2 makrosunu atayacağım.

 

[preLude3]

up
arkadaşlar bu soruma cevap yokmu buna ihtiyacım var...
a1 hücresine test, b1 hücresine test2 makrolarını nasıl atayacağım?

 

[uzmanamele]

merhaba

sitede arama yapın, benzen bir kaç örnek bulabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a1:c1]) Is Nothing Then Exit Sub
If Target.Column = 1 Then Call test_1
If Target.Column = 3 Then Call test_2
End Sub

Sub test_1()
MsgBox "merhaba"
End Sub
Sub test_2()
MsgBox "selam"
End Sub

 

[Merhum İdris SERDAR]

up
arkadaşlar bu soruma cevap yokmu buna ihtiyacım var...
a1 hücresine test, b1 hücresine test2 makrolarını nasıl atayacağım?

Örnek:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next
If Intersect(Target, [a:d]) Is Nothing Then Exit Sub

With Target
Select Case Target
Case "ali"
    ali
Case "veli"
    veli
Case "ayşe"
    ayşe
End Select
End With
End Sub

Sub ali()
MsgBox "Günaydın!"
End Sub
Sub veli()
MsgBox "Tünaydın!"
End Sub
Sub ayşe()
MsgBox "İyi akşamlar!"
End Sub

A: D aralığındaki bir hücrede yazacağınz veya yazılı ise üzerinde tıklayarak ali, veli veya ayşe için ilgili makroları çağırır.


Örnek dosya ekte.

.

 

[preLude3]

yurttaş, bu da faydalı oldu sağol.
uzmanamele, söylediğin kodu kullanarak istediğimi yaptım.
merak edenler için, iki farklı hücreye iki farklı makro atamak:

Sub makro1()
MsgBox "merhaba"
End Sub

Sub makro2()
MsgBox "selam"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a:c]) Is Nothing Then Exit Sub
If Target.Row = 2 And Target.Column = 1 Then Call makro1
If Target.Row = 6 And Target.Column = 3 Then Call makro2
End Sub

böylece a2 hücresine makro1'i, c6 hücresine makro2'yi atadık...