Sayfa üzeri combobox'un olayını değiştirme

[EKREM1661]

Arkadaşlar..! Ekte verdiğim örnekte; sayfa üzerine konmuş bir combobox kutusuna, verilerin yüklenebilmesi için çift tıklama gerekiyor..

Bunu tek tıklama ile yapamaz mıyız.?

 

[Mehmet Şahin]

Merhaba,
bence çift click yordamındaki kodları sayfanın activate olayına yazsanız daha iyi olur gibi

Private Sub Worksheet_Activate()
    Me.ComboBox1.Clear
    ComboBox1.AddItem ""
    ComboBox1.AddItem "E-POSTA"
    ComboBox1.AddItem "FAX"
    ComboBox1.AddItem "GÜNLÜ"
    ComboBox1.AddItem "İVEDİ"
    ComboBox1.AddItem "ÖNEMLİ"
    ComboBox1.AddItem "GİZLİ"
    ComboBox1.AddItem "TAKİPLİ"
    ComboBox1.AddItem "DAĞITIMLI"
    ComboBox1.AddItem "İADELİ-TAAHHÜTLÜ"
    ComboBox1.AddItem ""
End Sub

 

[mustafaine1]

sayfanin double click olayi yerine activate olayina filan yazarsaniz boyle bir tiklama ihtiyacina gerek duymazsiniz haa illa tiklamak istiyorsaniz click olayina yaziniz..

 

[Mehmet Şahin]

merhaba,
en doğrusu Workbook open kodu gibi gözüküyor.

Private Sub Workbook_Open()
With Sayfa1.ComboBox1
    .Clear
    .AddItem ""
    .AddItem "E-POSTA"
    .AddItem "FAX"
    .AddItem "GÜNLÜ"
    .AddItem "İVEDİ"
    .AddItem "ÖNEMLİ"
    .AddItem "GİZLİ"
    .AddItem "TAKİPLİ"
    .AddItem "DAĞITIMLI"
    .AddItem "İADELİ-TAAHHÜTLÜ"
    .AddItem ""
End With
End Sub

 

[EKREM1661]

Sn.dantex..! o zaman da bir başka sayfaya git-gel yapmak gerekiyor.. Ben istedim ki tek tık ile tamam olsun, yani işi kısaltmak istedim..Fakat clik olayında çalışmıyor..

 

[mustafaine1]

haklisiniz denemeden fikri belirttim ama workbookun open olayina yazabilirsiniz bence

O zaman sayfa degistirmek filan gerekli olmaz..

Private Sub Workbook_Open()
With Sayfa1.ComboBox1
    .Clear
    .AddItem ""
    .AddItem "E-POSTA"
    .AddItem "FAX"
    .AddItem "GÜNLÜ"
    .AddItem "I.VEDI."
    .AddItem "ÖNEMLI."
    .AddItem "GI.ZLI."
    .AddItem "TAKI.PLI."
    .AddItem "DAG(ITIMLI"
    .AddItem "I.ADELI.-TAAHHÜTLÜ"
    .AddItem ""
End With

End Sub

 

[EKREM1661]

Sn.dantex ve Sn Mustafa Bey..! Bu verdiğiniz fikir (Workbook_Open) daha isabetli oldu. Bu fikir beni amacıma ulaştırır gibi.. Bu nedenle teşekkür ediyorum ve başarılar diliyorum.. Hoşça kalınız..

 

[mustafaine1]

estafurullah bu konuyu kaldirarak bu kadar mesaj atmadigimizi gostersek unutalim bu konuyu... kolay gelsin..