== 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
Mencocokan Bulan_Tahun Pada Form Control vs pada Sheet_cell (Ki Semprul).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
