[belajar-excel] Re: Entry data dengan satu form

Mon, 06 Feb 2012 00:15:37 -0800 

saya pake excel 2003 ( office 2003 )

--- In [email protected], herdin Sagala <herdins@...> wrote:
>
> 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 <hapsari.stlizbeth@...>
> 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 -
>

Kirim email ke