ComboBoxta listelenen veri ile makro kodu çalıştırma

[manly]

Ek'te gönderdiğim Ana Dosya1 açılınca Menü sayfasının A sütunundaki verileri combobox a listeledim. Bu verilerden hangisini seçersem Menü dosyasındaki B sütunundaki makro kodu çalışsın istiyorum.

 

[manly]

Yardım lütfen...

 

[manly]

Sorumun cevabını buldum sanırım....

Private Sub CommandButton8_Click()

If ComboBox1 = "" Then Exit Sub
If ComboBox1.Value = "Ana Dosya Sayfa1" Then
Sheets("Sayfa1").Select
End If

If ComboBox1 = "" Then Exit Sub
If ComboBox1.Value = "Ana Dosya Sayfa2" Then
Sheets("Sayfa2").Select
End If

If ComboBox1 = "" Then Exit Sub
If ComboBox1.Value = "Ana Dosya Sayfa3" Then
Sheets("Sayfa3").Select
End If

If ComboBox1 = "" Then Exit Sub
If ComboBox1.Value = "Yan Dosya_1 Sayfa1" Then
Workbooks.Open Filename:="C:\Yan Dosya_1.xls"
Sheets("Sayfa1").Select
End If

If ComboBox1 = "" Then Exit Sub
If ComboBox1.Value = "Yan Dosya_2 Sayfa1" Then
Workbooks.Open Filename:="C:\Yan Dosya_2.xls"
Sheets("Sayfa1").Select
End If

If ComboBox1 = "" Then Exit Sub
If ComboBox1.Value = "Yan Dosya_2 Sayfa2" Then
Workbooks.Open Filename:="C:\Yan Dosya_2.xls"
Sheets("Sayfa2").Select
End If

End Sub


B Sütunundaki bilgilere gerek kalmadı. Direkt makroya ilave ettim.