Açılan Kutudaki her bir değere makro atamak

[sihirbaz3000]

merhaba makrolarla ilgilenmeye yeni başladım ve şunu çözemiyorum;

Ben açılan kutudaki isimlere makro atamak istiyorum. Yani açılan kutudaki listeden "1"i seçiyim, yandada çalıştır diye bir buton olsun, bende buton'a tıklıyım ve daha önceden yazdığım "1" makrosu çalışsın?
Şimdiden teşekkürler...

 

[uzmanamele]

merhaba
ek dosya işinizi görür mü?

 

[sihirbaz3000]

Sayın uzmanamele

 

[uzmanamele]

merhaba
ek dosya işinizi görür mü?

 

[sihirbaz3000]

Sayın uzmanamele

 

[uzmanamele]

merhaba
listeden seçilen ad ve alış-satış için d1 hücresindeki bağlantıyı e18 hücresinde birleştirdik.

Sub alp1()
Run CStr([E18])
End Sub
e18 de yazan makro adını çalıştırıyoruz.

Sub ALPDOĞAN_1()
MsgBox "alpdoğan satış makrosu çalışdı"
End Sub
Sub ALPDOĞAN_2()
MsgBox "alpdoğan alış makrosu çalışdı"
End Sub
Sub ARMANDİNİ_1()
MsgBox "armandini satış makrosu çalışdı"
End Sub
Sub ARMANDİNİ_2()
MsgBox "armandini alış makrosu çalışdı"
End Sub

 

[sihirbaz3000]

Sayın uzmanamele

 

[uzmanamele]

merhaba
veri doğrulama örneklerini inceleyiniz.

http://www.excel.web.tr/showthread.php?t=2830

 

[sihirbaz3000]

Çok teşekkür ederim

 

[sihirbaz3000]

Sayın uzmanamele

 

[sihirbaz3000]

Sayın uzmanamele.

 

[uzmanamele]

merhaba
makroyu yazmazsanız bulunamadı hatası almanız normal, olmayan şeyi bulamaz ki. sadece KARALI_2 makrosu var.
KARALI_2 makrosunu çalıştırdığınızda aktif sayfada işlem yapıyor. ana sayfada bu makro çalışmaz. ilk 4 satırı sildiğine göre başka firma seçtiğinde E1 hücrede bişey yazmıyor ki çalıştıracak kod bulsun.

 

[sihirbaz3000]

Sayın sayın