cara 1
Private Sub UserForm_Initialize()
Dim i As Integer, Daftar As Range
Set Daftar = Sheet2.Range("B5")
Set Daftar = Range(Daftar, Daftar.End(xlDown))
ComboBox1.Clear
For i = 1 To Daftar.Rows.Count
ComboBox1.AddItem Daftar(i, 1)
Next i
' variasi lain Loop For Next diganti Do - While atau pun While - End
' tentunya tekniknya agak berbeda
End Sub
'-- Cara Lain
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sheet2!B5:B32"
' (jika daftar bertambah, tidak otomatis dikenal oleh makro)
End SUb
Masih banyak cara, harus melihat dulu Seperti apa keadaan rang yg akan
dirujuk
(misal: apakah "terpisah dari data lain di sekitarnya atau tidak)
Tanpa lampiran contoh, jawaban tidak bisa didfokuskan ke keperluan yg
khusus.
2011/7/17 MAMUDA PONTIM <[email protected]>
> **
> Mohon pencerahan dari para pakar, bagaimana cara mengisi list dri ComboBox
> User Form dengan data yang ada di sheet?
> . Sehingga ketika data di sheet diubah, maka list di combo Box juga
> berubah. Terima kasih sebelumnya
>
>
>
