-
> *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
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
> 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
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
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
: 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
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
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
8 matches
Mail list logo