ok's banget.....tapi saya coba mengotak atik code setelah menekan tombol "gini
ya" data yang aktif pindah ke kolom dan data di listbox centrangnya menjadi
bersih blm bisa bisa, master stdev(i) mau menanyakan lagi;)... tq master...
________________________________
From: STDEV(i) <setiyowati.d...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Sunday, October 2, 2011 6:50 PM
Subject: Re: [belajar-excel] memindahkan listbox ke kolom
Mungkin begini...
Private Sub CommandButton1_Click()
'siti Vi / 2 okt 2011
Dim n As Integer, r As Integer
r = 1
With Range("H6")
.CurrentRegion.Offset(1, 0).ClearContents
For n = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(n) = True Then
r = r + 1
.Cells(r, 1) = ListBox1.List(n)
End If
Next n
End With
End Sub
'--------------
2011/10/2 bagusejogja <bagusejo...@yahoo.com>
>Salam temen temen pakar excel.... dulu file yang saya lampirkan pernah
>ditanyakan dan di jawab oleh master siti vi. Yang saya tanyakan lagi adalah
>bagiamana merubah codingnya jika hasil listboknya tidak terpisah dengan coma
>tertapi terpisah baris seperti di file terlampir. Terimakasih.
