ComboBox AddItem'de ControlTipText...

[Ridan]

With combobox1
.AddItem ""
.AddItem "K"
.AddItem "G"
.AddItem "M"
End With

"K" KADROLU
"G" GEÇİCİ
"M" MÜNHAL

comboboxta ikinci sütunda yanında bu şekilde açıklamarı da görünsün istiyorum. Seçeceğimiz harf "K" ise sağ tarafındaki sütunda da açıklaması görünsün.

 

[hamzacan]

İstediğiniz olay bir formda mı olacak yoksa excel sayfasında mı?
Ekteki dosyayı inceleyiniz.

 

[Ridan]

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem ""
.AddItem "K"
.AddItem "G"
.AddItem "M"
End With
End Sub

olay formda olacak. ve de combobox'un ikinci sütununda açıklaması yer alacak şekilde. birinci sütunda listelenen veriler K, G, M. combobox'ta seçim yapmak için tıkladığımda gözükecekler.

combobox'un içinde şu şekilde gözükmeli;
K KADROLU
G GEÇİCİ
M MÜNHAL

 

[Ridan]

fikri gelen yok mu...

 

[hamitcan]

Anladığım kadarıyla...

Private Sub UserForm_Initialize()
    Dim myarr(0 To 2, 0 To 2) As String
    myarr(0, 0) = "K": myarr(0, 1) = "KADROLU"
    myarr(1, 0) = "G": myarr(1, 1) = "GEÇİCİ"
    myarr(2, 0) = "M": myarr(2, 1) = "MÜNHAL"
    ComboBox1.List = myarr
End Sub

 

[Ridan]

çok teşekkürler sayın hamitcan...istediğim buydu..