Rabu, 01 Januari 2014

[belajar-excel] Digest Number 2715

2 New Messages

Digest #2715

Messages

Wed Jan 1, 2014 12:19 am (PST) . Posted by:

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

Oh mau mode bunuh diri ya...

Coba begini :

dim dtBatas as date 'deklarasi tanggal batas (biar gampang saja)
on error resume next 'trap error agar tetap ke baris kode berikutnya
dtbatas=cdate("2012-12-31") 'init tanggal batas
application.displayalerts=false 'turnoff kecerewetan excel dalam
meminta konfirmasi tindakan
if now>dtbatas then 'cek kekadaluarsaan
thisworkbook.changefileaccess=xlreadonly 'buat workbook berstatus
read only (lepas dari file asli dan hanya membuka salinannya saja)
kill thisworkbook.fullname 'hapus object file si workbook
application.quit 'keluar dari aplikasi excel (bisa diganti dengan
thisworkbook.close false jika tidak ingin menutup excel)
endif

*** Peringatan !!!
jangan berikan perintah kepada mahluk hidup

Wassalam,
Kid.

P.s.
file uji cobanya disave dulu jadi file lain, supaya ndak usah buat prosedur
baru.

2014/1/1 Yan Novianto <yan.novianto@yahoo.com>

>
>
> Ikutan nanya yack
>
> Bagiaman jikalau kita mau share file, kemudian jika sudah kadaluarsa/lewat
> batas waktu file nya jadi terhapus?
>
> Terimakasih
> Sent from BlackBerry® on 3
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Wed, 1 Jan 2014 14:57:36 +0700
> *To: *BeExcel<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] Menghapus File Setelah Melewati Waktu
> Tertentu
>
>
>
> Misal file yang akan dihapus adalah myfile.txt yang ada disebuah subfolder
>
> dim dtBatas as date
> dtbatas=cdate("2012-12-31")
>
> if now>dtbatas then
> kill "d:\foldernya&#92;subfolder&#92;myfile.txt"
> endif
>
> Wassalam,
> Kid.
>
>
>
>
> 2014/1/1 Misbahul Anwar <kewonk_cheseeh@yahoo.co.id>
>
>>
>>
>> Mohon pencerahan, para master...
>> bagaimana coding untuk menghapus file secara permanen setelah melewati
>> waktu.
>>
>> Trims
>>
>>
>
>

Wed Jan 1, 2014 1:32 am (PST) . Posted by:

"Ruswanto Anto" rwanto78

Terimakasih banyak Mr. Kid......langsung saya praktekkan....clear....sekali lagi tks atas ilmunya....

Rgrds,
Ruswanto

Pada Selasa, 31 Desember 2013 17:52, Mr. Kid <mr.nmkid@gmail.com> menulis:

 
Hai Ruswanto,

Untuk di sheet Rekap, record ke-1, kolom Simpanan tahun 2012 :
=SUMPRODUCT(Pinjamanan!$D$5:$N$252*(Pinjamanan!$B$5:$B$252=$B6))

bagian :
Pinjamanan!$D$5:$N$252 -> area yang akan di-Sum
(Pinjamanan!$B$5:$B$252=$B6) -> syarat yang harus terpenuhi, yaitu no anggotanya sama

*   -> yang akan di-sum (numerik) dikali syarat (boolean atau (TRUE or FALSE) atau (1 or 0))

semua yang dikali 1 akan menghasilkan angka yang dikalikan dan semua yang dikali 0 akan menghasilkan 0, sehingga bisa di-sum.

copy ke record lain yang membutuhkan.

Wassalam,
Kid.

2013/12/30 Ruswanto Anto <rwanto78@yahoo.com>

> 
>Selamat Malam....BE EXCEL, saya Ruswanto
>
>Mohon bantuannya...saya mau merekap data transaksi yang sedang saya kerjakan, bagaimana mencari rumusnya agar setiap anggota tau jumlah masing2nya berapa...
>DATA SUMBER :     1. Sheet - Simpanan Anggota
>
>                                    2. Sheet - Pinjaman
>                                    3. Sheet - Bunga
>                                    4. Sheet - Pembayaran & Bunga
>DATA LINK        :    DI SHEET - REKAP
>
>
>
>permasalahan lebih lanjut data saya lampirkan.
>
>
>Terimakasih atas bantuannya, semoga be-excel lebih maju dan jaya.
>
>
>
>
>Rgrds,
>Ruswanto
>

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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 05.46

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)