Musti kudu harus dibuat jelas dulu: *CB1 itu makhluk apa ?*
Combobox/ListBox kah ? (karena anda memberlakukan method AddItem
terhadapnya
dan dikatakan ada property LIST dan LISCOUNT - nya. )
*atau Range kah *? (karena anda mendeklarasikan sebagai Range, dan juga
dipakai
untuk me-LOOP semua bagian Range dari Range
For Each* CB1* *In* Worksheets("MasterVendor").*Range("A2:A500")*
Paling gampang: tanya jawab soal data dan object, ya melampirkan contoh
nyata
kedua benda itu, jangan datang sebagai pendekar bertangan kosong belaka. he
he...
susah membayangkannya Bro...
(kecuali BILA : semua kata-kata dan penjelasan Bro pasti JELAS DAN LOGIS
serta tidak mengandung kesalahan sedikit pun) tidak seperti selama ini
banyak istilah
karangan sendiri...
By the way & by bus way...
mengisi combobox dengan Range Dinamis
Range -nya *jangan dicodekan secara Hard* seperti itu / Range("A2:A500")
tetapi
*set MyRange = Sheet1.Range("A2")*
*set MyRange = Range(MyRangae, MyRange.End(xlDown))*
Dengan cara itu akan didapat *range yg sesuai rangkaian cells yg ada
data-nya * saja
(Jika di kanan-kiri kolom ybs TIDAK ADA datanya, lebih praktis pakai
CURRENTREGION.)
jadi ketika di loop
*For R = 1 to MyRange.Rows.Count*
* Combobox1.AddItem MyRange(R,1)*
*Next R*
yg terisikan ke Combobox List hanya range A2:An saja, karena MyRange itu
Range Dinamis
(didapat sesaat sebelum diisikan sbg list di kombobox)
A2 dianggap BUKAN Heading (judul kolom)
CMIIW
*- i Haps -*
2012/1/25 Aliif Akbar <[email protected]>
> Selamat pagi BeExcel,
> Saya dapat formula VBA di internet seperti ini,
> Ini untuk mengisi dropdown combobox (CB1 itu naman comboboxnya),
>
> Private Sub UserForm_Initialize()
> Dim CB1 As Range
> Set rng = Worksheets("MasterVendor").Range("A1").CurrentRegion.Offset(1)
>
> For Each CB1 In Worksheets("MasterVendor").Range("A2:A500")
>
> With Me.CB1
> .AddItem CB1.Value
> .List(.ListCount - 1, 1) = CB1.Offset(0, 1).Value
> End With
>
> Next CB1
>
> End Sub
>
> Pertanyaan saya, dari formula diatas, maka CB1 akan mengisi dropdown dari
> referensi worksheet master vendor, di cell A2:A500, sedangkan jika yang
> terisi hanya di cell A1:A10 naka cell kebawahnya akan tetep masuk ke CB1 n
> kosong, bagaimana caranya agar jika yang terisi itu di cell A1:A10 maka
> yang terlihat itu saja, n jika ditambah lagi, maka akan bertambah juga di
> CB1,
> Demikian dari asror, terimakasih.
> Asror
>
>
