[belajar-excel] Digest Number 1504

Milis Belajar Microsoft Excel

Messages In This Digest (3 Messages)

1a.

Re: Entry data dengan satu form From: herdin Sagala

1b.

Re: Entry data dengan satu form From: herdin

1c.

Re: Entry data dengan satu form From: Ki Semprul

View All Topics | Create New Topic

Messages

1a.

Re: Entry data dengan satu form

Posted by: "herdin Sagala" herdins@yahoo.com   herdins

Sun Feb 5, 2012 11:17 pm (PST)

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@gmail.com>
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 -

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)

1b.

Re: Entry data dengan satu form

Posted by: "herdin" herdins@yahoo.com   herdins

Mon Feb 6, 2012 12:15 am (PST)

saya pake excel 2003 ( office 2003 )

--- In belajar-excel@yahoogroups.com, 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 -
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)

1c.

Re: Entry data dengan satu form

Posted by: "Ki Semprul" semprul.ki@gmail.com   ki_semprull

Mon Feb 6, 2012 12:22 am (PST)

nih dikasih ..
file yg sudah dikonversi ke XLS (workbook excel 2003)

*Semprul..Ki!*

2012/2/6 herdin <herdins@yahoo.com>

> **
>
> saya pake excel 2003 ( office 2003 )
>
> --- In belajar-excel@yahoogroups.com, 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
> > --
>
*
*

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)

Recent Activity

•  22
  New Members

Visit Your Group

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Cats Group

Join a group for

cat owners like you

Yahoo! Groups

Mental Health Zone

Mental Health

Learn More

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe