ComboBox While wend

[ggggiz]

Arkadaşlar ComboBox da seçtiğim bir ismi CommandButton a Wend-While kodu ile nasıl yazabilirim

 

[Korhan Ayhan]

Merhaba,

"CommandButton" a yazmak ifadesinden ne anlamalıyız. Eğer amacınız ComboBox nesnesinden seçtiğiniz ismi Buton üzerine yazdırmaksa aşağıdaki kod işinizi görecektir.

Private Sub ComboBox1_Change()
    Me.CommandButton1.Caption = ComboBox1.Text
End Sub

 

[ggggiz]

Merhaba
ekteki gibi
örneğin tablodan ayşe adını seçtim... Bu ayşe adını da yandaki tabloya ekle dediğimde geçmesini sağlıcm..Daha sonra da seçtiğim her işlem için yapcm

 

[ggggiz]

Arkadaşlar yardımcı olabilir misiniz işin içinden cıkamıyorum

açıklayıcı olarak a sutunundaki isimleri Combobox a ekliyorum. Bir isim seçiyorum Combobox tan ve bunu da E sutuna yazdırmak istiyorum.Seçtiğim her isim için command button a ekle dediğimde E sutunana eklenecek.. işin içinden çıkamadım

 

[Korhan Ayhan]

Aşağıdaki kodu deneyin.

Private Sub CommandButton1_Click()
    Cells(Rows.Count, "H").End(3).Offset(1, 0) = Me.ComboBox1.Text
End Sub

 

[mancubus]

Ekle butonu ile A sütunundaki verileri Combo'ya yüklemek, Seçilen ismi Tabloya ekle butonu ile combo değerini H sütunundaki ilk boş satıra yazdırmak istiyorsunuz.

tüm kodları silerek aşağıdakileri ekleyin.

Private Sub CommandButton1_Click()
    Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Value = ComboBox1.Value
End Sub

Private Sub CommandButton2_Click()
    Dim ss As Long
    ss = Range("A" & Rows.Count).End(xlUp).Row
    ComboBox1.Clear
    ComboBox1.List = Range("A2:A" & ss).Value
End Sub

Not: While-Wend bir döngü olup, aslında, ihtiyacınızla bir ilgisi bulunmamaktadır.
benim eklediğim CommandButton2_Click kodu yerine dosyanızda bulunan kodda aynen kullanılabilir.
dolayısı ile açtığınız konuya seçtiğiniz başlık ihtiyacınızı yansıtmamaktadır.