listbox 1 den ikiye veri almak ve macrosunun çalışması

[ildizim]

Merhaba,

Listbox1 de cam demir tahta gibi ürünler var bunlardan birini seçtiğim zaman listbox2' de o ürünün altındakiler listelensin ve listbox2'de listelenenlerin birine tıkladıgım zaman o isimle yazacagım macronun çalışmasını istiyorum

teşekkürler.

EKLİ DOSYADA İSTEDİKLERİMİ YAZMAYA CALIŞTIM TEŞEKKÜRLER.

 

[ildizim]

ARKADAŞLAR BENİM DOSYAYLA UGRAŞAMADINIZ GALİBA YARDIM İSTİYORUM.

 

[hamitcan]

Ben bir örnek yaptım umarım işinizi görür. Listbox2 de sadece cam olanlar için makro yaptım.Siz diğerlerini yaparsınız.

 

[ildizim]

hamit bey yaptıgınız dosyayı eklermisinişz teşekkürler sağolun

 

[hamitcan]

ataç gitmemiş galiba

 

[ildizim]

merhaba,

Hamitcan arkadaşımın yaptıgı çalışıyor ve güzel olmuş ama yeni ilaveler ve isimlerde değişiklik yaptıgım zaman calışmıyor.

BENİM İLAVE GİREBİLECEĞİM VE YAPILANLARI DEĞİŞTİRMEM LAZIM.
HEPINIZIN YARDIMINI BEKLİYORUM

 

[hamitcan]

merhaba,

yeni ilaveler ve isimlerde değişiklik yaptıgım zaman calışmıyor.

Sebebi herbir isim için bir aralık tanımlamış olmamdan kaynaklanıyor ben dosyanızı düzenledim (Ekle menüsünden ad tanımlamayı seçin, benim tanımladığım alanları inceleyin, gerektiğinde yeni isimler tanımlayabilirsiniz)

 

[ildizim]

hAMİTCAN COK SAOL BAYA KURCALAMIŞTIM AMA BULAMMIŞTIM. ŞİMDİ GÖRDÜM SAOL

 

[ildizim]

Hamitcan merhaba,

son bir şey daha yazım bana ikinci listbozta tıkladıgım seçeneğin makrosu çalışıyor ya; tekxtboz ikide farklı verilerden bazılarının macrosu aynı.
şöyle bir şey nasıl yapabilirim.
mesala macronun adı ali olsun ben aliyede tıkladıgım zaman ali,veli,mehmet,hasan ada tıkladığım zaman ali çalışsın.
Sub veli()
ali
End Sub

Sub mehmet()
ali
End Sub
gibi yüzlerce modül yazmak istemiyorum
hepsini bir modulde toplayabilirmiyiz?

 

[hamitcan]

module3 de GENEL diye makro yazın
Sub GENEL()
MsgBox "MERHABA"
End Sub

Sonra da daha önceki kodu aşağıdaki ile değiştirin
Private Sub ListBox2_Click()
Call Module3.GENEL
End Sub

Umarım doğru anlamışımdır.

 

[ildizim]

hayır hamitcan,
listbox ikide açtıgım ürün sayısınca yaklaşık 200 macro var benim istediğim
veli mehmet hasan'a... tıkladığım zaman ali çalışsın,
fatma ayşe zeynepe tıkladığım zaman gül çalışsın.
x,y,x. ye tıkladığımda z çalışsın gibi.. bunların sayısı artıyor devamlı

diğer 200 ünün kendi ismilye macrosu olacak zaten.
teşekkürler

 

[hamitcan]

Eki inceleyin

 

[ildizim]

yok bu işime yaramadı şöyle bişi olabilirmi?

mesala module3'e
veli mehmet hasan'a tıkladığın zaman ali isimli macro çalışacak şeklinde bir macro nasıl yazarız.

 

[hamitcan]

Benim yaptığım örnekte sizin istediğiniz gibi zaten.

Örneğin;

Listbox1 de SEHIRLER
Listbox2 de ISTANBUL, ANKARA, ,İZMİR, BURSA olsun.
Listbox2 de hangi seçeneği seçerseniz seçin GENEL makrosu çalışmakta.

Bundan farklı bir şey mi istiyorsunuz ?

 

[ildizim]

istediğim şı hamit
listbox ikide sectiğiklerimin sadece kendisine özel macroları olanlar var;
örnek
listbox'de
300 tane veri olsun
bunlardan 30unu tek bir macroyaı 10'u yine başka tekbir macroya bağlamak istiyorum . diğerlerinini ise kendine özel macrosu var onlarda sorunum yok.

birde biz listenin macrolarını module 3 yaptık ya şu kodla bu sefer modül üçün altında bir sürü macro oldu ve excel açılmıyor responding diye ekteki kodu macroları tüm modülde olabilecek şekilde değiştirebilirmiyiz.

Private Sub ListBox2_Click()
Application.Run "module3." & ListBox2.List(ListBox2.ListIndex, 0)
End sub

teşekküler şimdiden hamit

 

[hamitcan]

İstediğinizi anladım, çözüm olarak önerim;

Ortak çalışmasını istediğiniz, Listbox2 de yeralan seçeneklerin son karakterine, 1 yada 2 gibi rakam verilmesi.

Dosyayı tekrar düzenledim.