ma kasih bu hapsah...tapi maaf kok file attached nya ngga bisa dibuka diexcel..
========================================== Mods Note: di komputer mod, lampirannya bisa jalan dgn baik (DATABASE_DAERAH (modified form - iHaps V2).xlsm) Exel (MS Office) pak Herdi, Versi apa ? ========================================== ________________________________ From: i Haps <[email protected]> Sent: Friday, 3 February 2012, 15:17 maap, koreksi dikit... makro itu sebelumnya ditulis di Module-Standard; dan ketika dipindah ke Module UserForm "FORMDATA" harusnya ada keywords yg bisa dihilangkan, TAPI LUPPAA.. (walaupun tetap jalan mulus..) Setelah diringkas menjadi spt ini Private Sub CmdSIMPAN_Click() ' coded by ibu Hapsah, penjual gado² gang sebelah ' ------------------------------------ Dim NewRec As Range, oCtr As MSForms.Control If Not Cbo_Daerah.Value = vbNullString Then Set NewRec = Sheets(Cbo_Daerah.Value).Cells(1) Set NewRec = NewRec(Rows.Count, 1).End(xlUp).Offset(1, 0) NewRec(1, 1) = txt_noagenda NewRec(1, 2) = DateValue(txt_Tgl_Masuk) NewRec(1, 3) = txt_nopengantar NewRec(1, 4) = DateValue(txt_Tgl_Pngntar) NewRec(1, 5) = CDbl(txt_jumlah) NewRec(1, 6) = Cbo_Daerah NewRec(1, 7) = txt_nopengantar_hg NewRec(1, 8) = txt_pertimbangan NewRec(1, 9) = DateValue(txt_Tgl_Acc) NewRec(1, 10) = CDbl(txt_MS) NewRec(1, 11) = CDbl(txt_BTL) NewRec(1, 12) = CDbl(txt_TMS) For Each oCtr In Controls If TypeName(oCtr) = "TextBox" _ Then oCtr = vbNullString Next oCtr Cbo_Daerah.ListIndex = -1 Else MsgBox "Daerah belum diterntukan !" End If End Sub '----------- Oh tadi lupa bilang, TextBox "DAERAH" buatan Herdin kita ubah menjadiComboBox Dan Si Combo ini ketika Userform mendapat event Init, diisi dengan daftar Sheet selain Sheet "LAPORAN". Nantinya nama nama Daerah tidak perlu diketikkan, hanya perlu dipilih dari DropDownList milik si Combo itu... - iHaps -
