ComboBox a Değişken atama ve buna bağlı makro çalıştırma

[simyaci64]

merhaba üstadlar;
comboxa açılır liste yaptım bu listede seçime göre makro çalışmasını istiyorum.

nerde yanlış yapıyorum bir türlü liste gelmiyor manuel yazıyorum. makro çalışmıyor.

yardımlarınız için şimdiden teşekkürler.

Private Sub ComboBox1_Change()
On Error Resume Next
If ComboBox1.Value = "TÜM SİPARİŞLER" Then Call TÜM_SİPARİŞLERİ_GÖSTER
If ComboBox1.Value = "BİM" Then Call BİM_SİPARİŞLERİ_GÖSTER
If ComboBox1.Value = "ŞOK" Then Call ŞOK_SİPARİŞLERİ_GÖSTER
If ComboBox1.Value = "BAYİLER" Then Call BAYİ_SİP_GÖSTER
If ComboBox1.Value = "CARREFOUR" Then Call CARREFOUR_SİP_GÖSTER
If ComboBox1.Value = "MİGROS" Then Call MİGROS_SİPARİŞLERİNİ_GÖSTER
If ComboBox1.Value = "EGE_BÖLGESİ" Then Call EGE_BÖLGESİ_RUTU_SİPARİŞLERİNİ_GÖSTER
If ComboBox1.Value = "HAKMAR" Then Call HAKMAR_SİP_GÖSTER
If ComboBox1.Value = "A.101 , BİM , ŞOK" Then Call A101_ŞOK_VE_BİMLERİ_GÖSTER
If ComboBox1.Value = "İHRACAT" Then Call İHRACAT_SİPARİŞLERİ_GÖSTER
End If

End Sub

 

[Haluk]

Aşağıdaki kodu kendine göre uyarlayabilirsiniz sanırım....

Private Sub ComboBox1_Change()
    Select Case ComboBox1.ListIndex
    Case 0
    Call Makr01
    Case 1
    Call Makro2
    Case 2
    Call Makro3
    End Select
End Sub

 

[simyaci64]

Haluk bey;
ilginiz için teşekkürler yanlız çok yeniyim yapamadım.

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
    Case 0
    Call TÜM_SİPARİŞLERİ_GÖSTER
    Case 1
    Call BİM_SİPARİŞLERİ_GÖSTER
    Case 2
    Call ŞOK_SİPARİŞLERİ_GÖSTER
    Case 3
     Call BAYİ_SİP_GÖSTER

    End Select
End Sub

 

[simyaci64]

nerde yanlış yapıyorum. bakabilir misiniz.

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
    Case TÜM_SİPARİŞLER
    Call TÜM_SİPARİŞLERİ_GÖSTER
    Case BİM
    Call BİM_SİPARİŞLERİ_GÖSTER
    Case ŞOK
    Call ŞOK_SİPARİŞLERİ_GÖSTER
    Case BAYİ
     Call BAYİ_SİP_GÖSTER
 
End Select
End Sub

 

[Haluk]

Bu şekilde dener misiniz ?

Private Sub ComboBox1_Change()
    Select Case ComboBox1.ListIndex
        Case 0
        Call TÜM_SİPARİŞLER
        Case 1
        Call TÜM_SİPARİŞLERİ_GÖSTER
        Case 2
        Call BİM_SİPARİŞLERİ_GÖSTER
        Case 3
        Call ŞOK_SİPARİŞLERİ_GÖSTER
        Case 4
        Call BAYİ_SİP_GÖSTER
    End Select
End Sub

 

[simyaci64]

haluk bey;

dosyayı ekledim. yapamadım.

saygılarımla.

Bu şekilde dener misiniz ?

Private Sub ComboBox1_Change()
    Select Case ComboBox1.ListIndex
        Case 0
        Call TÜM_SİPARİŞLER
        Case 1
        Call TÜM_SİPARİŞLERİ_GÖSTER
        Case 2
        Call BİM_SİPARİŞLERİ_GÖSTER
        Case 3
        Call ŞOK_SİPARİŞLERİ_GÖSTER
        Case 4
        Call BAYİ_SİP_GÖSTER
    End Select
End Sub

 

[Korhan Ayhan]

SUB olarak tanımladığınız makrolarınız eksik gibi görünüyor. Hepsinin varlığından emin olun.

 

[simyaci64]

teşekkür ederim. caseleri tutturamamışız. şimdi yaptım hepinize teşekkür ederim.

Private Sub ComboBox1_Change()
    Select Case ComboBox1.ListIndex
        Case 0
        Call TÜM_SİPARİŞLERİ_GÖSTER
        Case 1
        Call İHRACAT_SİPARİŞLERİ_GÖSTER
        Case 2
        Call BİM_SİPARİŞLERİ_GÖSTER
        Case 3
        Call A_101_SİPARİŞLERİ_GÖSTER
        Case 4
        Call ŞOK_SİPARİŞLERİ_GÖSTER
        Case 5
        Call MİGROS_SİPARİŞLERİNİ_GÖSTER
        
    End Select
End Sub

 

[Orion1]

Prosedürlerinizin adları için Türkçe karakterler kullanmayınız.İngilizce karakterler kullanınız.Ona keza değişken adlarıda ayni şekilde.Ziraa , İngilizce bir sistemde çalıştıramazsınız.