Rabu, 26 Juni 2013

[belajar-excel] Digest Number 2381

Milis Belajar Microsoft Excel

15 New Messages

Digest #2381
2a
Re: Vlookup berdasarkan row dan colom by "Mr. Kid" nmkid.family@ymail.com
2b
Re: Vlookup berdasarkan row dan colom by "Ferry Setiawan" ferry_2005_skom
3a
Filter Data by "Eko Noviyanto" nopenk77
3b
Re: Filter Data by "Ferry Setiawan" ferry_2005_skom
3c
Re: Filter Data by "Mr. Kid" nmkid.family@ymail.com
4a
Re: VBA untuk Tanggal by "Mr. Kid" nmkid.family@ymail.com
4b
Re: VBA untuk Tanggal by "Ahmad Adriansyah"
4c
Re: VBA untuk Tanggal by "Mr. Kid" nmkid.family@ymail.com
5b
Re: Bls: Fw: [belajar-excel] Tanggal Edit Input by "hendrik karnadi" hendrikkarnadi
6
Cara Mengupdate Data Cell Yang Sudah Terisi by "aji suseno" ones_marle_oke

Messages

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

"Rudi Anto" rudi.excel

Maaf rekan2 BeExcel, topik saya angkat lagi,
untuk Mr.Kid.. file lampiran saya coba gali informasinya..
ada satu yang masih saya bingung,
mengenai button shpspincur, kok bisa ngisi cell dengan kelipatan 7,
saya kebingungan di mana letak rumus pengisian kelipatan tersebut ?

Smoga bisa diterangkan oleh smuanya, ^_^

Wassalam,
++rudi

On 26/06/2013 5:50, Mr. Kid wrote:
> File terlampir menggunakan loop For...Step...Next...
>
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/24 Rudi Anto <rudi.excel@yahoo.com <mailto:rudi.excel@yahoo.com>>
>
>
>
> Selamat malam u/ rekan2 BeExcel,
> Smoga tambah pinter smuanya.. Aamiin.
>
> nih file kok ga bisa saya print sesuai harapan ya,
> saya kpingin :
>
> - Ketika saya isi RowIndex, Print_Area terisi record dari 1 sampai 6
> begitu seterusnya kelipatan 6
>
> Bagaimana jika saya nyetak dari record 1-100 yang kluar ya
> kelipatan 6.
>
> wadoh susah mau jabarkan isi otak.
> file attachment saya lampirkan ya,
> klo ada yang bisa dirubah, monggo dirubah :)
>
> sebelumnya saya ucapkan terima kasih,
> monggo dibantu saya ya.
>
> ++rudi
>
>
>

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

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

Coba diklik kanan si spinner (Forms Control) dan pilih Format Control.
Kemudian lihat properti bernama Incremental change-nya.

Wassalam,
Kid.

2013/6/26 Rudi Anto <rudi.excel@yahoo.com>

> **
>
>
> Maaf rekan2 BeExcel, topik saya angkat lagi,
> untuk Mr.Kid.. file lampiran saya coba gali informasinya..
> ada satu yang masih saya bingung,
> mengenai button shpspincur, kok bisa ngisi cell dengan kelipatan 7,
> saya kebingungan di mana letak rumus pengisian kelipatan tersebut ?
>
> Smoga bisa diterangkan oleh smuanya, ^_^
>
>
> Wassalam,
> ++rudi
>
>
>
>
>
> On 26/06/2013 5:50, Mr. Kid wrote:
>
>
> File terlampir menggunakan loop For...Step...Next...
>
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/24 Rudi Anto <rudi.excel@yahoo.com>
>
>>
>>
>>
>>
>> Selamat malam u/ rekan2 BeExcel,
>> Smoga tambah pinter smuanya.. Aamiin.
>>
>> nih file kok ga bisa saya print sesuai harapan ya,
>> saya kpingin :
>>
>> - Ketika saya isi RowIndex, Print_Area terisi record dari 1 sampai 6
>> begitu seterusnya kelipatan 6
>>
>> Bagaimana jika saya nyetak dari record 1-100 yang kluar ya
>> kelipatan 6.
>>
>> wadoh susah mau jabarkan isi otak.
>> file attachment saya lampirkan ya,
>> klo ada yang bisa dirubah, monggo dirubah :)
>>
>> sebelumnya saya ucapkan terima kasih,
>> monggo dibantu saya ya.
>>
>> ++rudi
>>
>
>
>
>

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

"Rudi Anto" rudi.excel

Hehehe, ternyata kurang jeli, padahal tadi dah buka Format Control.
makasi Mr. Kid

++rudi

On 26/06/2013 12:29, Mr. Kid wrote:
> Coba diklik kanan si spinner (Forms Control) dan pilih Format Control.
> Kemudian lihat properti bernama Incremental change-nya.
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/26 Rudi Anto <rudi.excel@yahoo.com <mailto:rudi.excel@yahoo.com>>
>
> Maaf rekan2 BeExcel, topik saya angkat lagi,
> untuk Mr.Kid.. file lampiran saya coba gali informasinya..
> ada satu yang masih saya bingung,
> mengenai button shpspincur, kok bisa ngisi cell dengan kelipatan 7,
> saya kebingungan di mana letak rumus pengisian kelipatan tersebut ?
>
> Smoga bisa diterangkan oleh smuanya, ^_^
>
>
> Wassalam,
> ++rudi
>
>
>
>
>
> On 26/06/2013 5:50, Mr. Kid wrote:
>> File terlampir menggunakan loop For...Step...Next...
>>
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/6/24 Rudi Anto <rudi.excel@yahoo.com
>> <mailto:rudi.excel@yahoo.com>>
>>
>>
>>
>> Selamat malam u/ rekan2 BeExcel,
>> Smoga tambah pinter smuanya.. Aamiin.
>>
>> nih file kok ga bisa saya print sesuai harapan ya,
>> saya kpingin :
>>
>> - Ketika saya isi RowIndex, Print_Area terisi record dari 1
>> sampai 6
>> begitu seterusnya kelipatan 6
>>
>> Bagaimana jika saya nyetak dari record 1-100 yang kluar ya
>> kelipatan 6.
>>
>> wadoh susah mau jabarkan isi otak.
>> file attachment saya lampirkan ya,
>> klo ada yang bisa dirubah, monggo dirubah :)
>>
>> sebelumnya saya ucapkan terima kasih,
>> monggo dibantu saya ya.
>>
>> ++rudi
>>
>>
>
>
>

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

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

Formula sumproduct yang ada di F3 sheet Hasil bisa diubah menjadi :
=SUMPRODUCT(($A3=pivot!$A$5:$A$10)*(hasil!F$1=pivot!$B$4:$C$4)*(pivot!$B$5:$C$10))

Kalau tidak salah, sheet hasil adalah penampakan seluruh tanggal dari pivot
table tapi untuk item tertentu saja.
Bagaimana kalau dicoba diatur pada kolom TRAN_DATE (klik kanan field
trans_date -> field setting) pada tab Layout & Format dipilih (centang)
item Show item with no data (akhiri tekan OK ya)

Andai tetap tidak memuaskan, mungkin nama range dinamis (contoh bernama
_pvtArea_) yang digunakan dalam sheet dinamis yang menggunakan fungsi
SumIF, bisa lebih sesuai selera.

File terlampir.

Wassalam,
Kid.

2013/6/26 jajang muhammad siddik <jajang_ms@yahoo.co.id>

> **
>
>
> 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 <jajang_ms@yahoo.co.id>
> *To:* Belajar Excel <belajar-excel@yahoogroups.com>
> *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
>
>
>
>
>

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

"Ferry Setiawan" ferry_2005_skom

Di kolom F, formula anda tidak di kunci,
=SUMPRODUCT((A3=pivot!A5:A10)*(hasil!F1=pivot!B4:C4)*(pivot!B5:C10))
seharusnya
=SUMPRODUCT((A3=pivot!$A$5:$A$10)*(hasil!F$1=pivot!$B$4:$C$4)*(pivot!$B$5:$C$10))
Kemudian
=IFERROR(INDEX(pivot!$B$5:$C$10,MATCH(hasil!A6,pivot!$A$5:$A$10),MATCH(hasil!$G$1,pivot!$B$4:$C$4)),"")
Seharusnya pada MATCH dikondisikan EXACT
=IFERROR(INDEX(pivot!$B$5:$C$10,MATCH(hasil!A6,pivot!$A$5:$A$10,0),MATCH(hasil!$G$1,pivot!$B$4:$C$4,0)),"")
Thanks
Ferry

Pada 26 Juni 2013 12.01, jajang muhammad siddik <jajang_ms@yahoo.co.id>menulis:

> **
>
>
> 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 <jajang_ms@yahoo.co.id>
> *To:* Belajar Excel <belajar-excel@yahoogroups.com>
> *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
>
>
>
>
>

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

"Eko Noviyanto" nopenk77

Dear all,

Tolong dibantu untuk mengfilter data dari dua kolom yang terdiri dari banyak baris.

Terima kasih saya ucapkan atas bantuannya.

Salam,
Nopenk

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

"Ferry Setiawan" ferry_2005_skom

Di Kolom D, gunakan formula =IF(COUNTIF($D$2:$D$259,B2)>0,"YA","TIDAK&quot;)
Kemudian copy kebawah sesuai dengan banyak row kolom B
Thanks
Ferry
Pada 26 Juni 2013 12.30, Eko Noviyanto <eko_ny77@yahoo.co.id> menulis:

> **
>
>
> Dear all,
>
> Tolong dibantu untuk mengfilter data dari dua kolom yang terdiri dari
> banyak baris.
>
> Terima kasih saya ucapkan atas bantuannya.
>
> Salam,
> Nopenk
>
>

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

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

Coba di E2 diisi formula :
=IFERROR(MATCH(D2,$B$2:$B$231,0),0)
lalu klik kanan -> format cells -> tab number -> custom -> isi di textbox :
"YA";;"TIDAK&quot;
copy ke seluruh baris data.

Lakukan auto filter.

Wassalam,
Kid.

2013/6/26 Eko Noviyanto <eko_ny77@yahoo.co.id>

> **
>
>
> Dear all,
>
> Tolong dibantu untuk mengfilter data dari dua kolom yang terdiri dari
> banyak baris.
>
> Terima kasih saya ucapkan atas bantuannya.
>
> Salam,
> Nopenk
>
>

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

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

xixixixi....
padahal maksud saya tanggal 10 Dzulhijjah 1411 H loh... :P

Terus gimana nih ?
Akan ditetapkan format inputan tanggal-nya ?
Pilih format inputan yang mana kalau ndak mau format inputan YYYY-MM-DD
yang bersifat universal ?

Wassalam,
Kid.

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

> **
>
>
> 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>****
>
> 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" :****
>
> ****
>
>
> ----------------------------------------------------------
> ****
>
> 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****
>
> ****
>
> ** **
>
> ****
>
>
>

Wed Jun 26, 2013 12:28 am (PDT) . Posted by:

"Ahmad Adriansyah"

Saya kesulitan ketika mengaplikasi koding ini di user form saya Om Kid :

----------------------------------------------------------
Private Sub TbStartR_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(Me.TbStartR.Value) > 0 Then
If Not IsDate(Me.TbStartR.Value) Then
Cancel = True
LblInfo.Caption = "Inputan tidak mencerminkan tanggal yang benar!" & vbCrLf & "Gunakan format : YYYY/MM/DD"
Exit Sub
End If
If Me.TbStartR.Value < TbIn.Value Then
Cancel = True
LblInfo.Caption = "Tanggal start repair tidak boleh lebih kecil dari Tanggal In!"
Exit Sub
End If
End If
LblInfo.Caption = vbNullString
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")
End Sub
----------------------------------------------------------

Error di koding yang saya blok merah. Kenapa ya? Kalau user form Om Kid langsung bisa jalan di excel saya, namun pas saya modif kodingnya jadi error.

Rgds,

AA

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

xixixixi....
padahal maksud saya tanggal 10 Dzulhijjah 1411 H loh... :P
Terus gimana nih ?
Akan ditetapkan format inputan tanggal-nya ?
Pilih format inputan yang mana kalau ndak mau format inputan YYYY-MM-DD yang bersifat universal ?

Wassalam,
Kid.

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

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> [mailto: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

Wed Jun 26, 2013 12:32 am (PDT) . Posted by:

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

xixixixi... *sTglInput*
typo error karena belum ada deklarsi variabelnya kali ya

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

> *Tb.StartR.Text** = Format$(sTglInput, "YYYY-MM-DD")*

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

"agus salim" agsalimtu

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

Wed Jun 26, 2013 12:19 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

coba copas macro ini,
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column >= 3 And .Column <= 8 Or .Column = 15 Or .Column = 20 Then
                If .Row > 3 Then

                    If .Count = 1 Then
                        Cells(.Row, 21).Value = Date
                    End If
                End If
        End If

    End With
End Sub

Salam,
HK

________________________________
From: agus salim <agsalimtu@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Wednesday, 26 June 2013, 13:25
Subject: Bls: Fw: [belajar-excel] Tanggal Edit Input


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

Wed Jun 26, 2013 12:33 am (PDT) . Posted by:

"agus salim" agsalimtu

trimakasih....sekali lagi....trima kasih

________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <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_Change(ByVal Target As Range)
    With Target
        If .Column >= 3 And .Column <= 8 Or .Column = 15 Or .Column = 20 Then
                If .Row > 3 Then

                    If .Count = 1 Then
                        Cells(.Row, 21).Value = Date
                    End If
                End If
        End If

    End With
End Sub

Salam,
HK

________________________________
From: agus salim <agsalimtu@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Wednesday, 26 June 2013, 13:25
Subject: Bls: Fw: [belajar-excel] Tanggal Edit Input


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

Wed Jun 26, 2013 12:10 am (PDT) . Posted by:

"aji suseno" ones_marle_oke

Dear All Excellers,�

Menyambung dari alamat dari ini :�http://milis-belajar-excel.1048464.n5.nabble.com/Cara-Mengupdate-Data-Cell-Yang-Sudah-Terisi-td5719147.html#a5719241
Akhirnya saya sudah mengerti caranya untuk memposting masalah yang sedang saya jalani.

Ok, kita langsung ke permasalahannya ya.
To the point for CASE :�
Disini saya mempunyai untuk merubah password user saat user akan mengupdate password tersebut. Namun saya mencoba - coba dengan berbagai rumus dan logic seadanya yang terpikir dari saya, namun tetap tidak bisa. Karena saat menentukan kolom yang sedang aktif dengan username tersebut, tidak bs saya fokuskan seperti penyimpanan database di ms access.�
Intinya si, saya ingin mencoba untuk user yang menggantikan password tersebut bisa melakukan sendiri tanpa meminta kepada "admin" (saya), karena hak untuk perubahan password tersebut bisa dilakukan pada setiap user yang sedang login menggunakan program ini.�

sedikit screen shoot saya lampirkan dari awal step login sampai user melakukan perubahan pass tersebut.�

saya menjabarkannya melalui ms word ya karena takut kepanjangan disini.�
Terima kasih atas bantuannya slama ini yang telah diberikan para suhu disini. (Terutama Om Kids)�
Apabila ada ketidaksesuaian dicodingan VBA saya, mohon untuk dikoreksi ya para suhu.�

Untuk permasalah membuat jam berjalan, sudah solve loh.. saya melihat - lihat ternyata sudah ada yg pernah memposting digroup ini.

Codingan dan Database (PasswordVBA : privasigw2506%)

Penggalan CASE yang ingin ditanyakan.�

--- Mods ---
Moga-moga postingan berikutnya dikurangi jumlah data atau gambar yang tidak berkaitan. Gambar yang berkaitan dipilih format yang simple seperti GIF atau JPG dengan kualitas secukupnya.
Hal ini dimaksudkan agar file memenuhi batas maksimum lampiran sesuai peraturan milis sebesar 250KB.
------------
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