Supaya lebih ringkas bisa juga mengganti 2 baris code ini *Cells(Target.Row, 2).Value = "=TODAY()"* Cells(Target.Row, 2) = Cells(Target.Row, 2).Value
dengan *Cells(Target.Row, 2).Value = Date* Thanks Ferry Pada 26 Juni 2013 11.31, hendrik karnadi <hendrikkarn...@yahoo.com> menulis: > ** > > > 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 > > > > > >
