wah ....trima kasih sekali atas bantuannya.... Tapi satu lagi sy masih awam ttng VB.....andai kolomnya mau di tambah menjadi kolom 3-8 dan kolom 15 dan 20....dan target tanggalnya di kolom 21.....jadi gimana ya??? VBnya
asal ________________________________ Dari: Ferry Setiawan <fset2...@gmail.com> Kepada: belajar-excel@yahoogroups.com Dikirim: Rabu, 26 Juni 2013 11:43 Judul: Re: Fw: [belajar-excel] Tanggal Edit Input 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 > > > >