Combobox ile makro çalıştırmak

[Cansu0123]

Comboboxtan yaptıgım seçimle makro nasıl çalıştırabilirim?

 

[Ömer]

Merhaba,

Soruyu açarmısınız. Mümkünse örnek dosya ekleyiniz.

 

[Necdet]

Merhaba,

Fikir vermesi açısından aşağıdaki kodları inceleyebilirsiniz. Kodlar ilgili yerlerinde olmalı

ThisWorkbook :

Private Sub Workbook_Open()
    ComboHazirla
End Sub

Sheet1 sayfasında :

Private Sub ComboBox1_Change()
    If ComboBox1.Value = "" Then Exit Sub
    Dim Deger As String
    Deger = ComboBox1.Value
    Application.Run Deger
End Sub

Modul1 in içinde :

Sub ComboHazirla()
    With Sheets("Sheet1").ComboBox1
        .Clear
        .AddItem "Pazartesi"
        .AddItem "Salı"
        .AddItem "Çarşamba"
        .AddItem "Perşembe"
        .AddItem "Cuma"
        .AddItem "Cumartesi"
        .AddItem "Pazar"
        .Value = ""
    End With
End Sub

Sub Pazartesi()
    MsgBox "Pazartesi Programı Çalıştı"
End Sub

Sub Salı()
    MsgBox "Salı Programı Çalıştı"
End Sub

Sub Çarşamba()
    MsgBox "Çarşamba Programı Çalıştı"
End Sub

Sub Perşembe()
    MsgBox "Perşembe Programı Çalıştı"
End Sub

Sub Cuma()
    MsgBox "Cuma Programı Çalıştı"
End Sub

Sub Cumartesi()
    MsgBox "Cumartesi Programı Çalıştı"
End Sub

Sub Pazar()
    MsgBox "Pazar Programı Çalıştı"
End Sub

 

[ersin tunca]

Hayırlı cumalar

Arkadaşlar ilk önce ilginizden dolayı teşekkür ederim.

Benim sıkıntım combobox dan makro çalıştırma

örnek olarak 5 adet makrom var araç_kayıt hasılat,_kayıt ....

Ben combobox dan araç_kayıt makrosunu seçtiğimde araç_kayıt makrosunun çalışmasını istiyorum sizce böyle bir şey mümkün mü?

şimdiden teşekkür ederim.

iyi günler