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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.