Di script-nya mbak Siti sudah ada baris cek si item di-centang atau tidak.
Jika TRUE berarti di centang, FALSE gak dicentang. Jadi set balik menjadi
FALSE.
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)
* ListBox1.Selected(n) = FALSE*
End If
Next n
* 'kalau pakai script yang ini untuk clear centangan, baris yang di-bold
hitam gak diperlukan.
'listbox1.listfillrange=vbnullstring
'range("list").calculate 'bila perlu
kalkulasi ulang. siapa tahu berupa nama range dinamis dan calculation di set
manual
'listbox1.listfillrange="list"
*
End With
End Sub
'--------------
Mungkin jika nama range list berubah isinya (a jadi aku lapar), bisa jadi
gak berubah daftar listnya.
Jika sekalian mau cek, apakah ada perubahan di range referensinya, pakai
baris script yang hijau.
Kid.
2011/10/2 bagusejogja <[email protected]>
> **
>
>
> 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.
>
>
>
>
>
