Kalau mau pake block With ... End Width maka codenya menjadi seperti ini: Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column >= 3 And .Column <= 8 Then If .Row > 3 Then If .Count = 1 Then Cells(.Row, 2).Value = "=TODAY()" Cells(.Row, 2) = Cells(.Row, 2).Value End If End If End If End With End Sub
Perhatikan tanda . (titik) sebelum property (Column, Row). Salam, HK ---------------------------------------------------------- ----- Forwarded Message ----- From: hendrik karnadi <hendrikkarn...@yahoo.com> To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com> Sent: Wednesday, 26 June 2013, 10:44 Subject: Re: [belajar-excel] Tanggal Edit Input Coba copas macro ini di VBE Sheet1, Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column >= 3 And Target.Column <= 8 Then If Target.Row > 3 Then If Target.Count = 1 Then Cells(Target.Row, 2).Value = "=TODAY()" Cells(Target.Row, 2) = Cells(Target.Row, 2).Value End If End If End If End Sub Jangan lupa save as sebagai file macro dan aktifkan macronya sebelum dijalankan. Salam, HK ________________________________ From: agus salim <agsali...@yahoo.co.id> To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com> Sent: Wednesday, 26 June 2013, 9:57 Subject: [belajar-excel] Tanggal Edit Input Dear All Mohon dibantu mungkin ini hampir sama dengan yg pernah dipermasalahin di miling list ini....tapi ini sedikit berbeda, seperti file terlampir : - Kita ingin mengetahui kapan data tersebut di input ataupun di edit.... - Di situ merupakan data stock Barang - Nah bagaimana membuat di kolom B otomatis muncul tanggal sesuai tanggal input/edit ...jika salah satu di kolom C-H di input data atau di edit datanya trima kasih asalim
