ActiveSheet.Shapes("ListeKutusu") ndan veri seçince makro çalıştırılabilirmi

[kelkitli]

ActiveSheet.Shapes("ListeKutusu") ndan veri seçince makro çalıştırılabilirmi

Değerli Dostlar Selamlar,
ActiveSheet.Shapes("ListeKutusu") ile kişileri listeliyorum.
Buradan herhangi bir isim seçince Makroyu tetiklemek mümkünmüdür.
Nasıl bir kod ile yapılabilir.

 

[kelkitli]

Değerli Dostlar Teşekkür ederim problem çözülmüştür cevap gerekmez.

 

[omerceri]

Bir modüle aaaa diye bir Sub yazdınız diyelim.

Private Sub ListBox1_Change()
If ListBox1.Value = "Pazar" Then
aaaa
End If
End Sub

 

[Seyit Tiken]

Değerli Dostlar Teşekkür ederim problem çözülmüştür cevap gerekmez.

Üç farklı yerde aynı cümleler tekrarlanmış!!?? Sorularınız gerçekten mi çözümlenmiş, yoksa cevaplar niye erken gelmiyor diye, bir sitem tarzı mı? Onu merak ettim sadece.

 

[kelkitli]

Sn.Seyit TİKEN Selamlar,
Sitem yok uğraştım çözümledim. Sitem yapacak bir şey de yok. Herkes kendince birşeyler yapmaya çalışıyor Sn.Seyit TİKEN kime ne sitem edelim ki. Sağolun bu forumdan aldığımız katkılar küçümsenemeyecek kadar çok.

 

[Seyit Tiken]

Ekli dosyayı kendinize uyarlayınız.

 

[kelkitli]

Teşekkürler Sn.Seyit TİKEN emeğinize sağlık.

 

[ColdFusion]

ek inmiyor