RE: ]] XL-mania [[ Mengisi Data Time,Date secara otomatis

Mon, 10 Oct 2011 17:46:25 -0700 

Saya coba bantu pakai macro sbb:

Private Sub Worksheet_Change(ByVal Target As Range)
    'Jika yang berubah di kolom B
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        'jika kolom B tidak kosong, isikan tanggal dan jam
        'di satu kolom sebelah kiri
        If Not IsEmpty(Target) Then
            With Target.Offset(0, -1)
                .Value = Now()
                .NumberFormat = "m/d/yyyy h:mm"
            End With
        Else
            Target.Offset(0, -1) = vbNullString
        End If
    End If
End Sub

From: [email protected] [mailto:[email protected]] On Behalf
Of Pungki BERLIANTO
Sent: Saturday, October 08, 2011 11:27 AM
To: [email protected]
Subject: ]] XL-mania [[ Mengisi Data Time,Date secara otomatis

Dear Para suhu EXEL Mania,

Saya ada pertanyaan tentang bagaimana cara mengisi data Time,Date (kolom A)
terakhir saat kita memasukkan data terakhir di kolom sebelahnya (Kolom B).
Lebih jelasnya saya sertakan pada attachment file.

Terima kasih atas Pertolongan

                                                           

Attachment: Copy of Record Latest data.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Kirim email ke