Combobox'a veri aktarılması sorunu

[Araştırıcı]

Herkese Merhaba,

Ekli dosyamdaki ComboBokslar için yazdığımız makro içersindeki veriler dosya kapatılıp tekrar açıldığında Combo Box içersine gelmiyor ya da combo açılmıyor. Her seferinde tekrar içine girip çalıştı düğmesine basmam gerekiyor. Bu neden oluyor, bunu düzeltmek için ne yazmak gerekecek.

İyi Çalışmalar

 

[hamitcan]

Sayfanın thisworkbook kısmına aşağıdaki kodu ekleyin.

Private Sub Workbook_Open()
Sheet2.Activate
Sheet1.Activate
End Sub

Aşağıdaki kodu da eskisi ile değiştirin

Private Sub Worksheet_Activate()
Dim c

ComboBox2.Text = ""
With ComboBox2
.AddItem "Karar Aşaması"
.AddItem "Plan-Proje Aşaması"
.AddItem "Mobilizasyon"
.AddItem "Temel"
.AddItem "Kaba Yapı"
.AddItem "İnce Yapı"
.AddItem "İç Dekorasyon"
.AddItem "Tefriş"
.AddItem "Bitmiş"
.AddItem "Durmuş"
End With
With ComboBox1
.AddItem "Metal"
.AddItem "Makina"
.AddItem "Maden"
.AddItem "Kimya"
.AddItem "Petro Kimya"
.AddItem "Plastik"
.AddItem "Enerji"
.AddItem "Elektrik Elektronik"
.AddItem "otomotiv"
.AddItem "Hayvancılık"
.AddItem "Tarım"
.AddItem "Gıda"
.AddItem "Ulaşım"
.AddItem "Telekominikasyon"
.AddItem "Eğitim"
.AddItem "Sağlık"
.AddItem "Turizm"
.AddItem "Bilişim"
.AddItem "Parakende"
.AddItem "Ağır Sanayi"
.AddItem "Sanayi"
.AddItem "İnşaat"
.AddItem "Gayrimenkul"
.AddItem "Çimento"
.AddItem "Finans"
.AddItem "Lojistik"
.AddItem "Orman Ürünleri"
End With
Sheets("Saha Tarama Raporu").[m1] = ComboBox1.Text
End Sub