MsgBox ve ComboBox ilişkisi hk.

[ocamsul]

Öncelikle herkese iyi akşamlar arkadaşlar. Sormak istediğim; MsgBox a ComboBox un AddItem bölümünü nasıl ekliyebilirim. Yani seçilmiş olan ComboBox içeriği CommandButton a tıklandığında MsgBox olarak uyarı verecek.

 

[Levent Menteşoğlu]

Öncelikle herkese iyi akşamlar arkadaşlar. Sormak istediğim; MsgBox a ComboBox un AddItem bölümünü nasıl ekliyebilirim. Yani seçilmiş olan ComboBox içeriği CommandButton a tıklandığında MsgBox olarak uyarı verecek.

Sorunuzda sanıyorum comboboxtan seçilen veriyi msgboxta göstermeyi kasdetmiyorsunuz. Kasdettiğiniz comboboxtaki listeyi tamamen msgboxta gösterip seçileni işaretlemekmi?

 

[ocamsul]

Sn: leventm üsdat tam olarak dediğiniz gibi.

 

[ileriexcel]

Private Sub ComboBox1_Change()
bak = ComboBox1.Value
MsgBox " " & bak
End Sub

 

[ocamsul]

SN: ileriexcel yardımınız için teşekkür ederim. sorumun cevabı aynen buydu.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Comboboxtan seçilen veriyi msgboxta tırnak işareti içinde gösterir.

Private Sub CommandButton1_Click()
For a = 0 To ComboBox1.ListCount - 1
If a = ComboBox1.ListIndex Then isaret = """"
deg = deg & Chr(10) & isaret & ComboBox1.List(a, 0) & isaret
isaret = ""
Next
MsgBox Right(deg, Len(deg) - 1)
End Sub

 

[Levent Menteşoğlu]

SN: ileriexcel yardımınız için teşekkür ederim. sorumun cevabı aynen buydu.

Bana verdiğiniz 3 nolu cevapla bu cevabınız çelişiyor.

 

[ocamsul]

Aşağıdaki kodu deneyin. Comboboxtan seçilen veriyi msgboxta tırnak işareti içinde gösterir.

Private Sub CommandButton1_Click()
For a = 0 To ComboBox1.ListCount - 1
If a = ComboBox1.ListIndex Then isaret = """"
deg = deg & Chr(10) & isaret & ComboBox1.List(a, 0) & isaret
isaret = ""
Next
MsgBox Right(deg, Len(deg) - 1)
End Sub

SN: leventm üsdat çok teşekkür ederim. Bu da anlatmak istediğimin cevabı anlamında farklı bir yol. İlginize ve yardımlarınıza çok teşekkür ederim üsdat.