15 New Messages
Digest #2382
Messages
Wed Jun 26, 2013 12:34 am (PDT) . Posted by:
"summonery" summonery
Dear Miss Jan, ijinkan saya mengomentari formulanya ya,,Penggunaan
COLUMN($1:$3) sebenarnya mubazir, cukup COLUMN($1:$1)Mungkin maksud Miss
Jan adalah ingin menghasilkan {1,2,3} ya,,
...=row(1:3) --> {1;2;3}=column(A:C) -->
{1,2,3}----------------------------------------------------------
Penggunaan row(1:3), row($1:$3), dan sejenisnya sebenarnya kurang
robust, misal ketika ada peng-insert-an row didalamnya.Agar lebih robust
bisa dengan:=ROW(INDEX(A:A,1):INDEX(A:A,3))Yuk kita budayakan mulai
sekarang....
>semoga bermanfaat
--- In belajar-excel@yahoogroups.com , Jan Raisin wrote:
>
> 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@... 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@...
> >
> > **
> >>
> >>
> >> 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
> >>
> >>
> >
> >
>
COLUMN($1:$3) sebenarnya mubazir, cukup COLUMN($1:$1)
Jan adalah ingin menghasilkan {1,2,3} ya,,
...=row(1:3) --> {1;2;3}=column(
{1,2,3}-----
Penggunaan row(1:3), row($1:$3), dan sejenisnya sebenarnya kurang
robust, misal ketika ada peng-insert-
bisa dengan:=ROW(
sekarang....
>semoga bermanfaat
--- In belajar-excel@
>
> mr Kid, minta izin pinjam file solusinya ya..
>
> coba pendekin dikit formula dari mr Kid yang awalnya:
>
> =INDEX($E$8:
> ,COLUMN($1:$
>
> menjadi
>
> =INDEX($E$8:
>
> habis itu coba dipendekin lagi menjadi:
>
> =OFFSET($E$7:
>
> 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@
> 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@... menulis:
>
> > **
> >
> >
> > Wa'alaikumussal
> >
> > File terlampir mencoba dengan Index (untuk mengambil datanya) dan
lookup
> > untuk menentukan indeks record yang akan diambil.
> >
> > Wassalamu'
> > Kid.
> >
> >
> >
> > 2013/6/26 Sondiamar Argi S. sondyargy@..
> >
> > **
> >>
> >>
> >> Assalaamu'
> >>
> >> 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
> >>
> >>
> >
> >
>
Wed Jun 26, 2013 12:54 am (PDT) . Posted by:
"Jan Raisin"
pak Anton,
Ilmu barunya langsung Jan coba xixixi :D
terima kasih.. sangat bermanfaat sekali ^_^
-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 14.34, summonery <summonery@yahoo.com > menulis:
> **
>
>
> Dear Miss Jan, ijinkan saya mengomentari formulanya ya,,
> Penggunaan COLUMN($1:$3) sebenarnya mubazir, cukup COLUMN($1:$1)
> Mungkin maksud Miss Jan adalah ingin menghasilkan {1,2,3} ya,,
>
> ...
> =row(1:3) --> {1;2;3}
> =column(A:C) --> {1,2,3}
> ----------------------------------------------------------
>
> Penggunaan row(1:3), row($1:$3), dan sejenisnya sebenarnya kurang robust,
> misal ketika ada peng-insert-an row didalamnya.
> Agar lebih robust bisa dengan:
> =ROW(INDEX(A:A,1):INDEX(A:A,3))
> Yuk kita budayakan mulai sekarang....
>
>
> >semoga bermanfaat
>
>
>
Ilmu barunya langsung Jan coba xixixi :D
terima kasih.. sangat bermanfaat sekali ^_^
-Miss Jan Raisin-
- Untuk kepentingan belajar bersama, pertanyaan harap ditujukan *hanya*ke
belajar-excel@
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 14.34, summonery <summonery@yahoo.
> **
>
>
> Dear Miss Jan, ijinkan saya mengomentari formulanya ya,,
> Penggunaan COLUMN($1:$3) sebenarnya mubazir, cukup COLUMN($1:$1)
> Mungkin maksud Miss Jan adalah ingin menghasilkan {1,2,3} ya,,
>
> ...
> =row(1:3) --> {1;2;3}
> =column(A:C) --> {1,2,3}
> ------------
>
> Penggunaan row(1:3), row($1:$3), dan sejenisnya sebenarnya kurang robust,
> misal ketika ada peng-insert-
> Agar lebih robust bisa dengan:
> =ROW(INDEX(A:
> Yuk kita budayakan mulai sekarang....
>
>
> >semoga bermanfaat
>
>
>
Wed Jun 26, 2013 1:01 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
ikutan ah...
=ROW(INDEX(A:A,1):INDEX(A:A,3))
kalau pasti selalu 3 bijik selamanya ya
kalau datanya (bukan hasilnya) suatu saat diubah jadi 4 dengan cara insert
seblok cell sekolom antara kolom pertama dan kedua, maka formula hasil
harus disesuaikan.
Wassalam,
Kid.
2013/6/26 summonery <summonery@yahoo.com >
> **
>
>
> Dear Miss Jan, ijinkan saya mengomentari formulanya ya,,
> Penggunaan COLUMN($1:$3) sebenarnya mubazir, cukup COLUMN($1:$1)
> Mungkin maksud Miss Jan adalah ingin menghasilkan {1,2,3} ya,,
>
> ...
> =row(1:3) --> {1;2;3}
> =column(A:C) --> {1,2,3}
> ----------------------------------------------------------
>
> Penggunaan row(1:3), row($1:$3), dan sejenisnya sebenarnya kurang robust,
> misal ketika ada peng-insert-an row didalamnya.
> Agar lebih robust bisa dengan:
> =ROW(INDEX(A:A,1):INDEX(A:A,3))
> Yuk kita budayakan mulai sekarang....
>
>
> >semoga bermanfaat
>
>
> --- In belajar-excel@yahoogroups.com , Jan Raisin wrote:
> >
> > 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@... 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@...
> > >
> > > **
>
> > >>
> > >>
> > >> 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
> > >>
> > >>
> > >
> > >
> >
>
>
>
=ROW(INDEX(A:
kalau pasti selalu 3 bijik selamanya ya
kalau datanya (bukan hasilnya) suatu saat diubah jadi 4 dengan cara insert
seblok cell sekolom antara kolom pertama dan kedua, maka formula hasil
harus disesuaikan.
Wassalam,
Kid.
2013/6/26 summonery <summonery@yahoo.
> **
>
>
> Dear Miss Jan, ijinkan saya mengomentari formulanya ya,,
> Penggunaan COLUMN($1:$3) sebenarnya mubazir, cukup COLUMN($1:$1)
> Mungkin maksud Miss Jan adalah ingin menghasilkan {1,2,3} ya,,
>
> ...
> =row(1:3) --> {1;2;3}
> =column(A:C) --> {1,2,3}
> ------------
>
> Penggunaan row(1:3), row($1:$3), dan sejenisnya sebenarnya kurang robust,
> misal ketika ada peng-insert-
> Agar lebih robust bisa dengan:
> =ROW(INDEX(A:
> Yuk kita budayakan mulai sekarang....
>
>
> >semoga bermanfaat
>
>
> --- In belajar-excel@
> >
> > mr Kid, minta izin pinjam file solusinya ya..
> >
> > coba pendekin dikit formula dari mr Kid yang awalnya:
> >
> > =INDEX($E$8:
> > ,COLUMN($1:$
> >
> > menjadi
> >
> > =INDEX($E$8:
> >
> > habis itu coba dipendekin lagi menjadi:
> >
> > =OFFSET($E$7:
> >
> > 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@
> > 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@... menulis:
> >
> > > **
>
> > >
> > >
> > > Wa'alaikumussal
> > >
> > > File terlampir mencoba dengan Index (untuk mengambil datanya) dan
> lookup
> > > untuk menentukan indeks record yang akan diambil.
> > >
> > > Wassalamu'
> > > Kid.
> > >
> > >
> > >
> > > 2013/6/26 Sondiamar Argi S. sondyargy@..
> > >
> > > **
>
> > >>
> > >>
> > >> Assalaamu'
> > >>
> > >> 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
> > >>
> > >>
> > >
> > >
> >
>
>
>
Wed Jun 26, 2013 12:42 am (PDT) . Posted by:
"Ahmad Adriansyah"
Masalahnya sepertinya di format kayanya. Soalnya di module VBA saya seperti ini :
[cid:image001.jpg@01CE727A.D24DE560 ]
Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :
[cid:image002.jpg@01CE727A.D24DE560 ]
Kenapa ya Om Kid?
Rgds,
AA
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 14:32
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal
xixixixi... sTglInput
typo error karena belum ada deklarsi variabelnya kali ya
2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id <mailto:ahmad.adriansyah@trac.astra.co.id >>
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")
[cid:image001.jpg@
Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :
[cid:image002.jpg@
Kenapa ya Om Kid?
Rgds,
AA
From: belajar-excel@
Sent: 26 Juni 2013 14:32
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal
xixixixi... sTglInput
typo error karena belum ada deklarsi variabelnya kali ya
2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-
Wed Jun 26, 2013 12:47 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba ganti
*sTglInput*
menjadi :
*Tb.StartR.Text *
Kalau ndak bisa, ganti
*sTglInput*
menjadi
Replace$( *Tb.StartR.Text * , "/" , "-" )
Wassalam,
Kid.
2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id >
> **
>
>
> Masalahnya sepertinya di *format** *kayanya. Soalnya di module VBA saya
> seperti ini :****
>
> ****
>
> ** **
>
> Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :****
>
> ** **
>
> ****
>
> ** **
>
> Kenapa ya Om Kid?****
>
> ** **
>
> Rgds,****
>
> ** **
>
> AA****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 14:32
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ** **
>
> ** **
>
> 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")*****
>
> ** **
>
> ****
>
>
>
*sTglInput*
menjadi :
*Tb.StartR.Text *
Kalau ndak bisa, ganti
*sTglInput*
menjadi
Replace$( *Tb.StartR.Text * , "/" , "-" )
Wassalam,
Kid.
2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@
> **
>
>
> Masalahnya sepertinya di *format** *kayanya. Soalnya di module VBA saya
> seperti ini :****
>
> ****
>
> ** **
>
> Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :****
>
> ** **
>
> ****
>
> ** **
>
> Kenapa ya Om Kid?****
>
> ** **
>
> Rgds,****
>
> ** **
>
> AA****
>
> ** **
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 26 Juni 2013 14:32
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ** **
>
> ** **
>
> xixixixi... *sTglInput**
>
> typo error karena belum ada deklarsi variabelnya kali ya****
>
> ** **
>
> 2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@
>
> *Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-
>
> ** **
>
> ****
>
>
>
Wed Jun 26, 2013 1:02 am (PDT) . Posted by:
"Ahmad Adriansyah"
Belum bisa Om Kid,
Kalau saya ganti menjadi TbStartR.Text, maka format expression-nya tidak keluar. Setelah saya ganti menjadi Replace$(TbStartR.Text,"/","-") muncul pesan sbb :
[cid:image003.jpg@01CE727D.60202180 ]
Kalau dibiarkan, jadinya setelah input tanggal maka formatnya sesuai dengan yang diinput oleh user (meskipun pada labelnya telah ditulis "Gunakan Format : "YYYY-MM-DD") J ...
Rgds,
AA
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of Mr. Kid
Sent: 26 Juni 2013 14:47
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal
Coba ganti
sTglInput
menjadi :
Tb.StartR.Text
Kalau ndak bisa, ganti
sTglInput
menjadi
Replace$( Tb.StartR.Text , "/" , "-" )
Wassalam,
Kid.
2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id <mailto:ahmad.adriansyah@trac.astra.co.id >>
Masalahnya sepertinya di format kayanya. Soalnya di module VBA saya seperti ini :
[cid:image004.jpg@01CE727D.60202180 ]
Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :
[cid:image005.jpg@01CE727D.60202180 ]
Kenapa ya Om Kid?
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 14:32
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal
xixixixi... sTglInput
typo error karena belum ada deklarsi variabelnya kali ya
2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id <mailto:ahmad.adriansyah@trac.astra.co.id >>
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-DD")
Kalau saya ganti menjadi TbStartR.Text, maka format expression-nya tidak keluar. Setelah saya ganti menjadi Replace$(TbStartR.
[cid:image003.jpg@
Kalau dibiarkan, jadinya setelah input tanggal maka formatnya sesuai dengan yang diinput oleh user (meskipun pada labelnya telah ditulis "Gunakan Format : "YYYY-MM-
Rgds,
AA
From: belajar-excel@
Sent: 26 Juni 2013 14:47
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal
Coba ganti
sTglInput
menjadi :
Tb.StartR.Text
Kalau ndak bisa, ganti
sTglInput
menjadi
Replace$( Tb.StartR.Text , "/" , "-" )
Wassalam,
Kid.
2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@
Masalahnya sepertinya di format kayanya. Soalnya di module VBA saya seperti ini :
[cid:image004.jpg@
Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :
[cid:image005.jpg@
Kenapa ya Om Kid?
Rgds,
AA
From: belajar-excel@
Sent: 26 Juni 2013 14:32
To: BeExcel
Subject: Re: [belajar-excel] VBA untuk Tanggal
xixixixi... sTglInput
typo error karena belum ada deklarsi variabelnya kali ya
2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@
Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-
Wed Jun 26, 2013 1:06 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hik..hik..hiks.... :(
kok belum bisa ya...
Bukannya yang diminta ganti itu cuma bunyi sTglInput aja ya, dan bukan
semua barisnya.... :(
Baiklah, kita mulai dari awal.
Ada script bunyinya :
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
Tolong dijawab ya... (siapa saja yang sedang belajar VBA boleh jawab deh)
1. Tolong cari tulisan sTglInput selain yang dimerah. Ada berapakah ?
2. Apa maksud sTglInput di baris yang dimerah ?
ditunggu ya...
Wassalam,
Kid.
2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id >
> **
>
>
> Belum bisa Om Kid,****
>
> Kalau saya ganti menjadi TbStartR.Text, maka format expression-nya tidak
> keluar. Setelah saya ganti menjadi Replace$(TbStartR.Text,"/","-") muncul
> pesan sbb :****
>
> ** **
>
> ****
>
> ** **
>
> Kalau dibiarkan, jadinya setelah input tanggal maka formatnya sesuai
> dengan yang diinput oleh user (meskipun pada labelnya telah ditulis
> "Gunakan Format : "YYYY-MM-DD") J …****
>
> ** **
>
> Rgds,****
>
> ** **
>
> AA****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 14:47
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ** **
>
> ** **
>
> Coba ganti
> *sTglInput*****
>
> menjadi :
> *Tb.StartR.Text *****
>
> Kalau ndak bisa, ganti
> *sTglInput*****
>
> menjadi ****
>
> Replace$( *Tb.StartR.Text *, "/" , "-" )****
>
> ** **
>
> Wassalam,
> Kid.****
>
> ** **
>
> ** **
>
> 2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id >****
>
> ** **
>
> Masalahnya sepertinya di *format** *kayanya. Soalnya di module VBA saya
> seperti ini :****
>
> ****
>
> ****
>
> Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :****
>
> ****
>
> ****
>
> ****
>
> Kenapa ya Om Kid?****
>
> ****
>
> Rgds,****
>
> ****
>
> AA****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *Mr. Kid
> *Sent:* 26 Juni 2013 14:32****
>
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ****
>
> ****
>
> 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")*****
>
> ****
>
> ** **
>
> ****
>
>
>
kok belum bisa ya...
Bukannya yang diminta ganti itu cuma bunyi sTglInput aja ya, dan bukan
semua barisnya.... :(
Baiklah, kita mulai dari awal.
Ada script bunyinya :
Private Sub TbStartR_Exit(
If Len(Me.TbStartR.
If Not IsDate(Me.TbStartR.
Cancel = True
LblInfo.Caption = "Inputan tidak mencerminkan tanggal yang benar!"
& vbCrLf & "Gunakan format : YYYY/MM/DD"
Exit Sub
End If
If Me.TbStartR.
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*
End Sub
Tolong dijawab ya... (siapa saja yang sedang belajar VBA boleh jawab deh)
1. Tolong cari tulisan sTglInput selain yang dimerah. Ada berapakah ?
2. Apa maksud sTglInput di baris yang dimerah ?
ditunggu ya...
Wassalam,
Kid.
2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@
> **
>
>
> Belum bisa Om Kid,****
>
> Kalau saya ganti menjadi TbStartR.Text, maka format expression-nya tidak
> keluar. Setelah saya ganti menjadi Replace$(TbStartR.
> pesan sbb :****
>
> ** **
>
> ****
>
> ** **
>
> Kalau dibiarkan, jadinya setelah input tanggal maka formatnya sesuai
> dengan yang diinput oleh user (meskipun pada labelnya telah ditulis
> "Gunakan Format : "YYYY-MM-DD") J …****
>
> ** **
>
> Rgds,****
>
> ** **
>
> AA****
>
> ** **
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 26 Juni 2013 14:47
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ** **
>
> ** **
>
> Coba ganti
> *sTglInput**
>
> menjadi :
> *Tb.StartR.Text *****
>
> Kalau ndak bisa, ganti
> *sTglInput**
>
> menjadi ****
>
> Replace$( *Tb.StartR.Text *, "/" , "-" )****
>
> ** **
>
> Wassalam,
> Kid.****
>
> ** **
>
> ** **
>
> 2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@
>
> ** **
>
> Masalahnya sepertinya di *format** *kayanya. Soalnya di module VBA saya
> seperti ini :****
>
> ****
>
> ****
>
> Sedangkan kalau menggunakan module punya Om Kid jadinya seperti ini :****
>
> ****
>
> ****
>
> ****
>
> Kenapa ya Om Kid?****
>
> ****
>
> Rgds,****
>
> ****
>
> AA****
>
> ****
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 26 Juni 2013 14:32****
>
>
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] VBA untuk Tanggal****
>
> ****
>
> ****
>
> xixixixi... *sTglInput**
>
> typo error karena belum ada deklarsi variabelnya kali ya****
>
> ****
>
> 2013/6/26 Ahmad Adriansyah <ahmad.adriansyah@
>
> *Tb.StartR.Text = Format$(sTglInput, "YYYY-MM-
>
> ****
>
> ** **
>
> ****
>
>
>
Wed Jun 26, 2013 12:43 am (PDT) . Posted by:
"ilham_lukman_hakim" ilham_lukman_hakim
Dear BeExceller,,,
Mohon bantuannya cara setting file csv yang kebuka malah jadi acak-acakan setelah regional setting nya di rubah ke Indonesia, sebelumnya seh sudah normal pake sett english, cuma karena suatu hal harus pake sett indonesia di win 7, supaya csv bisa kebuka rapih di sett indonesia bagaimana caranya? terima kasih
Mohon bantuannya cara setting file csv yang kebuka malah jadi acak-acakan setelah regional setting nya di rubah ke Indonesia, sebelumnya seh sudah normal pake sett english, cuma karena suatu hal harus pake sett indonesia di win 7, supaya csv bisa kebuka rapih di sett indonesia bagaimana caranya? terima kasih
Wed Jun 26, 2013 2:05 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sepertinya harus dilanjutkan dengan proses Text To Columns yang ada di
ribbon Data. Jangan lupa untuk blok seluruh kolom A saat akan menjalankan
fitur Text To Columns.
Wassalam,
Kid.
2013/6/26 ilham_lukman_hakim <ilham_lukman_hakim@yahoo.com >
> **
>
>
> Dear BeExceller,,,
> Mohon bantuannya cara setting file csv yang kebuka malah jadi acak-acakan
> setelah regional setting nya di rubah ke Indonesia, sebelumnya seh sudah
> normal pake sett english, cuma karena suatu hal harus pake sett indonesia
> di win 7, supaya csv bisa kebuka rapih di sett indonesia bagaimana caranya?
> terima kasih
>
>
>
ribbon Data. Jangan lupa untuk blok seluruh kolom A saat akan menjalankan
fitur Text To Columns.
Wassalam,
Kid.
2013/6/26 ilham_lukman_
> **
>
>
> Dear BeExceller,,
> Mohon bantuannya cara setting file csv yang kebuka malah jadi acak-acakan
> setelah regional setting nya di rubah ke Indonesia, sebelumnya seh sudah
> normal pake sett english, cuma karena suatu hal harus pake sett indonesia
> di win 7, supaya csv bisa kebuka rapih di sett indonesia bagaimana caranya?
> terima kasih
>
>
>
Wed Jun 26, 2013 12:56 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Mumpung ada contoh script....
Pada script : (bagian IF .Column sampai End IF sebelum end with)
With Target
If .Column >= 3 And .Column <= 8 Or .Column = 15 Or .Column = 20Then
If .Row > 3 Then
If .Count = 1 Then
Cells(.Row, 21).Value = Date
End If
End If
End If
End With
bisa diganti dengan select case menjadi :
With Target
If .Row > 3 Then
If .Count = 1 Then
select case .Column
case 3 to 8,15,20
Cells(.Row, 21).Value = Date
End select
End If
End If
End With
moga-moga tetep pas.
So, kadang kala Select Case lebih simple dan cepat dibanding IF
Oh iya, jangan lupa, script di atas hanya berlaku jika inputan dilakukan
dengan cara entry data cell per cell dan bukan melalui copas banyak baris
atau kolom dari tempat lain.
Wassalam,
Kid.
2013/6/26 hendrik karnadi <hendrikkarnadi@yahoo.com >
> **
>
>
> 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 = 20Then
> 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
>
>
>
>
>
>
>
>
>
>
>
Pada script : (bagian IF .Column sampai End IF sebelum end with)
With Target
If .Column >= 3 And .Column <= 8 Or .Column = 15 Or .Column = 20Then
If .Row > 3 Then
If .Count = 1 Then
Cells(.Row, 21).Value = Date
End If
End If
End If
End With
bisa diganti dengan select case menjadi :
With Target
If .Row > 3 Then
If .Count = 1 Then
select case .Column
case 3 to 8,15,20
Cells(.Row, 21).Value = Date
End select
End If
End If
End With
moga-moga tetep pas.
So, kadang kala Select Case lebih simple dan cepat dibanding IF
Oh iya, jangan lupa, script di atas hanya berlaku jika inputan dilakukan
dengan cara entry data cell per cell dan bukan melalui copas banyak baris
atau kolom dari tempat lain.
Wassalam,
Kid.
2013/6/26 hendrik karnadi <hendrikkarnadi@
> **
>
>
> coba copas macro ini,
> Private Sub Worksheet_Change(
> With Target
> If .Column >= 3 And .Column <= 8 Or .Column = 15 Or .Column = 20Then
> 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.
> *To:* "belajar-excel@
> *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.
> *Kepada:* belajar-excel@
> *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.
> Cells(Target.
>
> dengan
>
> *Cells(Target.
>
> Thanks
> Ferry
>
>
> Pada 26 Juni 2013 11.31, hendrik karnadi <hendrikkarnadi@
>
> **
>
> Kalau mau pake block With ... End Width maka codenya menjadi seperti
> ini:
> Private Sub Worksheet_Change(
> 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@
> *To:* "belajar-excel@
> *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(
> If Target.Column >= 3 And Target.Column <= 8 Then
> If Target.Row > 3 Then
> If Target.Count = 1 Then
> Cells(Target.
> Cells(Target.
> 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.
> *To:* "belajar-excel@
> *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 1:07 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Terima kasih Mr. Kid atas tambahan ilmunya.
Salam,
HK
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
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 sebelum end with)
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
bisa diganti dengan select case menjadi :
With Target
If .Row > 3 Then
If .Count = 1 Then select case .Column
case 3 to 8,15,20 Cells(.Row, 21).Value = Date
End select
End If
End If
End With
moga-moga tetep pas.
So, kadang kala Select Case lebih simple dan cepat dibanding IF
Oh iya, jangan lupa, script di atas hanya berlaku jika inputan dilakukan dengan cara entry data cell per cell dan bukan melalui copas banyak baris atau kolom dari tempat lain.
Wassalam,
Kid.
2013/6/26 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>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
>>
>>
>>
>>
>
>
>
>
>
Salam,
HK
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
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 sebelum end with)
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
bisa diganti dengan select case menjadi :
With Target
If .Row > 3 Then
If .Count = 1 Then select case .Column
case 3 to 8,15,20 Cells(.Row, 21).Value = Date
End select
End If
End If
End With
moga-moga tetep pas.
So, kadang kala Select Case lebih simple dan cepat dibanding IF
Oh iya, jangan lupa, script di atas hanya berlaku jika inputan dilakukan dengan cara entry data cell per cell dan bukan melalui copas banyak baris atau kolom dari tempat lain.
Wassalam,
Kid.
2013/6/26 hendrik karnadi <hendrikkarnadi@
>
>coba copas macro ini,
>Private Sub Worksheet_Change(
> 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.
>To: "belajar-excel@
>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.
>Kepada: belajar-excel@
>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.
>Cells(Target.
>
>dengan
>
>Cells(Target.
>
>Thanks
>Ferry
>
>
>Pada 26 Juni 2013 11.31, hendrik karnadi <hendrikkarnadi@
>
>
>>
>>Kalau mau pake block With ... End Width maka codenya menjadi seperti ini:
>>Private Sub Worksheet_Change(
>> 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
>>----
>>
>>
>>----
>>From: hendrik karnadi <hendrikkarnadi@
>>To: "belajar-excel@
>>
>>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(
>> If Target.Column >= 3 And Target.Column <= 8 Then
>> If Target.Row > 3 Then
>> If Target.Count = 1 Then
>> Cells(Target.
>> Cells(Target.
>> 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.
>>To: "belajar-excel@
>>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 1:34 am (PDT) . Posted by:
"De Premor"
hadeh, baru ditinggal ke kebon bentar sudah panjang bener ceritanya
thread ini
sekalian mau nambahin n modif punya Mr. Kid, biar bisa ngisinya pake
copy paste :D
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Range
For Each i In Target
Select Case i.Column
Case *3 To 8, 15, 20*
Cells(i.Row, *21*) = Now()
End Select
Next
End Sub
Saya menggunakan Now() untuk dapat menampilkan Tanggal dan Jamnya
sekalian, karena untuk log record biasanya saya perlunya sampai ke
detail2nya, kalau mau diganti ke Date juga ndak apa-apa.
On 26/06/2013 14:55, Mr. Kid wrote:
> Mumpung ada contoh script....
>
> Pada script : (bagian IF .Column sampai End IF sebelum end with)
> 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
>
> bisa diganti dengan select case menjadi :
> With Target
> If .Row > 3 Then
> If .Count = 1 Then
> select case .Column
> case 3 to 8,15,20
> Cells(.Row, 21).Value = Date
> End select
> End If
> End If
> End With
>
> moga-moga tetep pas.
>
> So, kadang kala Select Case lebih simple dan cepat dibanding IF
>
> Oh iya, jangan lupa, script di atas hanya berlaku jika inputan
> dilakukan dengan cara entry data cell per cell dan bukan melalui copas
> banyak baris atau kolom dari tempat lain.
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/26 hendrik karnadi <hendrikkarnadi@yahoo.com
> <mailto:hendrikkarnadi@yahoo.com >>
>
> 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
> <mailto:agsalimtu@yahoo.co.id >>
> *To:* "belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com >"
> <belajar-excel@yahoogroups.com
> <mailto: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
> <mailto:fset2006@gmail.com >>
> *Kepada:* belajar-excel@yahoogroups.com
> <mailto: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
>
>
>
>
>
>
>
>
>
>
>
thread ini
sekalian mau nambahin n modif punya Mr. Kid, biar bisa ngisinya pake
copy paste :D
Private Sub Worksheet_Change(
Dim i As Range
For Each i In Target
Select Case i.Column
Case *3 To 8, 15, 20*
Cells(i.Row, *21*) = Now()
End Select
Next
End Sub
Saya menggunakan Now() untuk dapat menampilkan Tanggal dan Jamnya
sekalian, karena untuk log record biasanya saya perlunya sampai ke
detail2nya, kalau mau diganti ke Date juga ndak apa-apa.
On 26/06/2013 14:55, Mr. Kid wrote:
> Mumpung ada contoh script....
>
> Pada script : (bagian IF .Column sampai End IF sebelum end with)
> 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
>
> bisa diganti dengan select case menjadi :
> With Target
> If .Row > 3 Then
> If .Count = 1 Then
> select case .Column
> case 3 to 8,15,20
> Cells(.Row, 21).Value = Date
> End select
> End If
> End If
> End With
>
> moga-moga tetep pas.
>
> So, kadang kala Select Case lebih simple dan cepat dibanding IF
>
> Oh iya, jangan lupa, script di atas hanya berlaku jika inputan
> dilakukan dengan cara entry data cell per cell dan bukan melalui copas
> banyak baris atau kolom dari tempat lain.
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/26 hendrik karnadi <hendrikkarnadi@
> <mailto:hendrikkarnadi@
>
> coba copas macro ini,
> Private Sub Worksheet_Change(
> 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.
> <mailto:agsalimtu@yahoo.
> *To:* "belajar-excel@
> <mailto:belajar-excel@
> <belajar-excel@
> <mailto:belajar-excel@
> *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.
> <mailto:fset2006@gmail.
> *Kepada:* belajar-excel@
> <mailto:belajar-excel@
> *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.
> Cells(Target.
> dengan
> *Cells(Target.
>
> Thanks
> Ferry
>
> Pada 26 Juni 2013 11.31, hendrik karnadi
> <hendrikkarnadi@
>
> Kalau mau pake block With ... End Width maka codenya menjadi
> seperti ini:
> Private Sub Worksheet_Change(
> 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@
> *To:* "belajar-excel@
> <belajar-excel@
> *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(
> If Target.Column >= 3 And Target.Column <= 8 Then
> If Target.Row > 3 Then
> If Target.Count = 1 Then
> Cells(Target.
> Cells(Target.
> 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.
> *To:* "belajar-excel@
> <belajar-excel@
> *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 1:50 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Ada script dari DePremor berbunyi :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Range
For Each i In Target
Select Case i.Column
Case *3 To 8, 15, 20*
Cells(i.Row, *21*) = Now()
End Select
Next
End Sub
yang bisa mengantisipasi inputan hasil copas.
Kalau yang di copy dari tempat lain ada 2 baris x 2 kolom (alias 4 cells),
kira-kira berapa kali setiap cell tanggal berubah nilai ?
;)
Wassalam,
Kid.
2013/6/26 De Premor <de@premor.net>
> hadeh, baru ditinggal ke kebon bentar sudah panjang bener ceritanya
> thread ini
> sekalian mau nambahin n modif punya Mr. Kid, biar bisa ngisinya pake copy
> paste :D
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim i As Range
> For Each i In Target
> Select Case i.Column
> Case *3 To 8, 15, 20*
> Cells(i.Row, *21*) = Now()
> End Select
> Next
> End Sub
>
> Saya menggunakan Now() untuk dapat menampilkan Tanggal dan Jamnya
> sekalian, karena untuk log record biasanya saya perlunya sampai ke
> detail2nya, kalau mau diganti ke Date juga ndak apa-apa.
>
>
>
> On 26/06/2013 14:55, Mr. Kid wrote:
>
>
> Mumpung ada contoh script....
>
> Pada script : (bagian IF .Column sampai End IF sebelum end with)
> With Target
> If .Column >= 3 And .Column <= 8 Or .Column = 15 Or .Column = 20Then
> If .Row > 3 Then
> If .Count = 1 Then
> Cells(.Row, 21).Value = Date
> End If
> End If
> End If
> End With
>
> bisa diganti dengan select case menjadi :
> With Target
> If .Row > 3 Then
> If .Count = 1 Then
> select case .Column
> case 3 to 8,15,20
> Cells(.Row, 21).Value = Date
> End select
> End If
> End If
> End With
>
> moga-moga tetep pas.
>
> So, kadang kala Select Case lebih simple dan cepat dibanding IF
>
> Oh iya, jangan lupa, script di atas hanya berlaku jika inputan
> dilakukan dengan cara entry data cell per cell dan bukan melalui copas
> banyak baris atau kolom dari tempat lain.
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/26 hendrik karnadi <hendrikkarnadi@yahoo.com >
>
>>
>> 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 = 20Then
>> 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
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
>
>
Private Sub Worksheet_Change(
Dim i As Range
For Each i In Target
Select Case i.Column
Case *3 To 8, 15, 20*
Cells(i.Row, *21*) = Now()
End Select
Next
End Sub
yang bisa mengantisipasi inputan hasil copas.
Kalau yang di copy dari tempat lain ada 2 baris x 2 kolom (alias 4 cells),
kira-kira berapa kali setiap cell tanggal berubah nilai ?
;)
Wassalam,
Kid.
2013/6/26 De Premor <de@premor.net>
> hadeh, baru ditinggal ke kebon bentar sudah panjang bener ceritanya
> thread ini
> sekalian mau nambahin n modif punya Mr. Kid, biar bisa ngisinya pake copy
> paste :D
>
>
> Private Sub Worksheet_Change(
> Dim i As Range
> For Each i In Target
> Select Case i.Column
> Case *3 To 8, 15, 20*
> Cells(i.Row, *21*) = Now()
> End Select
> Next
> End Sub
>
> Saya menggunakan Now() untuk dapat menampilkan Tanggal dan Jamnya
> sekalian, karena untuk log record biasanya saya perlunya sampai ke
> detail2nya, kalau mau diganti ke Date juga ndak apa-apa.
>
>
>
> On 26/06/2013 14:55, Mr. Kid wrote:
>
>
> Mumpung ada contoh script....
>
> Pada script : (bagian IF .Column sampai End IF sebelum end with)
> With Target
> If .Column >= 3 And .Column <= 8 Or .Column = 15 Or .Column = 20Then
> If .Row > 3 Then
> If .Count = 1 Then
> Cells(.Row, 21).Value = Date
> End If
> End If
> End If
> End With
>
> bisa diganti dengan select case menjadi :
> With Target
> If .Row > 3 Then
> If .Count = 1 Then
> select case .Column
> case 3 to 8,15,20
> Cells(.Row, 21).Value = Date
> End select
> End If
> End If
> End With
>
> moga-moga tetep pas.
>
> So, kadang kala Select Case lebih simple dan cepat dibanding IF
>
> Oh iya, jangan lupa, script di atas hanya berlaku jika inputan
> dilakukan dengan cara entry data cell per cell dan bukan melalui copas
> banyak baris atau kolom dari tempat lain.
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/26 hendrik karnadi <hendrikkarnadi@
>
>>
>> coba copas macro ini,
>> Private Sub Worksheet_Change(
>> With Target
>> If .Column >= 3 And .Column <= 8 Or .Column = 15 Or .Column = 20Then
>> 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.
>> *To:* "belajar-excel@
>> *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.
>> *Kepada:* belajar-excel@
>> *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.
>> Cells(Target.
>>
>> dengan
>>
>> *Cells(Target.
>>
>> Thanks
>> Ferry
>>
>>
>> Pada 26 Juni 2013 11.31, hendrik karnadi <hendrikkarnadi@
>>
>>
>> Kalau mau pake block With ... End Width maka codenya menjadi seperti
>> ini:
>> Private Sub Worksheet_Change(
>> 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@
>> *To:* "belajar-excel@
>> *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(
>> If Target.Column >= 3 And Target.Column <= 8 Then
>> If Target.Row > 3 Then
>> If Target.Count = 1 Then
>> Cells(Target.
>> Cells(Target.
>> 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.
>> *To:* "belajar-excel@
>> *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
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>
>
>
>
Dear BeExceller,
Usaha panitia kopdar#1 untuk lebih memudahkan antar BeExcel saling berkenalan dan bersilaturahmi adalah melalui program 'Seragam BeExcel'. Dengan adanya seragam yang dapat digunakan sewaktu-waktu dalam kegiatan santai atau semi formal, akan memudahkan BeExceller lain mengenali saudara se-milis dan diharapkan dapat saling berkenalan. Selain itu, seragam BeExcel dapat dijadikan sarana untuk menyebarkan kesatuan milis Belajar-Excel, baik di dunia maya maupun di dunia nyata.
Kas milis BeExcel akan mendapat tambahan dana dari setiap pesanan BeExceller, selain dari sisa anggaran setiap acara milis seperti KopDar yang sudah dilaksanakan. Dengan begitu, diharapkan milis bisa secara perlahan memiliki modal untuk melakukan kegiatan-kegiatan bersama lainnya.
Tim panitia baju BeExcel telah membuka ruang pemesanan. Seragam akan di produksi ketika telah mencapai minimal 50 pesanan. Berikut ini informasi yang disediakan oleh panitia seragam BeExcel :
1. Gambar dan ukuran
*** Gambar desain baju dapat dilihat di : (butuh login YahooID Anda)
http://groups.yahoo.com/group/belajar-excel/photos/album/1310147048/pic/808591513/view
*** Gambar daftar ukuran dapat dilihat di : (butuh login YahooID Anda)
http://groups.yahoo.com/group/belajar-excel/photos/album/1310147048/pic/1828869776/view
2. Cara memesan
******* 1. Klik link berikut : (butuh login YahooID Anda)
http://tech.groups.yahoo.com/group/belajar-excel/database?method=reportRows&tbl=6
******* 2. Tekan Add Record
******* 3. Isi alamat email, nama, nama penerima (misal untuk kado ke orang lain), Alamat pengiriman, Ukuran beserta jumlah pesanannya, Telp/HP.
************ Contoh pengisian ukuran beserta jumlah pesanan :
**************** A. Pesan 1 kemeja ukuran XXXL, diisi : kemeja XXXL/1
**************** B. Pesan 1 kemeja ukuran XL dan 1 kemeja ukuran L, diisi : kemeja XL/1;L/1
**************** C. Pesan 1 kaos ukuran S dan 1 kemeja ukuran L, diisi : kaos S/1,kemeja L/1
**************** D. Pesan 1 kaos ukuran S dan 1 kaos ukuran L, serta 1 kemeja ukuran XL dan 1 kameja ukuran S, diisi : kaos S/1;L/1,kemeja XL/1;S/1
******* 4. Tekan Add Record
******* 5. Tunggu hingga ada email konfirmasi dari panitia tentang jumlah biaya yang harus ditransfer beserta biaya pengirimannya.
******* 6. Balas email dari panitia jika setuju dengan harganya.
******* 7. Transfer senilai informasi di nomor 5 ke :
No. Rek : 6590419603
Atas Nama : ZAINUDIN ASROR
******* 8. Kirimkan bukti transfernya ke email panitia, sehingga panitia bisa memperbarui data Anda di database dengan mengisi jumlah nilai yang di-transfer, nomor referensi transfer, dan status pesanan.
3. Waktu pemesanan
******* Pemesanan dapat dilakukan kapan saja sejak tanggal 24 Juni 2013.
4. Usul dan saran untuk perbaikan desain dan varian produk bisa disampaikan kepada panitia di :
aliif.akbar@yahoo.co.id
lapendosol@yahoo.com
miss.jan.raisin@gmail.com
hendrikkarnadi@yahoo.com
summonery@yahoo.com
dwint.ruswanto@gmail.com
5. BeExceller yang bersedia menjadi sukarelawan milis untuk mengurusi hal-hal kepanitian, diharapkan menghubungi email yang telah disebutkan di atas.
Mari kita maju bersama sebagai sebuah keluarga besar BeExcel.
Dari BeExceller, oleh BeExceller, untuk BeExceller.
Best Regards,
Moderator Belajar-Excel
Usaha panitia kopdar#1 untuk lebih memudahkan antar BeExcel saling berkenalan dan bersilaturahmi adalah melalui program 'Seragam BeExcel'
Kas milis BeExcel akan mendapat tambahan dana dari setiap pesanan BeExceller, selain dari sisa anggaran setiap acara milis seperti KopDar yang sudah dilaksanakan. Dengan begitu, diharapkan milis bisa secara perlahan memiliki modal untuk melakukan kegiatan-kegiatan bersama lainnya.
Tim panitia baju BeExcel telah membuka ruang pemesanan. Seragam akan di produksi ketika telah mencapai minimal 50 pesanan. Berikut ini informasi yang disediakan oleh panitia seragam BeExcel :
1. Gambar dan ukuran
*** Gambar desain baju dapat dilihat di : (butuh login YahooID Anda)
http://groups.
*** Gambar daftar ukuran dapat dilihat di : (butuh login YahooID Anda)
http://groups.
2. Cara memesan
******* 1. Klik link berikut : (butuh login YahooID Anda)
http://tech.
******* 2. Tekan Add Record
******* 3. Isi alamat email, nama, nama penerima (misal untuk kado ke orang lain), Alamat pengiriman, Ukuran beserta jumlah pesanannya, Telp/HP.
************ Contoh pengisian ukuran beserta jumlah pesanan :
************
************
************
************
******* 4. Tekan Add Record
******* 5. Tunggu hingga ada email konfirmasi dari panitia tentang jumlah biaya yang harus ditransfer beserta biaya pengirimannya.
******* 6. Balas email dari panitia jika setuju dengan harganya.
******* 7. Transfer senilai informasi di nomor 5 ke :
No. Rek : 6590419603
Atas Nama : ZAINUDIN ASROR
******* 8. Kirimkan bukti transfernya ke email panitia, sehingga panitia bisa memperbarui data Anda di database dengan mengisi jumlah nilai yang di-transfer, nomor referensi transfer, dan status pesanan.
3. Waktu pemesanan
******* Pemesanan dapat dilakukan kapan saja sejak tanggal 24 Juni 2013.
4. Usul dan saran untuk perbaikan desain dan varian produk bisa disampaikan kepada panitia di :
aliif.akbar@
lapendosol@yahoo.
miss.jan.raisin@
hendrikkarnadi@
summonery@yahoo.
dwint.ruswanto@
5. BeExceller yang bersedia menjadi sukarelawan milis untuk mengurusi hal-hal kepanitian, diharapkan menghubungi email yang telah disebutkan di atas.
Mari kita maju bersama sebagai sebuah keluarga besar BeExcel.
Dari BeExceller, oleh BeExceller, untuk BeExceller.
Best Regards,
Moderator Belajar-Excel
Wed Jun 26, 2013 3:20 am (PDT) . Posted by:
"De Premor"
Nyoba bantuin sak isone yaa pak,
PFA
On 26/06/2013 13:45, aji suseno wrote:
>
> 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.
> ------------
>
>
PFA
On 26/06/2013 13:45, aji suseno wrote:
>
> Dear All Excellers,�
>
> Menyambung dari alamat dari ini
> :�http://milis-
> 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
---------------------------------------------------------------------
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