Re: Bls: Fw: [belajar-excel] Tanggal Edit Input

2013-06-26 Terurut Topik De Premor
- > *From:* agus salim <mailto:agsali...@yahoo.co.id>> > *To:* "belajar-excel@yahoogroups.com > <mailto:belajar-excel@yahoogroups.com>" > <mailto:belajar-excel@yahoogroups.com>> > *Sent:* Wed

Re: Bls: Fw: [belajar-excel] Tanggal Edit Input

2013-06-26 Terurut Topik hendrik karnadi
Terima kasih Mr. Kid atas tambahan ilmunya. Salam, HK From: Mr. Kid To: BeExcel Sent: Wednesday, 26 June 2013, 14:55 Subject: Re: Bls: Fw: [belajar-excel] Tanggal Edit Input   Mumpung ada contoh script Pada script : (bagian IF .Column sampai End IF

Re: Bls: Fw: [belajar-excel] Tanggal Edit Input

2013-06-26 Terurut Topik Mr. Kid
> End If > End With > End Sub > > Salam, > HK > > -- > *From:* agus salim > *To:* "belajar-excel@yahoogroups.com" > *Sent:* Wednesday, 26 June 2013, 13:25 > *Subject:* Bls: Fw: [belajar-excel] Tanggal Edit Inpu

Bls: Bls: Fw: [belajar-excel] Tanggal Edit Input

2013-06-26 Terurut Topik agus salim
trimakasihsekali lagitrima kasih Dari: hendrik karnadi Kepada: "belajar-excel@yahoogroups.com" Dikirim: Rabu, 26 Juni 2013 14:19 Judul: Re: Bls: Fw: [belajar-excel] Tanggal Edit Input   coba copas macro ini, Private Sub Worksheet_Ch

Re: Bls: Fw: [belajar-excel] Tanggal Edit Input

2013-06-26 Terurut Topik hendrik karnadi
ue = Date                     End If                 End If         End If     End With End Sub Salam, HK From: agus salim To: "belajar-excel@yahoogroups.com" Sent: Wednesday, 26 June 2013, 13:25 Subject: Bls: Fw: [belajar-excel] Tanggal Edit Input

Bls: Fw: [belajar-excel] Tanggal Edit Input

2013-06-25 Terurut Topik agus salim
: 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(Tar

Re: Fw: [belajar-excel] Tanggal Edit Input

2013-06-25 Terurut Topik Ferry Setiawan
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 menulis: > ** > > > Kalau mau pake block Wit

Fw: [belajar-excel] Tanggal Edit Input

2013-06-25 Terurut Topik hendrik karnadi
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 = "=TO