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) <[email protected]> To: [email protected] 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 <[email protected]> >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.
