Terima kasih Mbak Rara. Alhamdulillah, combo box sudah berjalan dengan baik. Tetapi kok gak ngefek ya sama tabel. Udah saya klak klik di combo box-nya tetapi sang tabel diam membatu? Kenapa ini terjadi?
Mohon bantuannya? --- On Mon, 6/25/12, Rara Wilis <[email protected]> wrote: From: Rara Wilis <[email protected]> Subject: Re: [belajar-excel] Mohon Dibantu: Membuat Kotak Combo Dinamis To: [email protected] Date: Monday, June 25, 2012, 7:58 AM maaf, koreksi sedikitpada bagian Loop : For i - Next i, sebarusnya seperti ini For i = LBound(UniqList) To UBound(UniqList) t = t & UniqList(i) & ","Next iFmlTxt = Left(t, Len(t) - 1) Pembuangan KOMA terkanan pada variable t dilakukan setelah loop selesai !! gitu loch... 2012/6/25 Rara Wilis <[email protected]> priiiittttt... pak guru kena tilang: fie kegedean he he he, untung pak polisinya sedang shalat... lihat lampiran; lihat prosedur di module 2 Sub CreateDropDownUniqList()' Rara / 25 Jun 2012'------------------- Dim MasterPensiun As Range, FmlTxt As StringDim i As Long, t As String, UniqList Set MasterPensiun = Sheets("MASTER").Range("L12")Set MasterPensiun = Range(MasterPensiun, MasterPensiun.End(xlDown)) UniqList = LOUV(MasterPensiun)For i = LBound(UniqList) To UBound(UniqList) t = t & UniqList(i) & ","FmlTxt = Left(t, Len(t) - 1) NextWith Sheets("PAKAI-FORMULA").Range("B5").Validation .Delete.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _Operator:=xlBetween, Formula1:=FmlTxt .IgnoreBlank = True: .InCellDropdown = True .InputTitle = "": .ErrorTitle = "".InputMessage = "": .ErrorMessage = "" .ShowInput = True: .ShowError = TrueEnd With End Sub
