Dear Master-master Excel,
Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan masih
saja salah
Private Sub UserForm_Initialize()
dtpJual.Value = Now
' mengenali tabel referensi
Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0)
Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0)
tRows = Tbl.Rows.Count - 1
trows2 = Tbl2.Rows.Count - 1
' mengisi list pada KomboKategori
sUniq = "|"
sUniq2 = "ll"
For i = 1 To tRows
' mengambil UniqValues -nya, dgn cara primitif..
If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then
sUniq = sUniq & Tbl(i, 2) & "|"
cmbKategoriJ.AddItem Tbl(i, 2)
End If
Next i
For ii = 1 To trows2
If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll") = 0 Then
sUniq2 = sUniq2 & Tbl2(i, 2) & "ll"
cmbJenisMotor.AddItem Tbl2(i, 2)
End If
Next ii
txtPelanggan.SetFocus
End Sub
Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori barang
(cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi otomatis
sesuai tabel referensinya
Trimakasih sebelumnya
Wassalam,
