Soru Listboxu tek hücreye yazdırma

[zulfuernek]

Butona tıklayınca Listbox1 deki veriyi A15 hücresine yazmasını istiyorum. Hücre boyutunu içerisindeki yazıya göre genişletsin veya listboxdaki tek sütun olan veriyi arasına noktalı virgül bırakarak yanyana yazsın

 

[zulfuernek]

Tek hücre dediğim birleştirilmiş bir hücre olarak dikkate alabilirsek daha sağlıklı olacaktır.

 

[çıtır]

Userform üzerine bir CommandButton ekleyiniz ve aşağıdaki kopyalayınız.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet: Dim i As Integer: Dim say As Integer: Dim b()
 Set s1 = Sheets("Sayfa1")
 s1.Range("A15").Cells.ClearContents
    For i = 1 To ListBox1.ListCount
        say = say + 1
            ReDim Preserve b(say)
            b(say - 1) = ListBox1.List(i - 1, 0)
            varConctnt = varConctnt & "," & b(say - 1)
    Next i
  s1.Range("A15") = Mid(varConctnt, 2)
End Sub

 

[çıtır]

Listbox1 çift tıkladığınızda çalışır.Çalışma kitabında Sayfa1 ve sayfa2 var.Kendinize göre ayarlayınız.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim s1 As Worksheet: Dim s2 As Worksheet: Dim i As Integer: Dim say As Integer: Dim b()
 Set s1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
 s1.Range("D1").Cells.ClearContents
    For i = 1 To ListBox1.ListCount
        say = say + 1
            ReDim Preserve b(say)
            b(say - 1) = ListBox1.List(i - 1, 0)
            varConctnt = varConctnt & "," & b(say - 1)
    Next i
  s1.Range("A15") = Mid(varConctnt, 2)
End Sub