Selasa, 13 Agustus 2013

[belajar-excel] Digest Number 2473

2 New Messages

Digest #2473
1
Aplikasi Absen Revisi by "Apriyadi" apriyadi_apry
2a
Re: BelajarVBA : Kenalan dengan object Range yuk... by "hendrik karnadi" hendrikkarnadi

Messages

Mon Aug 12, 2013 3:54 pm (PDT) . Posted by:

"Apriyadi" apriyadi_apry

 Dear Master excel,

Sebelum pertanyaan berselancar.Saya mengucapkan

Selamat Idul Fitri
Mohon Maaf Lahir Batin
Semoga kita dapat bertemu Ramadhan tahun depan.
Amin

Mohon bantuan para Master untuk Case seperti ini.
Jika punya saya punya tabel dan User Modul seperti ini "Dilampiran"

1 .     Scrip apa yang harus ditulis jika
        saat saya klik Tidak hadir maka
        txttglTidakHadir    == Tgl Tidak hadir  > terisi ke "C"
        tktNama                 == Nama > Terisi ke "D"
        tktKeterangan       == Keterangan > terisi ke "E" Dan "F"

2. Bagaimana cara nya agar orang yang sama tidak bisa absen hadir lebih dari 1 Kali dan Jika mencoba absen hadir lebih dari satu kali muncul peringatan "Anda sudah pernah Absen Hadir" dan data tidak masuk ke Sheet Absen.

Mohon maaf jika tidak melampirkan data karena datanya lebih dari 250 K.

Terima kasih atas bantuannya.

Thank

Apriyadi
0812 95 023 023
apriyadi_apry@yahoo.com

Mon Aug 12, 2013 8:25 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pak Ahmad,
Dari contoh file yang anda lampirkan, anda pasti memakai Excel Versi 2007 ke atas.
Default file extensionnya adalah .xlsx (save as Excel Workbook) dan file yang berisi Macro harus disave dengan extension .xlsm (Excel Macro-Enabled Workbook). Namun demikian, sesuai saran Mr Kid, kedua file tsb (keuangan dan laporan) bisa di save dengan extension .xls (Excel 97-2003 workbook).

Jadi dengan menggunakan Excel Versi 2007 ke atas, ada 2 alternatif code yang bisa dibuat:
1. Jika file diSave as sebagai Excel 97- 2003 (sesuai saran Mr. Kid)
Workbooks("Keuangan.xls").Worksheets("Dataku").Range("B3:G9").Copysuai saran Mr. Kid
2. Jika file diSave as sebagai Excel 2007 ke atas (sesuai contoh file anda)
Workbooks("Keuangan.xlsx").Worksheets("Dataku").Range("B3:G9").Copy
(perhatikan warna hijau).

Code tsb harus berada di dalam suatu Prosedur (diantara Sub ..... End Sub), bukan di luarnya.

Jadi di VBE Sheet module1 (setelah insert module) harus tertulis seperti ini:
1. Jika file diSave as sebagai Excel 97- 2003 (sesuai saran Mr. Kid)

Public Sub Tes()
    Workbooks("Keuangan.xls").Worksheets("Dataku").Range("B3:G9").Copy 'Code berada diantara Sub .... End Sub
End Sub
2. Jika file diSave as sebagai Excel 2007 ke atas (sesuai contoh file anda)
Public Sub Tes()
    Workbooks("Keuangan.xlsx").Worksheets("Dataku").Range("B3:G9").Copy 'Code berada diantara Sub .... End Sub
End Sub

JIka File diSave as sebagai Excel 2007 (extension.xlsx) tapi Codenya menggunakan Excel 97-2003 (extension .xls) maka akan timbul pesan (error) "Subscript out of range). Pesan yang sama akan terjadi jika file keuangan dalam keadaan tertutup (lihat hasil uji coba saya di bawah).

 Pesan (error) "compile error: invalid outside procedure" terjadi karena Codenya berada di luar struktur "Sub .... End Sub".

Terlampir adalah file laporan versi Excel 2007 ke atas yang sudah ada macronya (extension .xlsm) dan contoh code yang berada di luar prosedur.

Untuk menjalankan file berisi macro, macronya harus diaktifkan terlebih dahulu; coba link ke https://www.dropbox.com/s/shjx4cfdukukg07/Cara%20buka%20Macro%20Security.docx

Selamat mencoba.

Salam,
HK

________________________________
From: Ahmad Syaifullah Lubis <syaifullah@hotmail.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 12 August 2013, 10:01
Subject: RE: [belajar-excel] BelajarVBA : Kenalan dengan object Range yuk...


 
Mr Kid,
Maaf saya tidak mengerti cara memulai macronya.
ASL

________________________________
To: belajar-excel@yahoogroups.com
From: hendrikkarnadi@yahoo.com
Date: Tue, 6 Aug 2013 21:27:29 -0700
Subject: Re: [belajar-excel] BelajarVBA : Kenalan dengan object Range yuk...

 

Hasil uji coba saya,
- Ok, jika Workbooks("Keuangan.xls") dalam keadaan terbuka
- Tidak Ok, jika Workbooks("Keuangan.xls") dalam keadaan tertutup (ada pesan Run-time Error '9", Subscript out of Range)

Salam,
HK

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Wednesday, 7 August 2013, 5:08
Subject: Re: [belajar-excel] BelajarVBA : Kenalan dengan object Range yuk...


 
ops, kok sampai sekarang belum ada lampiran hasil uji cobanya ya.

Adakah BeExceller yang bersedia berbagi hasil uji cobanya, terutama yang baru bersemangat belajar VBA.

Ditunggu loh share hasil uji cobanya.

Wassalam,
Kid.

2013/8/2 Mr. Kid <mr.nmkid@gmail.com>

Bagaimana jika Anda melampirkan kedua file (laporan.xls dan keuangan.xls) yang bermasalah. Justri belajar dari suatu kesalahan akan lebih banyak bermanfaat bagi khalayak. Bukankah banyak orang tidak mau mengalami nasib serupa dengan si A yang begini begitu dibandingkan meneladani si B yang tidak pernah tertimpa hal begono atau begunu.
>
>Wassalam,
>Kid.
>
>
>
>
>
>
>
>
>2013/8/2 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>
>
>
>> 
>>Mr Kid,
>>ijinkan saya diberikan contoh file xls yg sudah ada macro dimaksud. karena saya bolak balik ikutin instruksinya gak bisa2 juga. errornya di ("B3:G9")
>>
>>yang mana setelah ALT 11 saya klik insert procedure kan. terus saya langsung copy macronya. saya run , tapi error hasilnya.
>>
>>
>>>> aktifkan workbook bernama Laporan.xls, ke VBE (ALT F11) -> Insert sebuah general module -> buat sebuah blok prosedur Sub ber-scope public dengan nama sesukanya -> isi blok persedur tersebut dengan script :
>>     Workbooks("Keuangan.xls").Worksheets("Dataku&quot;).Range("B3:G9").Copy
>>[pastikan tidak ada spasi dan seluruhnya sebagai 1 (satu) baris kode]
>>
>>
>>
>>________________________________
>>To: belajar-excel@yahoogroups.com
>>From: mr.nmkid@gmail.com
>>Date: Fri, 2 Aug 2013 10:17:21 +0700
>>Subject: Re: [belajar-excel] BelajarVBA : Kenalan dengan object Range yuk...
>>
>>
>> 
>>
>>
>>Hai Ahmad,
>>
>>Jika diikuti ceritanya :
>>1. Misalkan ada dua buah workbook yang terbuka
>>
>>>> Artinya, buka Excel. Lalu menu File Open -> pilih workbook pertama, kemudian menu FIle Open -> pilih workbook kedua
>>
>>2. yaitu bernama Keuangan.xls dan Laporan.xls
>>>> jadi, workbook pertama dinomor 1 itu adalah memilih file bernama Keuangan.xls
>>dan workbook kedua dinomor 1 itu adalah memilih file bernama Laporan.xls
>>
>>>> Jika belum punya, maka harus buat dulu file Keuangan.xls dan Laporan.xls
>>(2 bijik workbook format xl2003 file karena xls. kenapa ? agar seluruh BeExceller yang masih pakai xl2003 bisa ikut menikmatinya)
>>
>>
>>3. yang masing-masing berisi banyak worksheet.
>>
>>>> setiap file dipastikan berisi banyak sheet (minimal 3 atau 4 sheet lah biar muanteb), lalu di save
>>
>>4. Ketika bekerja pada workbook Laporan.xls bisa menggunakan nilai yang ada dalam workbook Keuangan.xls pada sheet bernama Dataku
>>>> berarti di file Keuangan.xls, salah satu sheet dari banyak sheet yang ada di file tersebut harus diberinama Dataku
>>
>>
>>5. di range dengan alamat B3 sampai G9.
>>
>>>> isilah nilai sesuka Anda dari B3 sampai G9. Bisa copas dari mana saja atau buat acak.
>>
>>
>>6. Artinya, dari workbook Laporan.xls
>>
>>>> aktifkan workbook bernama Laporan.xls, ke VBE (ALT F11) -> Insert sebuah general module -> buat sebuah blok prosedur Sub ber-scope public dengan nama sesukanya -> isi blok persedur tersebut dengan script :
>>     Workbooks("Keuangan.xls").Worksheets("Dataku&quot;).Range("B3:G9").Copy
>>
>>[pastikan tidak ada spasi dan seluruhnya sebagai 1 (satu) baris kode]
>>
>>
>>7. Simpan kedua workbook dan aktifkan workbook Laporan.xls
>>
>>
>>8. Jalankan blok prosedur yang Anda buat
>>
>>
>>9. Lihat di workbook keuangan pada sheet bernama Dataku diarea range B3:G9 sudah ada semut jalan dipinggir areanya.
>>
>>;)
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>2013/8/1 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>
>>
>>
>>> 
>>>
>>>
>>>Mr Kid,
>>>saya sudah masuk object2 utama dalam excel. saya baru masuk pada contoh 1: menggunakan workbook lain, saya ingin coba jalankan macro yg tertera disitu, tetapi gak jalan, pesan errornya compile error: invalid outside procedure. di VBA tersorot ("B3..G9") itu yang salah.
>>>Panduan Penggunaan object-nya adalah sebagai berikut :
>>>   Workbooks("Keuangan.xls").Worksheets("Dataku&quot;).Range("B3:G9").Copy
>>>
>>>Artinya, dari workbook Laporan.xls, hubungi workbook bernama
Keuangan.xls yang sedang terbuka. Kemudian ke worksheet bernama Dataku
yang ada di workbook Keuangan.xls yang telah dihubungi tersebut. Di
worksheet bernama Dataku tersebut, lakukan pemilihan cells agar didapat
range mulai dari B3 sampai G9. Range yang dituju tersebut di-Copy ke
clipboard.
>>>
>>>mohon bantuannya.
>>>terima kasih.
>>>ASL
>>>
>>>
>>>
>>>________________________________
>>>To: belajar-excel@yahoogroups.com
>>>From: mr.nmkid@gmail.com
>>>Date: Sun, 28 Jul 2013 00:04:33 +0700
>>>Subject: [belajar-excel] BelajarVBA : Kenalan dengan object Range yuk...
>>>
>>>
>>> 
>>>
>>>
>>>Dear BeExceller,
>>>
>>>Dalam Excel VBA akan sering berseliweran yang namanya Workbook, Worksheet, maupun range. Hal yang disebutkan tersebut adalah object-object utama dalam Excel.
>>>
>>>
Ada baiknya, sebelum melangkah lebih jauh, kita kenal lebih dulu tentang object-object utama tersebut. Untuk hal ini, silakan jalan-jalan kesini.
>>>
>>>
>>>
>>>Wassalam,
>>>
>>>Kid.
>>>
>>>
>>>
>>>
>>
>>
>

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