Sayfa ilk açılışta ComboBox kutusunun içerisini doldursun

[ASLAN7410]

Merhaba hayırlı geceler arkadaşlar.

Ekte gönderdiğim excel sayfasında, sayfayı nasıl kaydedersem edeyim, sayfayı ilk açtığım zaman ComboBox kutusunun içerisinin --- çizgi şekilde görünmesini istiyorum.

Yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.
Workbook open kod'unu aşağıdaki şekilde değiştirin.
Tırnak içerisindeki değer Açılır Listenin veri kaynağındaki ilk değer,
hücre adı ise bağlantı kurduuğunuz hücre adı olmalı.

Private Sub workbook_open()
Range("H9") = "---"
End Sub

 

[ASLAN7410]

Ömer Bey ilginize çok teşekkür ederim, bu kodu örnek dosyama uyguladığım zaman güzel çalışıyor.
Ancak kendi orjinal dosyama uyguluyorum, sayfayı kaydederken ComboBox içerisindeki kelime ne kaldı ise yine onu gösteriyor. Bunu nasıl çözerim.

 

[Ömer BARAN]

Kaydederek kapattığınıza emin misiniz?
Tabi hücre bağlantı adresini de kontrol etmelisiniz.

 

[ASLAN7410]

Ömer Bey, sayfamı özellikle kontrol ettim, bağlantı hücresinide kontrol ettim, hepsi normal, kaydediyorum yine ne kayıtlı kaldı ise yine ComboBox içerisi yine aynı gözüküyor.

 

[Ömer BARAN]

Aşağıdaki kodu workbook kısmına;
Koddaki sayfa adı açılır listenin olduğu sayfa dışında bir sayfa olsun.

Private Sub Workbook_Open()
Sheets("Sayfa3").Activate
End Sub

Aşağıdakini de açılır listenin bulunduğu sayfanın kod bölümüne uygulayın.

Private Sub Worksheet_Activate()
Range("H9") = "---"
End Sub

 

[ASLAN7410]

Ömer Bey yukarıdaki yeni koduda orjinal dosyama uyguladım, hücre bağlantı adresinide kontrol ettim, sayfalar arasında gezinme yaptım ancak bir türlü olmadı.

 

[Ömer BARAN]

Son iki cevabıma tekrar bakın, değişiklik yapmıştım galiba.
Son haliyle sorun olmaması lazım.

 

[ASLAN7410]

Şimdi onu uyguluyordum, maalesef yine olmadı.

 

[ASLAN7410]

Hücresinin içerisini yazıyor, ancak ComboBox içerisi --- görünmüyor, önceki kayıt ne ise o görünüyor.

 

[ASLAN7410]

Ömer Bey, açılışta hücre içerisini yazması değilde, direk ComboBox içerisini --- yazması olur mu?

 

[ASLAN7410]

Sayın Ömer Bey sorunu çözdüm.

Ofis 2007 excel sayfasındaki ComboBox1'un özelliklerindeki Style karşısındaki kutu içerisini 2-fmStyleDropDownList seçili bu vaziyette iken herşey normal çalışıyor, tam istediğim gibi.

Ancak yukarıdakinin aynısı Ofis 2013 excel sayfasında denediğimde style karşısındaki kutu içerisini 0-fmStyleDropDownCombo seçtiğimde, tam benim istediğim gibi sayfanın ilk açılışında ComboBox içerisi --- görünüyor.

Bu şekildede ComboBox içerisine birşeyler yazılabiliyor, ben ComboBox içerisine yazı yazılmasınıda engellemek istiyorum.

 

[Korhan Ayhan]

Bu şekilde deneyin...

ThisWorkbook bölümüne uygulayın.

Combobox nesnesinin Style özelliğini "2 - fmStyleDropDownList" olarak ayarlayın.

Private Sub Workbook_Open()
    Sheets("Sayfa1").Select
    Sheets("Sayfa1").ComboBox1.Value = "---"
End Sub

 

[ASLAN7410]

Vardiyalı çalıştığım için ancak bilgisayar başına geçebildim.

Korhan Bey çok teşekkür ederim güzel olmuş elinize sağlık, hayırlı çalışmalar.