Sebelumnya

Birho
25-Des-09 22:31
Gimana adek cantik, udah di kamar kan
abang mau call nih...

***************************************
Birho memanggil.....

25-Des-09 22:41
Ringtone Hp ku berbunyi:

....so long, it was so long ago
But i still got the blues for you
Though the days come and go
There is one thing i know
I've still got the blues for you....

#Sebuah lagu dari Gary Moore "Steel Got The Blues" mengalun....

#Aku masih diamkan, belum tau berbuat apa
#Angkat dan ngajak ngobrol berarti Cerita Usai

Birho memanggil.....(lagi)

25-Des-09 22:47
Ringtone Hp ku berbunyi:

....so long, it was so long ago
But i still got the blues for you
Though the days come and go
There is one thing i know
I've still got the blues for you....

#Aku kasih HP ke isteriku untuk terlibat dalam permainan ini
#Maksudnya agar dia menjadi ESTI jadi-jadian
#Ternyata tawaran persekongkolan ditolak oleh isteriku
#..."Raja tega..." begitu dia berujar...Ugh payah..
#Akhirnya telepon itu tidak kuangkat dan Birho tidak call lagi

********************************************
Birho memanggil lagi...

26-Des-09 06:12
Ringtone Hp ku berbunyi:

Gary Moore berdendang lagi..

# Speaker kuaktifkan dan Aku kasih HP ke anakku
#"Siapa Pah...." kata Joshua
#"Oppung" tukasku sekenanya

Birho: "Hallo Esti
Josh: "Haloo Punggg, Oppung dah bangun..?"
Birho: "Hallo....siapa kau dek"
Josh: "Ini oppung bukan?"

#Tuut...Birho menghentikan panggilan

Aku
26-Des-09 06:16
Bang itu ponakan tadi

Birho
26-Des-09 06:17
Ooo...koq kau gak mau ngomong dengan abang dek..
Abang makin ragu nih, Ini Esti apa bukan

Aku
26-Des-09 06:23
Ini benaran Esti bang, suer bang
Ini janji yang terakhir.Ntar malam Esti telp abang yah..
Suer..suer...

Birho
26-Des-09 06:26
Oke dech...kalo gak telp, berarti ini bukan dek Esti
tapi penyamar gelap

Aku
26-Des-09 06:27
Ih..yang gelap kan abang...bang birong
he..he..Eh bang masih ingat gak nama lengkapnya aku

#Birong = Hitam

Birho
26-Des-09 06:29
Ingat dek, adek kan special dihati abang
gombal he3x

Aku
26-Des-09 06:31
Ayo siapa bang

Birho
26-Des-09 06:32
Est***** Manurung kan dek
100 kan buat abg

Aku
26-Des-09 06:35
Iya bang..100 buat abang
Udah dulu ya bang mau cuci piring dulu
Muachh

Birho
26-Des-09 06:37
Dek..dek..kuciumlah kau nanti
Ok deh..janji jangn lupa telp nanti malam

#Aha...Aku memang lupa nama lengkap Esty
#Hanya ingat Esty nya saja
#Segera aku online dan search di FB ---Est***** Manurung---
#Dan...ketemu, hasil searchnya hanya satu lagi..dia sendiri
#Wuih..samar-samar liat foto profilnya
#Itu memang sepertinya Esty, yang aku kenal waktu dia SMP 14 tahun lalu
#CANTIK..!!!!

#Aku kirim pesan: Ini Esty tetangga nya Bang Birho yang di Jl. Pe***** 8 Medan bukan??
Ini saya temannya bang Birho yang sering main catur dengan Bang Birho
di terasmu dulu.Ingat gak?

#Minta pertemanan? Ah nanti dulu...
#Dulu kami memang sering main catur di teras rumahnya
#Sekalian ngelaba..antara skak mat dan curi pandang
#Padahal Esti masih bocah ingusan ha..ha...ha...

*****************************
Aku
26-Des-09 12:09
Lg pain bang...

#Tak ada balasan
#Aku buka FB via HP, Esti belum membalas pesanku
#Jangan-jangan dia tidak terlalu sering ber FB ria

Birho
26-Des-09 14:13
Sory dek, tadi abang lagi ke doorsmer liat anggota

#Doorsmer : Tempat cuci mobil dan motor istilah di Sumatera sono

Aku
26-Des-09 14:18
Oo..itu usahanya ya bang, baguslah bang
abang berarti tokeh juga dong

Birho
26-Des-09 14:20
Yang penting bisa makanlah dek
gak jalan-jalan dek?

Aku
26-Des-09 14:21
Iya bang, ntar jam 4 an mau ke Sun Plaza
ama temannya bang Gaul, baru dikenalin bang
kali aja aku nyangkut bang, biar cepat kawin bang

#Gaul adalah teman kami juga, yang tinggal satu jalan dengan Birho

Birho
26-Des-09 14:23
Marga apa dek, kerja dimana
hati-hati dek,ama cowok-cowok metro jaman skrg
habis manis lalu ditinggal

#Cowok metro????apaan tu ya..? Matre kali??

Aku
26-Des-09 14:25
Marga Sagala bang
Kerja di Asuransi Pru******l
katanya omzet nya udah besar

Birho
26-Des-09 14:27
Ah..agen asuransi nya itu abang rasa dek
jangan percaya lah sama dia
tapi kalo ma jalan-jalan coba aja
yang penting hati-hati
Udah dulu ya dek

Aku
26-Des-09 14:29
Abang mau kemana, koq udah

Birho
26-Des-09 14:31
Ke rumah bupati dek

Aku
26-Des-09 14:32
Hebat kali bang, bisa hubungan sama Bupati
ngapain bang kesana

Birho
26-Des-09 14:34
Ini kan mau pemilihan, jadi isterinya
yang mau nyalonin lagi

Aku
26-Des-09 14:36
Emang isterinya tukang salon bang, pake nyalonin

Birho
26-Des-09 14:38
He3x bukan dek, maksudnya mau maju jadi calon bupati
kek Bill Clinton lah sama isterinya

Aku
26-Des-09 14:40
Oo...Jangan lupa ya bang bisnis facebook kita itu
udah abang tanya berapa harga pasaran facebook nya?
pokoknya dari sini barangnya banyak

Birho
26-Des-09 14:43
Belum dek, belum sempat
pokoknya untuk adik abang siapin waktu lah
abang salut sama dek Esti mau berfikir bisnis
Fitur selain facebook apa lagi dek..

#Fitur?

Aku
26-Des-09 14:45
Blackberry bang, tau gak?

Birho
26-Des-09 14:47
Tau lah dek..kek orang kampung aja kau buat
abangmu yang jelek ini

Aku
26-Des-09 14:48
Apa coba?

#Ngarep......kelucuan akan terjadi lagi

Birho
26-Des-09 14:50
Hp itu dek..si Obama yang pertama pake itu
kuciumlah kau nanti ya adek pikir abg gak tau

#Tak terjadi kelucuan, dia benar

Aku
26-Des-09 14:51
Kalo Yahoo Messenger banyak gak disitu bang??

Birho
26-Des-09 14:57
Udah dulu ya Dek, abang mau ke rumah bupati
jangan lupa telpon nanti malam ya dek

Aku
26-Des-09 14:58
oke bang

#Aku buka FB via Hp
#Esti belum juga membalas pesanku

Malamnya aku tidak telpon Birho karena memang tidak ada gunanya
dan dia bisa marah kalo aku telpon.Aku putuskan menunda dulu
Sampai hari ini,belum ada lagi kontak sms
Aku masih coba sms tapi tidak dijawab lagi
Sepertinya dia sudah tahu sedang dikerjain, tetapi belum bisa memastikan
siapa orangnya....

Esty juga belum membalas pesanku.

Jadi cerita ini mungkin akan bersambung lagi jika Esti membalas pesanku
dan akan dikembangkan lagi dari sana..(ha..ha..ha...jahil amat ya)
Ada plan terbaru aku ingin kirim foto Esti ini ke Birho, sehingga bisa "ON" lagi

Jadi sampai disini dulu sementara, karena cerita ini bukan imajiner(khayalan), maka
aku gak bisa membuat endingnya.Maunya riil sesuai kenyataan aja

Sebuah Kisah Nyata (Tanpa Rekayasa)

Berikut ini adalah transkrip sms antara aku dan Birho, seorang teman lama yang sudah lama
tidak ketemu. Dia seorang teman yang super geer, over pede ,gaptek, jadul tapi LUCU.Begitulah dia..
Transkrip ini langsung aku copy paste ke sini setelah di transfer data dari HP ke Laptop
Hanya aku rubah nama (menjadi nama samaran)

Ini lah akibat keseringan nonton Ups Salah (Trans 7)

Aku
25-Des-09 10:13
Selamat Natal 25 Des 2009 Tuhan memberkati kita senantiasa.
Kasih dan damai dari Tuhan, kita terapkan dalam menjalani kehidupan
kita sepanjang tahun 2010 nanti

Birho
25-Des-09 10:15
Siapa ini??

#Teung...tiba-tiba otak jahilku kambuh untuk ngerjain sobatku ini
#Aku pikir dia menyimpan nomorku, ternyata tidak.

Aku
25-Des-09 10:18
Esti bang..tetangga abang dulu di Medan

#Esti adalah tetangga sebelah Birho dulu sewaktu masih kuliah di Medan.
#Saat kami kuliah, Esti masih kelas 1 SMP. Orangnya cantik jelita
#bak Sandra Dewi. Birho cinta setengah mati dan sering kegeeran
#jika diberi senyuman oleh Esti

Birho
25-Des-09 10:20
Oo..Dimana sekarang dek

Aku
25-Des-09 10:21
Di Medan bang, abang dimana ini?

Birho
25-Des-09 10:23
Abang di Ranto dek, pulkam
Adik udah tamat atau udah kerja

Aku
25-Des-09 10:26
Udah kerja bang. Di PT Charoen Pokphan

#Ngarang...Mana tau aku Esti dimana rimbanya

Birho
25-Des-09 10:28
Abang tau itu, yang dekat Amplas kan?

Aku
25-Des-09 10:30
Iya bang,abang udah nikah belum

Birho
25-Des-09 10:34
Udah deck, isteri abang cantik kayak Dek Esti tapi berkacamata
karena dia kerja sbg accounting.Dek Esti udah nikah belum?

#Inilah Birho, penyakit gak nyambungnya masih akut
#Coba...apa hubungannya accounting sama kacamata

Aku
25-Des-09 10:36
Belum bang gak ada yang mau, anaknya udah brp bang?

Birho
25-Des-09 10:39
Ah..mana mungkin orang secantik dek Esti gak ada yang mau?
Abang belum punya anak Deck, belum pande buatnya he3x
Umur adik sekarang berapa ya

Aku
25-Des-09 10:40
26 tahun bang

Birho
25-Des-09 10:42
Pasti dek Esti cantik kali ya sekarang
Abg jadi teringat dulu, abang sering gangguin dek Esti

Aku
25-Des-09 10:43
Ah..abang mana berani dulu.Beraninya suit-suit aja
Gak takut bang sama isteri sms an ama ku

Birho
25-Des-09 10:45
Gak dik, abang lagi jomblo.isteri abang lagi di Siantar
Ada kerjaan urgent yang gak bisa ditinggal

Aku
25-Des-09 10:47
Natalan gak bareng dong, emang kerjanya apaan bang
koq smpai Natal pun gak bisa pulang

Birho
25-Des-09 10:49
Sebagai Head Accounting, di PT w****, yang kantor pusatnya di JW Marriott Medan
dia membawahi 7 pabrik, jadi super sibuk deck

Aku
25-Des-09 10:51
Ooo..abang kerja dimana

Birho
25-Des-09 10:54
Abang gak kerja dik, abg ada usaha aja kecil-kecilan
yang penting bisa makan 3x sehari he3x
Udah dulu ya dik, nanti jam 2 an kita sms an lagi
Abang lagi gereja ini, pendetanya udah selesai kotbah

#Sama dengan aku, saat kotbah sering dimanfaatkan untuk sms dan liat FB

******************************
Birho
25-Des-09 14:22
Halo adik cantik...

Aku
25-Des-09 14:25
Halo bang, muaaaach..

#Aku mancing penyakit geernya dan penyakit lelaki pada umumnya

Birho
25-Des-09 14:28
Aduh..koq adek cium abang? CI PI KA - CI PI KI ya..
awas abang tergoda lho.

Aku
25-Des-09 14:31
Gak papa lah bang, selingkuh kan gak apa-apa
lagi musim sekarang bang

#Serangan mulai di intensifkan

Birho
25-Des-09 14:34
Akh...adek bikin iman abang runtuh
Abang mau nelpon adik, boleh gak.Abang pingin dengar
suara merdunya Dek Esti

#Waduh...bisa ketahuan nih

Aku
25-Des-09 14:36
Jangan sekarang bang, lagi kumpul disini.Gak enak

Birho
25-Des-09 14:39
Oke dech, abang jadi kurang gairah kalo belum dengar suara dek Esti

Aku
25-Des-09 14:41
Abang punya facebook gak

Birho
25-Des-09 14:42
Punyalah deck

Aku
25-Des-09 14:44
Apa nama abang di Facebook?

Birho
25-Des-09 14:47
Emang nama Adik di facebook siapa

Aku
25-Des-09 14:50
Esti Cantik bang, kalo abang siapa?koq gak dijawab

Birho
25-Des-09 14:58
He3x...abang gak punya facebook dek
abang gak mampu beli,tp nantilah abis taon baru abang ke Medan
beli facebook, biar kita bisa ceting-ceting

#wkwkwkwkwkwkwkw.....facebook dibeli ????????
#sampai mulas aku ketawa, gak terpikir akan mendapat jawaban ini
#humor-humor di internet pun belum nemuin ada yang mau beli facebook
#wkwkwkwkwkwk lucu-lucu..

Aku
25-Des-09 15:05
Emang berapaan pasaran facebook di Ranto bang
biar aku drop dari sini, jadi kita bisa bisnis

Birho
25-Des-09 15:07
Nantilah abang tanya dulu di toko elektronik
kalo disini elektronik dikuasai chenes dek
Kalo gak Esti bellin dulu he3x

Aku
25-Des-09 15:11
Ok bang.Udah dulu ya bang,Ntar jam 8 an kita sms an lagi
mau jalan-jalan dulu ke Medan Mal. Muahhhhh

**********************************
Birho
25-Des-09 21:22
Halo dek, gimana jalan-jalannya

#Aku gak jawab

Birho
25-Des-09 21:49
Ya udah dek, abang mo bobok aja.Lagi dikunjungi pacar ya
abang takut nggangu

#Aku ganti nomor (pakai HP isteri)

Aku
25-Des-09 21:51
Sory bang, nomor yang tadi pulsanya habis
Ini pake HP adekku.Padahal pengen kali mau
sms an ama abang.Mau ngisi pulsa lagi hujan deras disini

Birho
25-Des-09 21:54
Ya udah, demi muasin kangen abang.Pulsa adek abang isi ya

#Kena deh...

Aku
25-Des-09 21:56
Gak usah bang, jadi gak enak

#Sms pun masuk ke nomorku tadi dari 858
Anda mendapatkan pulsa Rp 20000 dari simPATI 0813XXXXXXXX tgl 25-12-2009
22:01:05.Utk mengecek pulsa anda silahkan ketik *888#

#Hi..hi..hi...dapat pulsa gratis 20rb
#Alangkah berdosanya aku (Birho, ntar aku kembalikan ya)
#Kembali pake HP ku

Aku
25-Des-09 22:03
Udah bang udah masuk, makasih ya

Birho
25-Des-09 22:05
Akh..untuk dek Esti gak papa lah
lagian cuman 20 rebon nya
Nanti kalo adek ada rezeki kan bisa isi pulsa abang

Aku
25-Des-09 22:07
Iya deh bang

Birho
25-Des-09 22:10
Abang call adek ya...abang ragu dikit juga ini.Takutnya ini bukan Dek Esti
tapi ada orang yang nyamar jadi Dek Esti.Abang dikerjain dech

Aku
25-Des-09 22:11
Jangan dulu bang, aku masih ngumpul di ruang tengah ama bapak/mama

Birho
25-Des-09 22:15
Ya udah, masuk ke kamar aja.
Abang udah di kamar ini.Abang sengaja bikin AC nya Max Cool
Biar dingin

Aku
25-Des-09 22:18
Peluk aku dong bang, biar angat

Birho
25-Des-09 22:20
Aduh...abang jadi ngeres nih.Iman abang sudah runtuh
gara-gara dek Esti nih..akhh....

Aku
25-Des-09 22:22
Hati-hati bang ketahuan istri abang

Birho
25-Des-09 22:25
Gak dek, abang malah takut ama KPK, abang sms an ama cewek
Kayak antassari tu, gara-gara sms an ama cewek jadi masuk buih...

#Antasari Masuk buih??Gara-gara sms an????????

Birho
25-Des-09 22:31
Gimana adek cantik, udah di kamar kan
abang mau call nih...

****************************

Bersambung.......

Klik pada gambar untuk memperbesar....

Perintah Range dan Offset sering sekali digunakan dalam listing program VBA. Fungsi nya adalah untuk menyeleksi, berpindah sel atau pergerakan sel. Dan masih banyak kegunaan lainnya. Dalam bahasan kali ini akan menampilkan contoh perintah yang paling sederhana dari perintah Offset. Kita akan membahas bagaimana cara membuat perintah Macro untuk membuat sel bergerak atau berpindah ke kanan-kiri-atas-bawah

Langkah pertama buka sebuah lembar kerja baru (sheet1), keudian aktifkan sel C5 sebagai titik acuan dengan cara meng klik di sel tersebut

Buka jendela VBE lalu insert sebuah modul, kemudian ketik kode berikut

Sub Kiri()
ActiveCell.Offset(0, -1).Select
End Sub

Sekarang jalankan Macro Kiri, maka sel aktif akan berpindah ke kiri satu sel. Sel B5 aktif

Selanjutnya ketik kode berikut untuk pergerakan sel ke kanan, atas dan bawah

Sub Kanan()
ActiveCell.Offset(0, 1).Select
End Sub

Sub Atas()
ActiveCell.Offset(-1, 0).Select
End Sub

Sub Bawah()
ActiveCell.Offset(1, 0).Select
End Sub

Sebagai rangkumannya bisa dilihat pada gambar berikut ini

Untuk lebih memahami coba anda ganti angka 1 menjadi angka 2,3 ,4 .Apa yang terjadi??

Cara Lain Menjalankan Macro-1 sudah anda baca belum? Ada baiknya sebelum membaca Cara LainMenjalankan Macro-2 ini, anda baca terlebih dahulu Cara Lain Menjalankan Macro-1 untuk memudahkan pemahaman pelajaran kali ini. Cara Lain Menjalankan Macro-2 ini adalah dengan menggunakan Autoshapes. Dalam bahasan ini saya akan menggunakan salah satu dari Basic Shape yaitu Rounded Rectangle

Langkah pertama adalah rekam sebuah Macro untuk Hapus Data. Untuk mempersingkat waktu kita gunakan Macro_Hapus yang sudah ada di Cara Lain Menjalankan Macro-1. Pada sheet kerja ganti tombol CommandButton dengan Basic Shape yang sudah dipilih (Lihat Gbr). Tambahkan teks Hapus Data

Sehingga menjadi seperti ini:

Klik kanan pada shape Hapus Data, akan muncul kotak dialog seperti ini.

Kemudian klik Assign Macro. Selanjutnya pilih Macro_Hapus. Kemudian klik OK

Sekarang coba klik shape Hapus Data, maka sel A2 sampai A10 akan terhapus
Mudah bukan?