Combobox larıma otomatik tamamlama nasıl yapabilirim?

[Emine Şahin]

Forumda baktım ama, anlayabileceğim düzeyde bir şey bulamadım.
Yardımınızı rica ediyorum.
Userforum üzerine bir kaç farklı combobox ekledim.
Bunlardan biri "evet" ve "hayır" şeklinde dolu yapmak istiyorum.
Bir diğeri Ödeme Birimi "TL, EURO, DOLAR" gibi.
Yine bir başkaşı; Nakit, Kredi Kartı, Çek gibi...

Böyle bir kaç tane daha var.
Uygun bir formül bulamadım. Bir örnek olursa devamını halledebilirim sanıyorum.

 

[Orion1]

Buyurun

combobox1.additem "Evet"
combobox1.additem "Hayır"
combobox1.text="Evet"

 

[Emine Şahin]

Kodu yerleştirdim "e" harfine tıklayınca otomatik olarak evet yazdı.
Ancak, değiştirmek maksadı ile bütün uğraşlarım boşa çıktı. Ayrıca alt alta bir sürü "evet, hayır" şeklinde haddinden fazla oluştu. Mause ile seçtiğim halde yine eveti hayıra çeviremedim?

 

[Orion1]

Kodu yerleştirdim "e" harfine tıklayınca otomatik olarak evet yazdı.
Ancak, değiştirmek maksadı ile bütün uğraşlarım boşa çıktı. Ayrıca alt alta bir sürü "evet, hayır" şeklinde haddinden fazla oluştu. Mause ile seçtiğim halde yine eveti hayıra çeviremedim?

Bu kodu userformun initialize olayına yazmalısınız.

 

[Emine Şahin]

Bu kodu userformun initialize olayına yazmalısınız.

Ben çok Fransızım hocam. initalize nedir bilemiyorum ama, comboboxıma tıkladığımda karşıma gelen

"Private Sub CommandButton1_Click()
KODLARI BURAYA YAPIŞTIRDIM
End Sub"

arasına yerleştirdim. Yanlış mı yaptım acaba?

 

[Orion1]

Ben çok Fransızım hocam. initalize nedir bilemiyorum ama, comboboxıma tıkladığımda karşıma gelen

"Private Sub CommandButton1_Click()
KODLARI BURAYA YAPIŞTIRDIM
End Sub"

arasına yerleştirdim. Yanlış mı yaptım acaba?

bu kodu yapıştırınız.dieğr,ini siliniz.

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Evet"
ComboBox1.AddItem "Hayır"
ComboBox1.Text = "Evet"
End Sub

 

[Emine Şahin]

Hocam çok özür dilerim ben beceremedim sanırım.
Textboxlarımdan birine otomatik tarih gelmesi için

Private Sub UserForm_Initialize()

diye bir kod dizini kullanmıştım. Çakışmamı mı oluyor nedir. Hata verip duruyor.
Ama sizin verdiğiniz

combobox1.additem "Evet"
combobox1.additem "Hayır"
combobox1.text="Evet"

bu kodları

combobox1.additem "Evet"
combobox1.additem "Hayır"
combobox1.additem="Evet"

diye yazınca oluyor. Ama o aşağı doğru uzamasını çözemedim. 8 ya da 10 dan fazla çoğalıyor...

 

[Orion1]

Hocam çok özür dilerim ben beceremedim sanırım.
Textboxlarımdan birine otomatik tarih gelmesi için

Private Sub UserForm_Initialize()

diye bir kod dizini kullanmıştım. Çakışmamı mı oluyor nedir. Hata verip duruyor.
Ama sizin verdiğiniz

combobox1.additem "Evet"
combobox1.additem "Hayır"
combobox1.text="Evet"

bu kodları

combobox1.additem "Evet"
combobox1.additem "Hayır"
combobox1.additem="Evet"

diye yazınca oluyor. Ama o aşağı doğru uzamasını çözemedim. 8 ya da 10 dan fazla çoğalıyor...

başka bir yerden initialize olayını çağırmayınız.
Görünen odur ki siz başka bir yerde call ile userformun initialize olayını çağırıyoesunuz.

 

[Emine Şahin]

Tarih için olanı kaldırdım ve verdiğiniz aşağıdaki kodları uyguladım.

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Evet"
ComboBox1.AddItem "Hayır"
ComboBox1.Text = "Evet"
End Sub

Çok güzel oldu. Elinize sağlık. Ancak otomatik tarih (o günün tarihi) nasıl ekleyeceğim. Yada diğer comboboxlarıma da otomatik doldurma yaparken "Private Sub UserForm_Initialize()" kullanamayacak mıyım?

 

[Orion1]

Tarih için olanı kaldırdım ve verdiğiniz aşağıdaki kodları uyguladım.

Private Sub UserForm_Initialize()
me.caption=format(date,"dd mmmm yyyy dddd")
ComboBox1.AddItem "Evet"
ComboBox1.AddItem "Hayır"
ComboBox1.Text = "Evet"
End Sub

Çok güzel oldu. Elinize sağlık. Ancak otomatik tarih (o günün tarihi) nasıl ekleyeceğim. Yada diğer comboboxlarıma da otomatik doldurma yaparken "Private Sub UserForm_Initialize()" kullanamayacak mıyım?

initialize olayı userform açılırken kullanılır(yani bir kere)
userformun captionuna ben yukarıdaki initialize olayına yazdım.o koduda ilave ediniz.

 

[Emine Şahin]

userformun captionuna ben yukarıdaki initialize olayına yazdım.o koduda ilave ediniz.

Hocam özür dilerim ben bu ifadenizden bir şey anlamadım. Daha doğrusu teknik ifadeleriniz beni çok yoruyor. Ne varki anladığım kadarı ile bu kod dizini altına comboboxımın adını değiştirerek devam edebilirim değil mi?

Örneğin;

Private Sub UserForm_Initialize()
ComboBox1.AddItem "TL"
ComboBox1.AddItem "EURO"
ComboBox1.AddItem "DOLAR"
ComboBox1.Text = "TL"
ComboBox2.AddItem "KK"
ComboBox2.AddItem "CE"
ComboBox2.AddItem "NK"
ComboBox2.Text = "NK"
End Sub

 

[Orion1]

Evet edebilirsiniz.

Hocam özür dilerim ben bu ifadenizden bir şey anlamadım. Daha doğrusu teknik ifadeleriniz beni çok yoruyor. Ne varki anladığım kadarı ile bu kod dizini altına comboboxımın adını değiştirerek devam edebilirim değil mi?

Örneğin;

Private Sub UserForm_Initialize()
ComboBox1.AddItem "TL"
ComboBox1.AddItem "EURO"
ComboBox1.AddItem "DOLAR"
ComboBox1.Text = "TL"
ComboBox2.AddItem "KK"
ComboBox2.AddItem "CE"
ComboBox2.AddItem "NK"
ComboBox2.Text = "NK"
End Sub