Memeras Ide Menghajarnya dengan Aksi

Beberapa waktu yang lalu, (sudah lupa kapan saya mulai memikirkannya saking sudah lamanya) seringkali muncul dalam benak untuk selalu setia dengan diri sendiri. Setia dengan komitmen sendiri, dan setia dengan apa yang sudah dijanjikan sendiri. Kesetiaan dengan diri sendiri adalah suatu yang berat bagi saya. mungkin juga bagi pembaca. Ketika kita dihadapkan pada problem diri sendiri, komitmen sendiri, maka tidak ada alasan untuk berbohong atau berpaling untuk tidak melakukannya.

Saya memiliki banyak sekali impian, baik untuk kepentingan diri sendiri, maupun untuk kepentingan bersama. Tanpa segan saya pernah bermimpi suatu saat saya akan menjadi seorang professional yang sukses, dan secara berbarengan menjadi seorang penulis yang sukses.

Donor Darah…Yuk Mari Yuk…..

29 Mei 2012 adalah pengalaman pertama melakukan donor darah. Tadinya mau ikut di kantornya istri saya di Bandung. Tapi karena kebenaran saat ini di kantor sedang dilakukan aksi donor darah, maka saya niatkan untuk mendonorkan darah di kantor saja.

Karena baru pertama kali mendonorkan darah, ada sedikit keraguan dan ketakutan. Keraguan saya adalah apakah petugas PMI yang melakukan proses itu sudah cukup cakap untuk melakukan tugasnya? Apakah alat-alatnya sudah steril dan siap pakai? sedangkan ketakutan saya adalah dengan jarum suntik yang akan digunakan. Menurut saya ukuran jarum yang cukup besar, dan tentu sakit sekali kalau saja masuk menembus saluran darah lengan saya. 

Namun, karena sudah saya niatkan sejak lama, maka saya harus melakukan ini. Saya harus berani….

Wow… ternyata antusias  karywan untuk mengikuti aksi donor darah ini begitu tinggi, dan beberapa orang petugas dengan cekatan melakukan pemeriksaan darah, dan indikasi kesehatan lainnya. Dan yang lebih penting dan membunuh rasa takutku semua peralatan donor darah sekali pakai. Mulai dari pisau, suntikan, kaca untuk wadah darah dan sebagainya semua sekali pakai. Aku semakin berani…. Sipppp… I Like This….

Sudah cukup lama antri, dan akhirnya giliranku datang, tanpa rasa takut dan khawatir lagi aku ikuti perintah petugas, setelah diperiksa tensi darah, dan kata petugas aku bisa melakukan donor. Akhirnya Cusssss…. darah mengalir dari jari tengah…. darah segar meluncur deras, dengan sigap petugas menyapu dengan kaca untuk kemudian diberi cairan kimia. Tanpa banyak cincong, aku diberi kapas dengan larutan alkohol, siap menuju tempat tidur untuk di transfusi.

Sutikan pertama cukup membuatku meringis kecil, dan tanpa ba bi bu.. kulihat selang infus sudah penuh terisi dengan darahku. Tidak lebih dari lima belas menit prosesi transfusi darah selesai. Kulihat sekali lagi kantong darah, dan aku berdoa semoga orang yang memerlukan darah ini merasakan manfaatnya.

Aku lega… dan aku ingin melakukannya sebanyak mungkin. Selagi saya sehat, dan mampu untuk transfusi maka saya ingin melakukannya.

Setelah transfusi berakhir, aku diberikan bingkisan oleh perusahaan. Bingkisan yang boleh di bawa pulang, dan ternyata cukup banyak… Alhamdulillah.. Kalo rejeki kita, jangan ditolak. Tapi jangan mengharapkan bingkisan itu yang menjadi latar belakang kita mendonorkan darah kita. Tapi niatkan untuk ibadah kepada Allah SWT.

Semoga langkah kecil ini menjadi inspirasi bagi pembaca, marilah saling tolong menolong dalam kebaikan.

Menghindari User Mengklik tombol X pada USERFORM

Ada kalanya kita menginginkan pengguna software hanya mengklik tombol “cancel” saja untuk keluar form. Artinya klik tanda “X”  tidak diperbolehkan. Maka kodenya seperti di bawah ini:

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox “Klik Tombol “Keluar” saja ya…!”
End If
End Sub

Semoga bermanfaat

Membuat Nama Range Dinamis di Excel (2007)

Untuk membuat nama range secara dinamis di Excel (2007), maka lakukan langkah-langkah berikut ini:

1. Buka workbook baru (posisikan cursor) pada sel yang akan menjadi patokan (judul) range tersebut

2. Klik Formulas -> Define Name -> Ketikkan Nama Range di Name; misalnya nama_kasir (tidak boleh ada spasi, spasi ganti dg underscore)

3. Scope pilih workbook (atau sheet yang ingin anda jadikan sumber data). Kalo workbook maka formula berlaku untuk semua kertas kerja.

4. Untuk refers to isi dengan:

=OFFSET(Sheet1!$A$2;1;0;COUNTA(Sheet1!$A:$A)-1;1) (untuk sumber data di kolom A)

=OFFSET(Sheet1!$B$2;1;0;COUNTA(Sheet1!$B:$B)-1;1) (untuk sumber data di kolom B)

=OFFSET(Sheet1!$B$2;1;0;COUNTA(Sheet1!$B:$B)-1;1) (untuk sumber data di kolom C)

=OFFSET(LookupLists!$A$2;0;0;COUNTA(LookupLists!$A:$A)-1;1) (cara lain menentukan data range pada kolom A dg nama sheet “lookuplist”)

=OFFSET(LookupLists!$F$2;0;0;COUNTA(LookupLists!$F:$F)-1;1) (cara lain menentukan data range pada kolom B dg nama sheet “lookuplist”)

5. Setelah itu tekan tombol OK. Untuk menguji hasilnya ketikkan nama range tersebut di NameBox Formula Bar (kotak di atas kolom A) dengan nama yang sudah kita masukkan di Define nama tersebut, kemudian tekan Enter. Hasilnya nama yang ada sesuai dengan kolom akan di sorot (terseleksi)

6. Untuk mengedit “define name” yang sudah kita buat tersebut adalah dengan: klik Formulas -> Name Manager -> Maka akan dilihat hasil rekaman yang sudah kita buat tersebut. J (silakan untuk di edit, dihapus, atau membuat nama baru sesuai kebutuhan)

Tips:

Untuk memudahkan penulisan Kode OFFSET di atas, sebaiknya anda mengcopy paste saja tulisannya agar tidak terjadi kesalahan ketik yang menyebabkan “error”

Memilih Sheet Lebih Dari Satu Dari Workbook

Untuk memilih Sheet lebih dari 1, maka menggunakan perintah Array Seperti kode di bawah ini:

Sub pilihbyksheet()
Worksheets(Array(“Sheet1″, “Sheet2″, “Sheet3″)).Select
End Sub

Maka tampilan Sheet akan berubah menjadi  “terpilih” kemudian tambahkan kode-kode sesuai dengan keinginan kita untuk mengeksekusi program selanjutnya.

Semoga Bermanfaat

Menyembunyikan dan Menampilkan Sheet Dengan Kode Macro

‘Kode untuk menyembunyikan semua sheet namun menyisahkan 1 sheet saja dengan nama Sheet1

Sub HideAllButOneSheet()

Dim wsSheet As Worksheet

For Each wsSheet In Worksheets

wsSheet.Visible = wsSheet.Name = “Sheet1″

Next wsSheet

End Sub

Berikut ini kode untuk menampilkan semua Sheet

+++++++++++++++++++++++++++++++++++++

‘Kode untuk menampilkan semua sheet

Sub ShowAllSheets()

Dim wsSheet As Worksheet

For Each wsSheet In Worksheets

wsSheet.Visible = True

Next wsSheet

End Sub

Semoga Bermanfaat