Liste kutusuna farklı makrolar atamak

[isik_h]

Arkadaşlar merhaba,

bir liste kutusundaki her satıra ayrı bir makro atayabilir miyim?
saygılar

 

[isik_h]

arkadaşlar yok mu bilen

 

[hamitcan]

Aşağıdaki gibi bir şey mi istiyorsunuz?

Sub sec()
Sayfa1.Shapes("Liste Kutusu 1").Select
deger = Selection.Value
If deger = 1 Then bir
If deger = 2 Then iki
If deger = 3 Then üç
If deger = 4 Then dört
If deger = 5 Then beş
[a1].Select
End Sub
Sub bir()
MsgBox 1 & " nolu makro çalışdı"
End Sub
Sub iki()
MsgBox 2 & " nolu makro çalışdı"
End Sub
Sub üç()
MsgBox 3 & " nolu makro çalışdı"
End Sub
Sub dört()
MsgBox 4 & " nolu makro çalışdı"
End Sub
Sub beş()
MsgBox 5 & " nolu makro çalışdı"
End Sub

 

[isik_h]

evet dostum, aradığım tam olarak bu. çok teşekkür ederim