Terima kasih banyak atas pencerahannya, Ki Semprul.....Terima kasih juga atas sarannyauntuk memeke DTPicker... Best Regards,
--- Pada Rab, 29/2/12, Ki Semprul <[email protected]> menulis: Dari: Ki Semprul <[email protected]> Judul: Re: [belajar-excel] Mencocokkan Control Pada Form dengan yang ada di sheet Kepada: [email protected] Tanggal: Rabu, 29 Februari, 2012, 6:47 AM == Userform Module == Dim YYMMbox As String, YYMMcel As String, InDate As Date Private Sub UserForm_Initialize() YYMMcel = Format(DateValue(Cells(5, 8)), "yyyyMM") End Sub Private Sub CommandButton1_Click() 'Ki Semprul - 29 feb 2012 Dim R As Long If YYMMcel = YYMMbox Then R = Cells(Rows.Count, 1).End(xlUp).Row If Not IsEmpty(Cells(R, 1)) Then R = R + 1 Range("A" & R).Value = DateValue(txt_Tgl.Value) txt_Tgl = "" txt_Tgl.SetFocus Else MsgBox "Anda Tak Diizinkan Untuk Memasukan Bulan & Tahun Tersebut", 48 End If End Sub Private Sub txt_Tgl_AfterUpdate() 'Ki Semprul - 29 feb 2012 On Error Resume Next InDate = DateValue(txt_Tgl) If InDate > 0 Then txt_Tgl = Format(InDate, "dd MMMM yyyy") YYMMbox = Format(InDate, "yyyyMM") Else MsgBox "Input di TextBox tidak valid sbg data Tanggal!", 48 End If End Sub Note: agar memasukkan data DATE selalu akurat, textbox di userform bisa dibantu oleh Userform berisi Calendar control; atau Textbox diganti dgn DTPicker control. Semprul..Ki! 2012/2/29 PT. ADHI KARYA (PERSERO) Tbk <[email protected]> > > Be Excel, > Aku coba utak-atik membuat suatu form inputan tanggal & bulan yang dilengkapi > dengan control pengawas. Sebetulnya keinginan saya begini : > > jika yang tertulis pada sheet 1 range H5 tertulis Bulan Februari 2011, maka > yang diizinkan untuk diinput pada form hanya bulan Februari 2011 saja, > artinya jika selain Bulan Februari 2011, maka keluar suatu peringatan untuk > menolak exekusi.... > > Tapi , sudah aku putar2 otak ne, ga bisa juga. Jadi jika para pakar XL > berkenan, bantulah saya untuk mencerahkan ilmuku yang lagi mampet ini yah... > > Aku juga lampirkan contoh filenya... > > Best Regard
