Koşullu veri aktarmak

[ismailkaymaz]

Değerli Hocalarım,
Siteniz sayesinde vba ve makrolara merak sardım. Şu an yeniyim kusurum olursa affınıza sığınıyorum.
userform3 üzerindeki Lİstbox1'den listbox2'ye eklediğim değerlerin Combobox1'de seçtiğim ismin satırına kaydetmek istiyorum.
İyi çalışmalar

 

[Ayhan Ercan]

Merhaba,

Örnek dosyanızdaki Commandbutton1 (Ekle) butonunun kodunu aşağıdaki gibi değiştirerek deneyiniz...

Private Sub CommandButton1_Click()
ListBox2.AddItem ListBox1.Value
ListBox1.RemoveItem ListBox1.ListIndex
For i = 0 To ListBox2.ListCount - 1
Cells(ComboBox1.ListIndex + 1, i + 3) = ListBox2.List(i)
Next
End Sub

Not: Userform_Initialize ye de ; ComboBox1.Value = Sheets(3).Range("B1") yi ilave edin.

 

[ismailkaymaz]

Sayın Ayhan ERCAN;
Bir haftadır bu konu için forumu taramaktan helak oldum. Çok acemiyim bu konuda.
Zaman ayırıp yardımcı olduğunuz için çok teşekkür ederim.

 

[Ayhan Ercan]

Sayın Ayhan ERCAN;
Bir haftadır bu konu için forumu taramaktan helak oldum. Çok acemiyim bu konuda.
Zaman ayırıp yardımcı olduğunuz için çok teşekkür ederim.

Rica ederim.
İyi Çalışmalar...