Selasa, 25 Juni 2013

[belajar-excel] Digest Number 2380

15 New Messages

Digest #2380
1a
Re: VBA untuk Tanggal by "Ahmad Adriansyah"
1b
Re: VBA untuk Tanggal by "Mr. Kid" nmkid.family@ymail.com
1c
Re: VBA untuk Tanggal by "Ahmad Adriansyah"
2a
Re: rumus excel posisi terakhir ada di siapa by "Mr. Kid" nmkid.family@ymail.com
3a
Tanggal Edit Input by "agus salim" agsalimtu
3b
3c
Re: Tanggal Edit Input by "Mr. Kid" nmkid.family@ymail.com
3d
Re: Tanggal Edit Input by "nangAgus" nangagoez
3e
Re: Tanggal Edit Input by "hendrik karnadi" hendrikkarnadi
3f
Fw: [belajar-excel] Tanggal Edit Input by "hendrik karnadi" hendrikkarnadi
3g
Re: Fw: [belajar-excel] Tanggal Edit Input by "Ferry Setiawan" ferry_2005_skom
4
Create Your Own Shortcut Key by "Ferry Setiawan" ferry_2005_skom
5a
Bls: [belajar-excel] Vlookup berdasarkan row dan colom by "jajang muhammad siddik" jajang_ms

Messages

Tue Jun 25, 2013 6:33 pm (PDT) . Posted by:

"Ahmad Adriansyah"

Terima kasih Om Kid,
Sesuai dengan harapan, namun Om ada sedikit problem yaitu :

1. Misalnya kita input 2013-04-03 maka data yang dihasilkan sesuai (karena informasi inputnya yyyy-mm-dd), namun jika kita input 13/4/3 maka akan menghasilkan 2003-04-13. Selain itu, data yang diinput menghasilkan data text, bukan data tanggal.

2. Misalnya kita input 12/4/3, yang dihasilkan adalah 2003-04-12, kemudian pada input End Date 3/4/12, yang dihasilkan adalah 2012-04-03. Hal ini menimbulkan End Date < Start Date.

Kira2 Om, untuk mengantisipasi inputan seperti ini (user inputnya 2012-03-04, atau 12/3/4, atau 12/03/04, maka tetap menghasilkan date value 04 Maret 2012), bagaimana ya Om solusinya. Terima kasih.

Saya tambahkan dengan sedikit kode (.value), supaya hasil pada sheet menghasilkan "datevalue&quot; :

----------------------------------------------------------
Private Sub cmdMisal_Click()
Dim LastRow As Range, Respons, Ctrl As Control
On Error Resume Next
Set LastRow = Sheet1.Range("C1000";).End(xlUp)
With LastRow
.Cells(2, 0) = txtTglStart.Value: .Cells(2, 1) = txtTglEnd.Value:
End With
Respons = MsgBox("Data masuk dengan sukses", vbInformation, "Ahmad Entry Form")
End Sub
----------------------------------------------------------

Regards,
AA

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 6:45
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal

Coba file terlampir.
Wassalam,
Kid.

2013/6/25 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id<mailto:ahmad.adriansyah@trac.astra.co.id>>

Dear Rekan2 Be-Excel,
Klik kanan dan pilih "FormShow";
1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai pada textbox1 (harus data tanggal)
2. Text box harus diisi dengan data tanggal minimal (dd/mm/yy)

Problem :
1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh pada bulan dan tahun.
Contoh :
Textbox1 diisi : 13/2/13
Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih kecil karena dia hanya membaca tanggal)
2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jika user mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak ada tanggal 31 Juni.

Bagaimana solusinya?

Regards,

AA

Tue Jun 25, 2013 6:41 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

hehehe.... usernya boleh ngisi seenaknya kok aplikasinya ndak boleh
menafsirkan seenaknya ?
gak fair kali ya...

kira-kira, kalau saya input :
10/11/12
Anda akan menduga yang saya maksud tanggal berapa ?

Wassalam,
Kid.

2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id>

> Terima kasih Om Kid,****
>
> Sesuai dengan harapan, namun Om ada sedikit problem yaitu :****
>
> **1. **Misalnya kita input 2013-04-03 maka data yang dihasilkan
> sesuai (karena informasi inputnya yyyy-mm-dd), namun jika kita input
> 13/4/3 maka akan menghasilkan 2003-04-13. Selain itu, data yang diinput
> menghasilkan data text, bukan data tanggal. ****
>
> **2. **Misalnya kita input 12/4/3, yang dihasilkan adalah2003-04-12,
> kemudian pada input End Date 3/4/12, yang dihasilkan adalah 2012-04-03.
> Hal ini menimbulkan End Date < Start Date.****
>
> ** **
>
> Kira2 Om, untuk mengantisipasi inputan seperti ini (user inputnya2012-03-04,
> atau 12/3/4, atau 12/03/04, maka tetap menghasilkan date value 04 Maret2012),
> bagaimana ya Om solusinya. Terima kasih.****
>
> ** **
>
> Saya tambahkan dengan sedikit kode (.value), supaya hasil pada sheet
> menghasilkan "datevalue" :****
>
> ** **
>
>
> ----------------------------------------------------------
> ****
>
> Private Sub cmdMisal_Click()****
>
> Dim LastRow As Range, Respons, Ctrl As Control****
>
> On Error Resume Next****
>
> Set LastRow = Sheet1.Range("C1000";).End(xlUp)****
>
> With LastRow****
>
> .Cells(2, 0) = txtTglStart.*Value*: .Cells(2, 1) =
> txtTglEnd.*Value*:****
>
> End With****
>
> Respons = MsgBox("Data masuk dengan sukses", vbInformation, "Ahmad
> Entry Form")****
>
> End Sub****
>
>
> ----------------------------------------------------------
> ****
>
> ** **
>
> ** **
>
> Regards,****
>
> AA****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 6:45
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ** **
>
> ** **
>
> Coba file terlampir.****
>
> Wassalam,****
>
> Kid.****
>
> ** **
>
> 2013/6/25 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id>****
>
> ** **
>
> Dear Rekan2 Be-Excel,****
>
> Klik kanan dan pilih
> "FormShow";
> ****
>
> 1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai pada
> textbox1 (harus data tanggal)
>
> ****
>
> 2. Text box harus diisi dengan data tanggal minimal
> (dd/mm/yy)
>
> ****
>
>
> ****
>
> Problem
> :
> ****
>
> 1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh
> pada bulan dan tahun.
>
> ****
>
> Contoh
> :
> ****
>
> Textbox1 diisi :
> 13/2/13
> ****
>
> Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak
> jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih
> kecil karena dia hanya membaca tanggal) ****
>
> 2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jika
> user mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak
> ada tanggal 31 Juni. ****
>
>
> ****
>
> Bagaimana solusinya?****
>
> ****
>
> Regards,****
>
> ****
>
> AA****
>
> ** **
>
> ****
>

Tue Jun 25, 2013 7:10 pm (PDT) . Posted by:

"Ahmad Adriansyah"

He..he... iya juga ya Om Kid,
*Uhm* saya menafsirkan 10 November 2012 (Hari Pahlawan) he..he..

Rgds,
AA

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 8:41
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal

hehehe.... usernya boleh ngisi seenaknya kok aplikasinya ndak boleh menafsirkan seenaknya ?
gak fair kali ya...
kira-kira, kalau saya input :
10/11/12
Anda akan menduga yang saya maksud tanggal berapa ?
Wassalam,
Kid.

2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id<mailto:ahmad.adriansyah@trac.astra.co.id>>
Terima kasih Om Kid,
Sesuai dengan harapan, namun Om ada sedikit problem yaitu :

1. Misalnya kita input 2013-04-03 maka data yang dihasilkan sesuai (karena informasi inputnya yyyy-mm-dd), namun jika kita input 13/4/3 maka akan menghasilkan 2003-04-13. Selain itu, data yang diinput menghasilkan data text, bukan data tanggal.

2. Misalnya kita input 12/4/3, yang dihasilkan adalah 2003-04-12, kemudian pada input End Date 3/4/12, yang dihasilkan adalah 2012-04-03. Hal ini menimbulkan End Date < Start Date.

Kira2 Om, untuk mengantisipasi inputan seperti ini (user inputnya 2012-03-04, atau 12/3/4, atau 12/03/04, maka tetap menghasilkan date value 04 Maret 2012), bagaimana ya Om solusinya. Terima kasih.

Saya tambahkan dengan sedikit kode (.value), supaya hasil pada sheet menghasilkan "datevalue&quot; :

----------------------------------------------------------
Private Sub cmdMisal_Click()
Dim LastRow As Range, Respons, Ctrl As Control
On Error Resume Next
Set LastRow = Sheet1.Range("C1000";).End(xlUp)
With LastRow
.Cells(2, 0) = txtTglStart.Value: .Cells(2, 1) = txtTglEnd.Value:
End With
Respons = MsgBox("Data masuk dengan sukses", vbInformation, "Ahmad Entry Form")
End Sub
----------------------------------------------------------

Regards,
AA

From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 6:45
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal

Coba file terlampir.
Wassalam,
Kid.

2013/6/25 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id<mailto:ahmad.adriansyah@trac.astra.co.id>>

Dear Rekan2 Be-Excel,
Klik kanan dan pilih "FormShow";
1. Seharusnya nilai pada textbox2 tidak boleh lebih kecil dari nilai pada textbox1 (harus data tanggal)
2. Text box harus diisi dengan data tanggal minimal (dd/mm/yy)

Problem :
1. Yang dibaca hanya apabila tanggal lebih kecil, namun tidak berpengaruh pada bulan dan tahun.
Contoh :
Textbox1 diisi : 13/2/13
Jika Textbox2 diisi : 12/3/13, maka jagaan jalan, padahal seharusnya tidak jalan. Padahal value pada Textbox2 seharusnya lebih besar (terbaca lebih kecil karena dia hanya membaca tanggal)
2. Text box harus menghasilkan data tanggal minimal (dd/mm/yy), namun jika user mengisi 31/06/13 atau 30/02/13, maka akan tidak terjaga. Padahal tidak ada tanggal 31 Juni.

Bagaimana solusinya?

Regards,

AA

Tue Jun 25, 2013 6:46 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam Wr. Wb.

File terlampir mencoba dengan Index (untuk mengambil datanya) dan lookup
untuk menentukan indeks record yang akan diambil.

Wassalamu'alaikum Wr. Wb.
Kid.

2013/6/26 Sondiamar Argi S. <sondyargy@yahoo.com>

> **
>
>
> Assalaamu'alaikum, Dear exceler
>
> saya punya daftar surat masuk, seiring dengan berjalannya waktu,
> penanganan surat tersebut berpindah ke pegawai (tim) lain.
> mohon bantuan rekan-rekan atas kasus terlampir. terima kasih
>
>
>

Tue Jun 25, 2013 6:46 pm (PDT) . Posted by:

"Ahmad Adriansyah"

Nambahnin punya Pak Zainul, tapi hasilnya agak sedikit berbeda kenapa ya?
Array Formula : =INDEX($E$8:$G$13;LARGE(IF($B$8:$B$13=$I9;ROW($1:$6));ROW($1:$6));COLUMN($1:$3)) ditulis 3cell kekanan sekaligus kemudian copy ke bawah.

Rgds,
AA

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of zainul_ulum[at]yahoo[dot]com
Sent: 26 Juni 2013 8:20
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] rumus excel posisi terakhir ada di siapa

silahkan dikembangkan leboh lanjut rumus terlampir. Sebetulnya masih ada
alternative rumus yang lain. Kita tunggu masukan dari teman-teman
thanks
-zainul-

From: belajar-excel@yahoogroups.com<mailto:belajar-excel%40yahoogroups.com> [mailto:belajar-excel@yahoogroups.com<mailto:belajar-excel%40yahoogroups.com>]
On Behalf Of Sondiamar Argi S.
Sent: Wednesday, June 26, 2013 7:00 AM
To: belajar-excel@yahoogroups.com<mailto:belajar-excel%40yahoogroups.com>
Subject: [belajar-excel] rumus excel posisi terakhir ada di siapa

Assalaamu'alaikum, Dear exceler

saya punya daftar surat masuk, seiring dengan berjalannya waktu, penanganan
surat tersebut berpindah ke pegawai (tim) lain.
mohon bantuan rekan-rekan atas kasus terlampir. terima kasih

Tue Jun 25, 2013 7:11 pm (PDT) . Posted by:

"Jan Raisin"

mr Kid, minta izin pinjam file solusinya ya..

coba pendekin dikit formula dari mr Kid yang awalnya:

=INDEX($E$8:$G$13,LARGE(IF($B$8:$B$13=$I9,ROW($1:$6)),ROW($1:$6))
,COLUMN($1:$3))

menjadi

=INDEX($E$8:$G$13,MAX(IF($B$8:$B$13=$I9,ROW($1:$6))),COLUMN($1:$3))

habis itu coba dipendekin lagi menjadi:

=OFFSET($E$7:$G$7,MAX(IF($B$8:$B$13=$I9,ROW($1:$6))),0)

kira-kira apa akibat dari semakin dipendekin formulanya ya?
apakah formula yang paling pendek akan melakukan kalkulasi yang paling
cepat dan yang paling panjang akan lebih lama? atau kah sama? atau
kebalikannya?
yang tau jawabannya tolong dishare ke mari ilmunya ^_^

Salam,

-Miss Jan Raisin-

- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi
member milis;
- Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;
- Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu
bisa on line setiap saat;
- Semoga semangat berbagi dan membantu semakin meningkat di kalangan
Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
Çóãöíä íóÇ ÑóÈóø ÇáúÚóÇáóãöíúä

Pada 26 Juni 2013 08.45, Mr. Kid <mr.nmkid@gmail.com> menulis:

> **
>
>
> Wa'alaikumussalam Wr. Wb.
>
> File terlampir mencoba dengan Index (untuk mengambil datanya) dan lookup
> untuk menentukan indeks record yang akan diambil.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
> 2013/6/26 Sondiamar Argi S. <sondyargy@yahoo.com>
>
> **
>>
>>
>> Assalaamu'alaikum, Dear exceler
>>
>> saya punya daftar surat masuk, seiring dengan berjalannya waktu,
>> penanganan surat tersebut berpindah ke pegawai (tim) lain.
>> mohon bantuan rekan-rekan atas kasus terlampir. terima kasih
>>
>>
>
>

Tue Jun 25, 2013 7:58 pm (PDT) . Posted by:

"agus salim" agsalimtu

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

Tue Jun 25, 2013 8:23 pm (PDT) . Posted by:

"De Premor"

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 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
>

Tue Jun 25, 2013 8:28 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

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 Premor <de@premor.net>

> If (Target.Column >= 3 And Target.Column <= 8) Then Cells(Target.Row, 2) =
> Now()

Tue Jun 25, 2013 8:32 pm (PDT) . Posted by:

"nangAgus" nangagoez

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 mmmm yyyy h:mm AM/PM" menjadi "dd mmmm yyyy "
*
wasaaalam.

NangAgus
On 26/06/2013 9:57, agus salim wrote:
> 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
>

Tue Jun 25, 2013 8:44 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

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 <agsalimtu@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

Tue Jun 25, 2013 9:31 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

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 <hendrikkarnadi@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 <agsalimtu@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

Tue Jun 25, 2013 10:04 pm (PDT) . Posted by:

"Ferry Setiawan" ferry_2005_skom

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 <hendrikkarnadi@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 <hendrikkarnadi@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 <agsalimtu@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
>
>
>
>
>
>

Tue Jun 25, 2013 10:04 pm (PDT) . Posted by:

"Ferry Setiawan" ferry_2005_skom

Dear All,

Saya ingin share dari ilmu saya yang cuma sedikit ini, semoga bisa membantu.
Artikelnya adalah mengenai membuat shortcut key sendiri dengan bantuan
macro.
Selengkapnya silahkan menuju ke TKP

http://b-excel.blogspot.com/2013/06/create-your-own-shortcut-key.html

Semoga bisa menambah ilmu

Thanks
Ferry

Tue Jun 25, 2013 10:04 pm (PDT) . Posted by:

"jajang muhammad siddik" jajang_ms

Pak Bagus,

Terimakasih formula nya sangat membantu, namun ternyata saya melupakan sesuatu, data yang akan di lookup seharusnya dari sebuah pivot yang setiap hari data nya di update, ketika saya aplikasi kan formula SUMPRODUCT atau INDEX & MATCH versi pak Nico, saya mengalami kendala lain. lebih jelas nya ada pada lampiran.

Wassalam,

jajang

>________________________________
> Dari: Bagus <bagus@kingjim.co.id>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Rabu, 26 Juni 2013 8:02
>Judul: Re: [belajar-excel] Vlookup berdasarkan row dan colom
>
>
>
> 
>Dear Pak Jajang;
> 
>Coba =SUMPRODUCT(($A3=data!$A$2:$A$7)*(B$1=data!$B$1:$C$1)*(data!$B$2:$C$7))
>Copy paste kebawah dan kekanan
> 
> 
>Wassalam
>~ Bagus~
>  
>----- Original Message -----
>>From: jajang muhammad siddik
>>To: Belajar Excel
>>Sent: Tuesday, June 25, 2013 10:21 AM
>>Subject: [belajar-excel] Vlookup berdasarkan row dan colom
>>
>> 
>>Dear Para master Excel,
>>
>>
>>Mohon petunjuknya, bagaimana cara lookup dari sheet/file lain, tp tidak berdasarkan satu cell, melainkan berdasarkan kolom dan baris nya. untuk lebih jelas, silahkan lihat lampiran.
>>
>>
>>Terimakasih
>> 
>>Jajang Ms
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar