Private Sub cmdSaveDatabase_Click()
'----------------------------------
' ModifiedBy: Markonah, Jun 23 2012
'----------------------------------
Dim lRowsDB As Long
If LenB(Me.Range("A2").Value) > 0 Then
' buat ngesave (saya belum tahu: *"nge"* itu "termasuk awalan Ya ?)
Me.Range("E2").Value = Now
Me.Range("E2").NumberFormat = "dd-mmm-yyyy hh:mm:ss"
lRowsDB = Sheet2.Range("a1").CurrentRegion.Rows.Count
Me.Range("A2:E2").Copy
Sheet2.Range("a1").Offset(lRowsDB).PasteSpecial 12
Me.Range("A2:E2").ClearContents
MsgBox "Sip sip sip", vbInformation
End If
End Sub
'----------------------
*2012/6/23 lapendosol opik <[email protected]>
*
>
> * *
> *Mohon bantuannya para master excel*
> *Saya mau buat history waktu, ketika saya pencet tombol simpan, maka akan
> tercatat waktu saat pencet tombol kedalam sebuah cell. File terlampir untuk
> penjelasan dari pertanyaan saya. Trimakasih sebelumnya*
>
>
>
