-
> *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
gt;
> Perhatikan tanda . (titik) sebelum property (Column, Row).
>
> Salam,
> HK
> --
>
> - Forwarded Message -
> *From:* hendrik karnadi
> *To:* "belajar-excel@yahoogroups.com"
> *Sent:* Wednesday, 26 June 2013, 10:44
> *Subject:* Re: [belajar-excel] T
- Forwarded Message -
From: hendrik karnadi
To: "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 >
t;
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 initapi ini sedikit berbeda, seperti file terlampir :
- Kita ingin mengetahui kapan data tersebut di input
Dear Agus Salim
Assalamualaikum
Sesama Agus dilarang saling mendahului..
Saya coba ambil threat yang sudah pernah di bahas di milis menggunakan
makro (VBA)
untuk menggunakannya silahkan macronya dihidupkan dulu,
tanggal yang tertulis berukut jamnya, jika ingin jamnya dibuang ubah kode
*"dd
Pastikan input dilakukan dengan cara entry satu per satu baris ketika
menggunakan script event change dari De Premor yang berbunyi :
If (Target.Column >= 3 And Target.Column <= 8) Then Cells(Target.Row, 2) =
Now()
berhubung hanya sekedar dugaan saja, maka cmiiw
Wassalam,
Kid.
2013/6/26 De Prem
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column >= 3 And Target.Column <= 8) Then Cells(Target.Row, 2)
= Now()
End Sub
On 26/06/2013 9:57, agus salim wrote:
Dear All
Mohon dibantu mungkin ini hampir sama dengan yg pernah dipermasalahin
di miling list initapi ini se
Dear All
Mohon dibantu mungkin ini hampir sama dengan yg pernah dipermasalahin di miling
list initapi 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
13 matches
Mail list logo
