Senin, 18 November 2013

[belajar-excel] Digest Number 2642

15 New Messages

Digest #2642
1a
2a
Re: Cara Penjumlah Date by "Bagus" bagus4bls
3a
4a
4b
Re: Antara Date dan Int(Now) di VBA by "hendrik karnadi" hendrikkarnadi
4c
Re: Antara Date dan Int(Now) di VBA by "hendrik karnadi" hendrikkarnadi
6b
Re: menghitung tanggal jatuh tempo by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
7a
Re: Input Data Keuangan by "Ahmad Syaifullah Lubis" syaifullah

Messages

Sun Nov 17, 2013 10:33 pm (PST) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

coba pakai rumus Evaluate() disimpan dalam named range.
1. Misal text yang akan dihitung di A1
2. Buat Name Range, Name: Hasil
3. Refes To: =evaluate($A1)
4. Pilih cell B1
5. Masukkan rumus: =Hasil

silahkan dicoba....

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of dono_songz@yahoo.com
Sent: Monday, November 18, 2013 11:38 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Merubah deretan jumlah angka yang berupa text menjadi hasil numeric [1 Attachment]

Selamat siang :)

Bagaimana rumus merubah deretan jumlah angka yang berupa text menjadi hasil numeric
contoh : Cell A1: "100+200+800+1500", nah pada B1 hasilnya otomatis 2600 (numeric)
saya lampirkan capture nya

mohon bantuan nya ya para master, nanti nya saya akan terapkan rumus ini ke Microsoft Access..
Terimakasih :)

Mon Nov 18, 2013 1:10 am (PST) . Posted by:

dono_songz

Alhamdulillah...


udah bisa bang :)

trims banget ya bang Ghozi Alkatiri :*




---In belajar-excel@yahoogroups.com, <zainul_ulum@...> wrote:

coba pakai rumus Evaluate() disimpan dalam named range.
1. Misal text yang akan dihitung di A1
2. Buat Name Range, Name: Hasil
3. Refes To: =evaluate($A1)
4. Pilih cell B1
5. Masukkan rumus: =Hasil

silahkan dicoba....

From: belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com] On Behalf Of dono_songz@... mailto:dono_songz@...
Sent: Monday, November 18, 2013 11:38 AM
To: belajar-excel@yahoogroups.com mailto:belajar-excel@yahoogroups.com
Subject: [belajar-excel] Merubah deretan jumlah angka yang berupa text menjadi hasil numeric [1 Attachment]


Selamat siang :)

Bagaimana rumus merubah deretan jumlah angka yang berupa text menjadi hasil numeric
contoh : Cell A1: "100+200+800+1500", nah pada B1 hasilnya otomatis 2600 (numeric)
saya lampirkan capture nya

mohon bantuan nya ya para master, nanti nya saya akan terapkan rumus ini ke Microsoft Access..
Terimakasih :)

Sun Nov 17, 2013 10:47 pm (PST) . Posted by:

"Bagus" bagus4bls

Coba begini;

=NETWORKDAYS(Tanggal Mulai,Tanggal Selesai)

Wassalam

~ Bagus ~

----- Original Message -----
From: Ambo Upe
To: belajar-excel@yahoogroups.com
Sent: Monday, November 18, 2013 1:10 PM
Subject: [belajar-excel] Cara Penjumlah Date

Salam Excel'Ers

gima yah jumlahin :

Tanggal Mulai : 01-Jan-13
Tanggal Selesai :02-Jan-13

Maka hasilnya adalah : 2 Hari

Dah coba formula sana-sini tapi belum ada yang sesuai, Trima Kasih

Weblog : http://diaracommunity.blogspot.com

Mon Nov 18, 2013 12:18 am (PST) . Posted by:

"Ambo Upe" upe_anakogie

Trima Kasih Mas HK,,
Klo menggunakan formula seperti itu, ketika Tanggal mulai dan tanggal masih kosong maka hasil = 1, seharusnya-kan = o,

 
Weblog  : http://diaracommunity.blogspot.com

Pada Senin, 18 November 2013 13:32, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

 
Coba begini pak.
Tanggal Selesai - Tanggal Mulai + 1

Salam,
HK

On Monday, 18 November 2013, 13:22, Ambo Upe <upe_anakogie@yahoo.co.id> wrote:

 
Salam Excel'Ers

gima yah jumlahin :

Tanggal Mulai    : 01-Jan-13
Tanggal Selesai :02-Jan-13

Maka hasilnya adalah : 2 Hari

Dah  coba formula sana-sini tapi belum ada yang sesuai, Trima Kasih

Weblog  : http://diaracommunity.blogspot.com

Mon Nov 18, 2013 12:18 am (PST) . Posted by:

"abinaya abinaya" abinaya_jp5

Assalamualaikum pak
Saya anggota baru di milis ini
Senang sekali bisa belajar banyak disini, mohon bimbingan nya
Saya sudah download file yang bapak kirim, memang saat saya jalankan error yang bapak maksud muncul
Saya lihat di referensi nya ada komponen yang hilang ( saat di jalankan di komputer saya )
"microsoft windows common control" nya hilang (missing)
Jika saya punya cara lain pak...
saya lebih memilih membuat variabel baru yang menampung "date" ini
jadi saya buat begini,
Dim dt as date
dan pada baris yang error saya ganti
.[b3] = dt

alhamdulillah gak ada masalah pak
saya pernah mengalami kasus sama saat memakai calender control, di Excel 2003 mau jalan  tapi saat di Excel 2007 keatas gak mau
Dan masalah nya mirip, ada komponen pada referensi yang hilang atau gak kebaca

mohon koreksi jika saya ada keliru

On Monday, November 18, 2013 11:53 AM, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:

 
Rekan2 Be-Exceller,

Ada satu warisan dari mbak Siti mengenai Simple Invoicing (file terlampir), dimana ada satu bagian perintah macro With .. End With yang berbunyi:
.[B3] = Date 

yang menimbulkan Error baik pada Excel 2007 (pertanyaan dari rekan kita) maupun hasil tes saya pada Excel 2010 (komputer kantor).
Pesan Errornya adalah sbb :
"Compile Error, Can't Find Project or Library"

Tapi anehnya di komputer rumah yang juga pakai Excel 2010, macro tsb berjalan dengan mulu (ketika saya menjawab email saya pakai komputer rumah).

Saran dari Mr Kid, Date diganti dengan Int(now) memang bisa memecahkan masalah tsb.

Namun masih tersisa pertanyaan, dimana salahnya...., apakah perintah Date hanya berlaku untuk Excel versi tertentu....??

Mohon sharing dari rekan2.

Terima kasih.

Salam,
HK

Mon Nov 18, 2013 12:35 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Terima kasih atas masukannya Pak.
memang banyak jalan menju ke Roma (kata pepatah).

Salam,
HK

On Monday, 18 November 2013, 15:18, abinaya abinaya <abinaya_jp5@yahoo.com> wrote:

 
Assalamualaikum pak
Saya anggota baru di milis ini
Senang sekali bisa belajar banyak disini, mohon bimbingan nya
Saya sudah download file yang bapak kirim, memang saat saya jalankan error yang bapak maksud muncul
Saya lihat di referensi nya ada komponen yang hilang ( saat di jalankan di komputer saya )
"microsoft windows common control" nya hilang (missing)
Jika saya punya cara lain pak...
saya lebih memilih membuat variabel baru yang menampung "date" ini
jadi saya buat begini,
Dim dt as date
dan pada baris yang error saya ganti
.[b3] = dt

alhamdulillah gak ada masalah pak
saya pernah mengalami kasus sama saat memakai calender control, di Excel 2003 mau jalan  tapi saat di Excel 2007 keatas gak mau
Dan masalah nya mirip, ada komponen pada
referensi yang hilang atau gak kebaca

mohon koreksi jika saya ada keliru

On Monday, November 18, 2013 11:53 AM, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:

 
Rekan2 Be-Exceller,

Ada satu warisan dari mbak Siti mengenai Simple Invoicing (file terlampir), dimana ada satu bagian perintah macro With .. End With yang berbunyi:
.[B3] = Date 

yang menimbulkan Error baik pada Excel 2007 (pertanyaan dari rekan kita) maupun hasil tes saya pada Excel 2010 (komputer kantor).
Pesan Errornya adalah sbb :
"Compile Error, Can't Find Project or Library"

Tapi anehnya di komputer rumah yang juga pakai Excel 2010, macro tsb berjalan dengan mulu (ketika saya menjawab email saya pakai komputer rumah).

Saran dari Mr Kid, Date diganti dengan Int(now) memang bisa memecahkan masalah tsb.

Namun masih tersisa pertanyaan, dimana salahnya...., apakah perintah Date hanya berlaku untuk Excel versi tertentu....??

Mohon sharing dari rekan2.

Terima kasih.

Salam,
HK

Mon Nov 18, 2013 1:37 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Setelah saya coba ternyata:
- Data berhasil masuk database (DataInv, DataSub), tetapi pada saat         "reset form" maka
- Range B3 pada InvForm akan berisi "1/0/1900 dan tampilan di layar       00 Jan 00" karena .[B3] = dt tidak menghasilkan tanggal ....

Salam,
HK

On Monday, 18 November 2013, 15:18, abinaya abinaya <abinaya_jp5@yahoo.com> wrote:

 
Assalamualaikum pak
Saya anggota baru di milis ini
Senang sekali bisa belajar banyak disini, mohon bimbingan nya
Saya sudah download file yang bapak kirim, memang saat saya jalankan error yang bapak maksud muncul
Saya lihat di referensi nya ada komponen yang hilang ( saat di jalankan di komputer saya )
"microsoft windows common control" nya hilang (missing)
Jika saya punya cara lain pak...
saya lebih memilih membuat variabel baru yang menampung "date" ini
jadi saya buat begini,
Dim dt as date
dan pada baris yang error saya ganti
.[b3] = dt

alhamdulillah gak ada masalah pak
saya pernah mengalami kasus sama saat memakai calender control, di Excel 2003 mau jalan  tapi saat di Excel 2007 keatas gak mau
Dan masalah nya mirip, ada komponen pada
referensi yang hilang atau gak kebaca

mohon koreksi jika saya ada keliru

On Monday, November 18, 2013 11:53 AM, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:

 
Rekan2 Be-Exceller,

Ada satu warisan dari mbak Siti mengenai Simple Invoicing (file terlampir), dimana ada satu bagian perintah macro With .. End With yang berbunyi:
.[B3] = Date 

yang menimbulkan Error baik pada Excel 2007 (pertanyaan dari rekan kita) maupun hasil tes saya pada Excel 2010 (komputer kantor).
Pesan Errornya adalah sbb :
"Compile Error, Can't Find Project or Library"

Tapi anehnya di komputer rumah yang juga pakai Excel 2010, macro tsb berjalan dengan mulu (ketika saya menjawab email saya pakai komputer rumah).

Saran dari Mr Kid, Date diganti dengan Int(now) memang bisa memecahkan masalah tsb.

Namun masih tersisa pertanyaan, dimana salahnya...., apakah perintah Date hanya berlaku untuk Excel versi tertentu....??

Mohon sharing dari rekan2.

Terima kasih.

Salam,
HK

Mon Nov 18, 2013 12:18 am (PST) . Posted by:

"dwi mulyaningsih" upiet29

Sudah saya ganti, tapi masih sama seperti sebelumnya

Salam
DM

On Saturday, November 16, 2013 5:39 AM, Mr. Kid <mr.nmkid@gmail.com> wrote:

 
Coba ganti Date dengan Now
Jika ingin tetap tanpa waktu, ganti Date dengan Int( Now )

Wassalam,
Kid.

2013/11/15 Liem Suliem <liemsuliem@yahoo.co.id>


>saya pakai ms ofice 2007
>ada eror lagi pak
>
>
>
>
>
>
>Pada , Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>
>Masukkanlah ke dalam surga dan lindungilah dia dari azab kubur dan azab neraka.
>
>
>
>
>
>Pada Kamis, 14 November 2013 21:59, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>

>Ini file yang sudah saya coba edit seperlunya dan sudah saya tes untuk merekam.
>Kalau sdh tes dan berhasil, jangan lupa doakan beliau yang telah memberi inspirasi.
>
>
>Salam,
>HK
>
>
>
>On Thursday, 14 November 2013, 8:40, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:
>
>Ini warisan yang masih utuh (kalau istilah pajak belum terbagi).
>Saya belum ubah sedikitpun dan belum penah coba merekam, tapi nanti saya coba lihat lagi.
>
>
>Mungkin ada rekan lain yang bisa bantu menjawab.
>
>
>Salam,
>HK
>
>
>
>On Thursday, 14 November 2013, 8:23, Liem Suliem <liemsuliem@yahoo.co.id> wrote:
>

>dear pak hk..
>saya coba download file ini tapi begitu saya buka terus coba input data dan tekan tombol
>Rekam Ke Tabel muncul pesan seperti terlampir.. karena kebetulan saya juga perlu.
>tapi masih buta tentang makroh.. pesan eror prin scren terlampir
>
>
>
>
>
>
>Pada Rabu, 13 November 2013 11:19, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>

>Coba pelajari warisan mba Siti terlampir.
>
>
>Salam,
>HK
>
>
>
>On Wednesday, 13 November 2013, 10:41, dwi mulyaningsih <upiet29@yahoo.com> wrote:
>

>Dear Pakar Excel,
>
>
>Mohon bantuannya, saya punya file untuk membuat invoice dengan nomor urut otomatis.
>Yang saya inginkan ketika saya klik tombol simpan maka : 
>1. Data dari invoice tersebut akan masuk ke dalam file rekap penjualan, dan 
>2. invoice tersebut juga secara otomatis akan tersimpan dalam file tersendiri. 
>
>
>Untuk yang point ke dua sudah bisa dijalankan, sedangkan point ke satu saya belum mendapatkan caranya.
>Mohon bantuannya.
>
>
>Terima kasih
>
>
>Dwi
>
>
>
>
>
>
>
>
>
>
>
>

Mon Nov 18, 2013 12:51 am (PST) . Posted by:

"abinaya abinaya" abinaya_jp5

Salam
sekedar mencoba ya Bu
coba buat variabel baru
Dim dt as date

trus ganti fungsi date nya dengan "dt" tadi bu
misal
.[b3]= dt

On Monday, November 18, 2013 4:18 PM, dwi mulyaningsih <upiet29@yahoo.com> wrote:

 
Sudah saya ganti, tapi masih sama seperti sebelumnya

Salam
DM

On Saturday, November 16, 2013 5:39 AM, Mr. Kid <mr.nmkid@gmail.com> wrote:

 
Coba ganti Date dengan Now
Jika ingin tetap tanpa waktu, ganti Date dengan Int( Now )

Wassalam,
Kid.

2013/11/15 Liem Suliem <liemsuliem@yahoo.co.id>


>saya pakai ms ofice 2007
>ada eror lagi pak
>
>
>
>
>
>
>Pada , Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>
>Masukkanlah ke dalam surga dan lindungilah dia dari azab kubur dan azab neraka.
>
>
>
>
>
>Pada Kamis, 14 November 2013 21:59, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>

>Ini file yang sudah saya coba edit seperlunya dan sudah saya tes untuk merekam.
>Kalau sdh tes dan berhasil, jangan lupa doakan beliau yang telah memberi inspirasi.
>
>
>Salam,
>HK
>
>
>
>On Thursday, 14 November 2013, 8:40, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:
>
>Ini warisan yang masih utuh (kalau istilah pajak belum terbagi).
>Saya belum ubah sedikitpun dan belum penah coba merekam, tapi nanti saya coba lihat lagi.
>
>
>Mungkin ada rekan lain yang bisa bantu menjawab.
>
>
>Salam,
>HK
>
>
>
>On Thursday, 14 November 2013, 8:23, Liem Suliem <liemsuliem@yahoo.co.id> wrote:
>

>dear pak hk..
>saya coba download file ini tapi begitu saya buka terus coba input data dan tekan tombol
>Rekam Ke Tabel muncul pesan seperti terlampir.. karena kebetulan saya juga perlu.
>tapi masih buta tentang makroh.. pesan eror prin scren terlampir
>
>
>
>
>
>
>Pada Rabu, 13 November 2013 11:19, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>

>Coba pelajari warisan mba Siti terlampir.
>
>
>Salam,
>HK
>
>
>
>On Wednesday, 13 November 2013, 10:41, dwi mulyaningsih <upiet29@yahoo.com> wrote:
>

>Dear Pakar Excel,
>
>
>Mohon bantuannya, saya punya file untuk membuat invoice dengan nomor urut otomatis.
>Yang saya inginkan ketika saya klik tombol simpan maka : 
>1. Data dari invoice tersebut akan masuk ke dalam file rekap penjualan, dan 
>2. invoice tersebut juga secara otomatis akan tersimpan dalam file tersendiri. 
>
>
>Untuk yang point ke dua sudah bisa dijalankan, sedangkan point ke satu saya belum mendapatkan caranya.
>Mohon bantuannya.
>
>
>Terima kasih
>
>
>Dwi
>
>
>
>
>
>
>
>
>
>
>
>

Mon Nov 18, 2013 1:03 am (PST) . Posted by:

"dwi mulyaningsih" upiet29

kalau untuk tgl invoicenya saya entry manual bagaimana?
jadi tidak menggunakan tanggal hari ini

Salam
DM

On Monday, November 18, 2013 3:18 PM, dwi mulyaningsih <upiet29@yahoo.com> wrote:

 
Sudah saya ganti, tapi masih sama seperti sebelumnya

Salam
DM

On Saturday, November 16, 2013 5:39 AM, Mr. Kid <mr.nmkid@gmail.com> wrote:

 
Coba ganti Date dengan Now
Jika ingin tetap tanpa waktu, ganti Date dengan Int( Now )

Wassalam,
Kid.

2013/11/15 Liem Suliem <liemsuliem@yahoo.co.id>


>saya pakai ms ofice 2007
>ada eror lagi pak
>
>
>
>
>
>
>Pada , Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>
>Masukkanlah ke dalam surga dan lindungilah dia dari azab kubur dan azab neraka.
>
>
>
>
>
>Pada Kamis, 14 November 2013 21:59, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>

>Ini file yang sudah saya coba edit seperlunya dan sudah saya tes untuk merekam.
>Kalau sdh tes dan berhasil, jangan lupa doakan beliau yang telah memberi inspirasi.
>
>
>Salam,
>HK
>
>
>
>On Thursday, 14 November 2013, 8:40, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:
>
>Ini warisan yang masih utuh (kalau istilah pajak belum terbagi).
>Saya belum ubah sedikitpun dan belum penah coba merekam, tapi nanti saya coba lihat lagi.
>
>
>Mungkin ada rekan lain yang bisa bantu menjawab.
>
>
>Salam,
>HK
>
>
>
>On Thursday, 14 November 2013, 8:23, Liem Suliem <liemsuliem@yahoo.co.id> wrote:
>

>dear pak hk..
>saya coba download file ini tapi begitu saya buka terus coba input data dan tekan tombol
>Rekam Ke Tabel muncul pesan seperti terlampir.. karena kebetulan saya juga perlu.
>tapi masih buta tentang makroh.. pesan eror prin scren terlampir
>
>
>
>
>
>
>Pada Rabu, 13 November 2013 11:19, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:
>

>Coba pelajari warisan mba Siti terlampir.
>
>
>Salam,
>HK
>
>
>
>On Wednesday, 13 November 2013, 10:41, dwi mulyaningsih <upiet29@yahoo.com> wrote:
>

>Dear Pakar Excel,
>
>
>Mohon bantuannya, saya punya file untuk membuat invoice dengan nomor urut otomatis.
>Yang saya inginkan ketika saya klik tombol simpan maka : 
>1. Data dari invoice tersebut akan masuk ke dalam file rekap penjualan, dan 
>2. invoice tersebut juga secara otomatis akan tersimpan dalam file tersendiri. 
>
>
>Untuk yang point ke dua sudah bisa dijalankan, sedangkan point ke satu saya belum mendapatkan caranya.
>Mohon bantuannya.
>
>
>Terima kasih
>
>
>Dwi
>
>
>
>
>
>
>
>
>
>
>
>

Mon Nov 18, 2013 12:49 am (PST) . Posted by:

puja_rahman

Siang

Mohon bantuannya, bagaimana cara menghitung jatuh tempo menggunakan rumus excel

tanggal valid tanggal bayar tanggal jatuh tempo H+2
7/23/2013 10/16/2013 10/18/2013
7/25/2013 9/30/2013 ?????
6/7/2013 0/10/2013 ????

terima kasih, mudah2an allah membalas kebaikan temen2
hehehe...

Thks
Puja

Mon Nov 18, 2013 12:58 am (PST) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Mas Puja,
bagaimana kalo tanggal jatuh tempo di hari sabtu, minggu dan hari libur nasional?
apakah diperbolehkan?

Silahkan digunakan fungsi =WORKDAY()

thanks
-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of puja_rahman@yahoo.com
Sent: Monday, November 18, 2013 3:47 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] menghitung tanggal jatuh tempo

Siang

Mohon bantuannya, bagaimana cara menghitung jatuh tempo menggunakan rumus excel

tanggal valid tanggal bayar tanggal jatuh tempo H+2
7/23/2013 10/16/2013 10/18/2013
7/25/2013 9/30/2013 ?????
6/7/2013 0/10/2013 ????

terima kasih, mudah2an allah membalas kebaikan temen2
hehehe...

Thks
Puja

Mon Nov 18, 2013 1:00 am (PST) . Posted by:

"Heru Monas" sinau_22

Misalkan  tanggal bayar ada di cell B1
Dan jatuh tempo ada di cell C1
Maka di cell C1 ketik  =(B1)+2
tekan enter
Semoga seperti yang di inginkan

Pada Senin, 18 November 2013 16:51, "puja_rahman@yahoo.com" <puja_rahman@yahoo.com> menulis:

 
Siang
 
Mohon bantuannya, bagaimana cara menghitung jatuh tempo menggunakan rumus excel
 
tanggal valid               tanggal bayar             tanggal jatuh tempo H+2
7/23/2013                   10/16/2013                 10/18/2013
7/25/2013                    9/30/2013                   ?????
6/7/2013                      0/10/2013                   ????
 
terima kasih, mudah2an allah membalas kebaikan temen2
hehehe...
 
Thks
Puja

Mon Nov 18, 2013 12:49 am (PST) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Mr HK,
terima kasih udah menambahkan keterangan di kanan isi dari macro tsb .
pelajaran yang saya ambil yaitu :
1. untuk mengambil data rupanya tidak hanya dengan copypaste transpose, bisa juga dengan set ws = worksheet(namasheet). bukankah begitu?
2. worksheet yang akan dicopypaste transposekan, bisa diberikan variablenya terdahulu/ditanamkan di dalam macronya, sehingga macro akan mencari variable yang sesuai dengan worksheet yang akan dituju. hal ini nampak dari
Dim NCMBLN As String 'deklarasi variabelNCMBLN = CMBLN.Value 'mengambil nama bulan
karena saat saya hapus varible ncmbln bulan oktober dan saya masukkan bulan oktober maka akan error macronya dikarenakan macro tidak menanamkan variable untuk bulan oktober.
atau saya salah menafsirkan.

Bisa gak sih, variable2 bulan tsb tidak usah ditanamkan dalam program macro, yang harus menuliskan,
.CMBLN.AddItem "Januari".CMBLN.AddItem "Februari";.CMBLN.AddItem "Maret".CMBLN.AddItem "April".CMBLN.AddItem "Mei".CMBLN.AddItem "Juni".CMBLN.AddItem "Juli".CMBLN.AddItem "Agustus".CMBLN.AddItem "September&quot;.CMBLN.AddItem "Oktober".CMBLN.AddItem "Nopember";.CMBLN.AddItem "Desember";

tetapi cukup saat macro dijalankan, dan user memilih salah satu bulan, maka secara otomatis macro akan mengambil bulan yang dimaksudkan tsb ke sheet bulan yang sesuai? kalau bisa gimana ya program macronya ya?

Terima kasih pencerahannya.
ASL

To: belajar-excel@yahoogroups.com
From: hendrikkarnadi@yahoo.com
Date: Fri, 15 Nov 2013 01:49:11 -0800
Subject: Re: [belajar-excel] Input Data Keuangan




Mari kita bahas satu persatu.
Programnya "bersembunyi&quot; dibalik tombol..Untuk membukanya tekan tombol Alt F11.
Klik "UserForm1&quot; yang ada di sebelah kiri maka pada sisi kanan akan terlihat UserForm1.Di sebelah kiri bawah ada tombol "TAMBAH", klik kanan mouse lalu pilih "View Code". Nah, kelihatan programnya bukan ?
Mari kita bahas programnya sedikit demi sedikit.
Private Sub
CMDTMBH_Click() 'awal program
Dim NCMBLN As String 'deklarasi variabelNCMBLN = CMBLN.Value 'mengambil nama bulanDim iRow As Long 'deklarasi variabelDim ws As Worksheet 'deklarasi variabelSet ws = Worksheets(NCMBLN) 'menyimpan data pada worksheet sesuai nama bulan yang diinput
'menemukan baris kosong pada database --> cari baris ksong (iRow) pd klm1 (A)iRow = ws.Cells(Rows.Count, 1) _.End(xlUp).Offset(1, 0).Row
'check untuk sebuah kode --> jika tidak diisi, tampilkan pesan (MsgBox)If Trim(Me.tkode.Value) = "" ThenMe.tkode.SetFocusMsgBox "Masukan Kode Barang"Exit SubEnd If
'copy data ke database (data yang diisi pada form tcode, tnama, tsatuan, tharga)ws.Cells(iRow, 1).Value = Me.tkode.Valuews.Cells(iRow, 2).Value = Me.tnama.Valuews.Cells(iRow, 3).Value = Me.tsatuan.Valuews.Cells(iRow, 4).Value = Me.tharga.ValueMsgBox ("Data Sudah Tersimpan") 'pesan pada saat data sdh tersimpan
'clear Data --> kosongkan data pada form (value = "")Me.tkode.Value = ""Me.tnama.Value = ""Me.tsatuan.Value = ""Me.tharga.Value = ""Me.tkode.SetFocus 'fokus pada kodeEnd Sub 'akhir program
Private Sub CMDTTP_Click()Unload Me 'bebaskan daku (tutup form)End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, _CloseMode As Integer)If CloseMode = vbFormControlMenu ThenCancel = True 'tutupnya harus pake tombol tutup bosMsgBox "Gunakan Tombol Tutup !!!" 'pesanEnd IfEnd Sub
Private Sub UserForm_Initialize() 'tampilkan awal UserForm (pada saat tombol biru diklik)
With Me 'pilihan bulan pada saat anak panah kecil pada kotak di samping bulan diklik
.CMBLN.AddItem "Januari".CMBLN.AddItem "Februari";.CMBLN.AddItem "Maret".CMBLN.AddItem "April".CMBLN.AddItem "Mei".CMBLN.AddItem "Juni".CMBLN.AddItem "Juli".CMBLN.AddItem "Agustus".CMBLN.AddItem "September&quot;.CMBLN.AddItem "Oktober".CMBLN.AddItem "Nopember";.CMBLN.AddItem "Desember";End WithEnd Sub
'macro yang diinsert pada tombol biruSub FORM()UserForm1.Show 'tampilkan daku (buka
form)End Sub
Coba renungkan dan jalankan programnya (anda pasti bisa...).
Salam,HK

On Friday, 15 November 2013, 15:47, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:



MR HK,Akhirnya saya dapatin program yang key inputannya berdasarkan "Bulan", kenapa ya macronya tidak bisa dibuka.mohon bantuannya.terima kasih.ASLTo: belajar-excel@yahoogroups.comFrom: hendrikkarnadi@yahoo.comDate: Thu, 14 Nov 2013 07:49:00 -0800Subject: Re: [belajar-excel] Input Data Keuangan

Maaf pak, saya belum bisa memberikan solusi atas keinginan tersebut. Mungkin para sesepuh bisa memberikan solusinya.Salam,HK On Thursday, 14 November 2013, 8:21, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:


Mr HK,Terus terang saya memang gak paham dengan macro, walaupun ditutorin baca sana sini, tetep aja gak ngerti. soalnya pernah liat di blog lain tadinya saya mau copykan macronya tapi sayang saya sudah tidak simpan dalam komputer dan sudah lupa websitenya. Di situ saya liat, key inputannya nama bulan, jadi setelah proses input selesai dan akan disimpan atau dicopypastekan, macro akan mencari key inputan tsb, misal key inputannya "Januari", maka macro akan menyimpan (copypastekan) ke sheet yang bernama "Januari", begitu seterusnya sehingga didalam woorkbook tsb akan ada 12 sheet dari nama2 bulan. Jadi keinginan saya sama juga, Key Inputannya adalah nama Proyek, contoh key inputan "MAN-MNI", maka copypastenya akan ke sheet yang bernama "MAN-MNI", kalau keynya "MAN-BJA" maka copypastenya ke sheet "MAN-BJA", begitu seterusnya. Sedangkan yang saya maksud dengan Print Data Base di sini adalah suatu proses inputan atau
melihat inputan baik akan dilihat atau diedit, maka selain bisa dicopypaste ke sheet dari Masing2 Nama Proyek, juga bisa diprint hasil inputannya (semacam invoice/voucher begitu).di form Nama Proyek bisa dipilih2 sesuai dengan proyek yang diinginkan.Sekali lagi, harapan saya, bisa dibantu lagi oleh Mr HK, atau Mr dan Mrs lainnya.terima kasih.ASLTo: belajar-excel@yahoogroups.comFrom: hendrikkarnadi@yahoo.comDate: Wed, 13 Nov 2013 01:14:33 -0800Subject: Re: [belajar-excel] Input Data Keuangan

Pak ASL,Pertama-tama ingin saya sampaikan bahwa kehendak kita kadang2 belum tentu sesuai
dengan kaidah database yang baik (sesuai petunjuk Mr Kid dalam Kopdar1).Bila input/hasil input kita sudah memenuhi kaidah tsb maka reportingnya tentu akan lebih
mudah."Kehendak" yang belum sesuai adalah menyimpan hasil input per proyek.Kita bisa "memaksakan&quot; hal tsb waktu menyimpan
hasil input namun bagaimana waktu mengedit (sheet mana yang musti dilihat?)Walaupun hasil input disimpan di dalam satu sheet bukan berarti kita tidak dapat membuat outputnya per proyek. Ini bisa dilakukan dengan Data Filter atau PivotTable seperti yang sering dibahas dalam milis ini (apakah ini yang dimaksud dengan Print Data Base).Hal lainnyaJika ingin memilih nama proyek waktu menginput pada Form maka bisa dibuat data validation pada sel tsb yang mengacu kepada suatu daftar proyek (sheet Tabel
Proyek).Formulir Input memang didesign untuk diisi seluruhnya (tidak ada blank cell). Ini tercermin dari perintah :Set Form1 = Range(Range("F7"), Range("F7").End(xlDown))Semoga dengan penjelasan
ini anda bisa melakukan modifikasi.Jika masih ada kesulitan, silakan disampaikan kembali ke milis.Salam,HK On Wednesday, 13 November 2013, 14:57, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:


Mr HK,saya sudah sesuaikan dengan kehendak saya. kalau bisa mohon ditambahkan lagi dong, seperti Print Data Base, pemilihan Nama Proyek. Dari Nama proyek yang dipilih dan penginputan akan dieksekusi (Save Your New Input), makan hasil inputan tsb (copy pastenya) akan disimpan dalam sheet dari nama proyek yang dituju. Misal kalau nama proyeknya MAN-MNI maka hasil input/copy pastenya ke sheet yang bernama MAN-MNI.mudah2an Mr HK bisa membantu saya.terlampir file yang dimaksud.terima kasih.ASLTo: belajar-excel@yahoogroups.comFrom: hendrikkarnadi@yahoo.comDate: Mon, 11 Nov 2013 23:52:46 -0800Subject: Fw: [belajar-excel] Input Data Keuangan [1 Attachment]

Nah, ini filenya.... On Tuesday, 12 November 2013, 14:47, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:


Coba cari di file milis (file Mbak Siti). Form Input dan Lihatnya dipisah, Sheet Input dan Databasenya berada dalam satu workbook (bahkan ada tambahan Historcal Sheet - ide dari Mr. Kid).Setelah dipelajari, coba sesuaika nama2
kolomnya.Selamat mencoba.Salam,HK On
Tuesday, 12 November 2013, 14:12, Ahmad Syaifullah Lubis <syaifullah@hotmail.com> wrote:


Hallo BeExcellerUdah lama nih gak aktif (aktif nanya melulu 😊Saya dapat dari teman, file input data keuangan, namun tidak dapat jalan. saya liat programnya, namun saya tidak bisa memperbaikinya. mohon bantuannya dong, agar program tsb bisa jalan, syukur2 ditambah lagi dengan penyempurnaan yang lebih bagus. Inti programnya sih hanya hasil inputan data keuangan bisa dimasukkan ke database. Keinginan saya sih, waktu input Kode Act akan muncul nama account yang dimaksud. Lebih2 kalau ada program cetak voucher keluar/masuknya. yah berharap sangat ada membantu saya, yang dah gak sanggup bermacro, cuman pinginnya kerjaannya terbantu dengan macro.terima kasih.ASL.











Mon Nov 18, 2013 2:27 am (PST) . Posted by:

"Mulki" mulki_akbar

Terimakasih pak bagus atas pencerahannya.

Oia pak, kenapa utk baris nomor satu tidak berubah menjadi MERAH ya ?
Kalau saya lihat formula di CF-nya sepertinya sudah benar. Mohon pencerahannya pak bagus.

Sekali lagi terimakasih atas solusi dan pencerahannya.

Wassalam,
Mulki

----- Original Message -----
From: Bagus
To: belajar-excel@yahoogroups.com
Sent: Monday, November 18, 2013 1:03 PM
Subject: Re: [belajar-excel] Kontrol Stuffing

Pak Mulki;
1. Block B6:J6
2. Masuk ke Conditional Formating
3. isi spt gambar dibawah ini:

4. Lalu OK.
5. Tekan Ctr+C (copy)
6. block baris yg mau diberi CF
7. Paste Special => Pilih format => lalu OK

Wassalam

~ Bagus ~

----- Original Message -----
From: Mulki
To: belajar-excel@yahoogroups.com
Sent: Monday, November 18, 2013 11:47 AM
Subject: [belajar-excel] Kontrol Stuffing [1 Attachment]

Assalamu'alaikum Wr. Wb.

Semoga teman2 Be-Xlers selalu dlm keadaan sehat dan bersemangat.

Mohon bantuannya ya.
Saya ada kasus utk kontrol pengiriman barang yg kondisinya seperti dlm file terlampir. Sebenarnya saya punya ide utk hal yg besar dg menggunakan Macro dan format yg lebih baik dari yg sekarang tp sementara utk tahap awal belajar menggunakan formula dulu :)

Mohon pencerahan dan bantuan rekan2 semuanya.

Terimakasih & Wassalam,
Mulki

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