MEMBUAT FORM ISIAN DATA PENGISIAN FORM 1770SS SPT TAHUNAN MENGGUNAKAN EXCEL

Setelah kita mempelajari pembuatan form sederhana menggunakan excel, selanjutnya kita akan membuat applikasi pengisian Form 1770 SS….biasa biar gak jenuh input datanya….hehehe…

Mari kita mulai dengan langkah-langkah sebagai berikut :

  1. Buka file excel 2007
  2. Double Klik di nama worksheet lalu ganti nama yg asalnya Sheet1 menjadi “1770SS” dan Sheet2 menjadi “1770SSdata” (ini mah klo saya, klo anda terserah tapi perlu diingat namanya untuk pembuatan code)

Seperti tampak pada gambar dibawah ini :

Biar gampang mah download aja disini

Kemudian kita simpan file sebagai excel makro….klik file save as pilih Excel Macro Enabled Workbook….ketik nama file disini saya beri nama file “1770SS”

Langkah selanjutnya adalah design form dengan Control yang akan kita gunakan adalah : Control Label, Textbox, Command Button dan frame adapun langkah-langkahnya seperti sudah saya bahas pada pembahasan sebelumnya  (MEMBUAT FORM ISIAN DATA SEDERHANA DI EXCEL)

Langkah selanjutnya adalah memberi nama dan caption untuk tiap label, textbox dan command button

  1. Frame 1 Name “IDENTITAS Caption “IDENTITAS”
  2. Label Caption : “NPWP, NAMA WAJIB PAJAK, PEKERJAAN, KLU, NO TELEPON, NO FAXIMILE, LAPORAN PERUBAHAN DATA, TERSENDIRI, TIDAK ADA, JUMLAH KESELURUHAN HARTA YANG DIMILIKI PADA AKHIR TAHUN,Rp., JUMLAH KESELURUHAN KEWAJIBAN/UTANG PADA AKHIR TAHUN dan TANGGAL”
  3. Textbox name : NPWP1 sampai dengan NPWP15 (untuk pengisian No NPWP)
  4. Textbox name : NAMA1 sampai dengan NAMA32 (untuk pengisian Nama)
  5. Textbox name : PEK1 sampai dengan PEK23 (untuk pengisian Pekerjaan)
  6. Textbox name : KLU1 sampai dengan KLU6 (untuk pengisian KLU biasanya dikosongkan)
  7. Textbox name : TLP1 sampai dengan TLP12 (untuk pengisian No Telepon)
  8. Textbox name : FAX1 sampai dengan FAX12 (untuk pengisian No Fax)
  9. Textbox name : PD1 (untuk pengisian Perubahan Data)
  10. Textbox name : PD2 (untuk pengisian Lampiran Tersendiri)
  11. Textbox name : HARTA (untuk pengisian HARTA YANG DIMILIKI PADA AKHIR TAHUN)
  12. Textbox name : UTANG (untuk pengisian UTANG YANG PADA AKHIR TAHUN)
  13. Textbox name : TGL1 sampai dengan TGL8 (untuk pengisian tanggal bulan dan tahun)
  14. CommandButton1 name dan Caption : TAMBAH
  15. CommandButton2 name dan Caption : TUTUP

Code yang dipakai di module 1

Sub F1770SS()

Form1770SS.Show

End Sub

Code yang dipakai CommandButton TUTUP

Private Sub CMTUTUP_Click()

Unload Me

End Sub

Code yang dipakai CommandButton TAMBAH

Private Sub TAMBAH_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets(“1770SSdata”)

‘menemukan baris kosong pada database

iRow = ws.Cells(Rows.Count, 1) _

.End(xlUp).Offset(1, 0).Row

iNomor = ws.Cells(iRow – 1, 1).Value
iNomor = iNomor + 1

‘check untuk sebuah kode

If Trim(Me.NPWP1.Value) = “” Then

Me.NPWP1.SetFocus

MsgBox “Iiiiccchhh…..Data masih kosong tuuuhhhh….!!!!!”

Exit Sub

End If

‘copy data ke database

‘ NPWP

ws.Cells(iRow, 1).Value = iNomor

ws.Cells(iRow, 2).Value = Me.NPWP1.Value

ws.Cells(iRow, 3).Value = Me.NPWP2.Value

ws.Cells(iRow, 4).Value = Me.NPWP3.Value

ws.Cells(iRow, 5).Value = Me.NPWP4.Value

ws.Cells(iRow, 6).Value = Me.NPWP5.Value

ws.Cells(iRow, 7).Value = Me.NPWP6.Value

ws.Cells(iRow, 8).Value = Me.NPWP7.Value

ws.Cells(iRow, 9).Value = Me.NPWP8.Value

ws.Cells(iRow, 10).Value = Me.NPWP9.Value

ws.Cells(iRow, 11).Value = Me.NPWP10.Value

ws.Cells(iRow, 12).Value = Me.NPWP11.Value

ws.Cells(iRow, 13).Value = Me.NPWP12.Value

ws.Cells(iRow, 14).Value = Me.NPWP13.Value

ws.Cells(iRow, 15).Value = Me.NPWP14.Value

ws.Cells(iRow, 16).Value = Me.NPWP15.Value

‘NAMA

ws.Cells(iRow, 17).Value = Me.NAMA1.Value

ws.Cells(iRow, 18).Value = Me.NAMA2.Value

ws.Cells(iRow, 19).Value = Me.NAMA3.Value

ws.Cells(iRow, 20).Value = Me.NAMA4.Value

ws.Cells(iRow, 21).Value = Me.NAMA5.Value

ws.Cells(iRow, 22).Value = Me.NAMA6.Value

ws.Cells(iRow, 23).Value = Me.NAMA7.Value

ws.Cells(iRow, 24).Value = Me.NAMA8.Value

ws.Cells(iRow, 25).Value = Me.NAMA9.Value

ws.Cells(iRow, 26).Value = Me.NAMA10.Value

ws.Cells(iRow, 27).Value = Me.NAMA11.Value

ws.Cells(iRow, 28).Value = Me.NAMA12.Value

ws.Cells(iRow, 29).Value = Me.NAMA13.Value

ws.Cells(iRow, 30).Value = Me.NAMA14.Value

ws.Cells(iRow, 31).Value = Me.NAMA15.Value

ws.Cells(iRow, 32).Value = Me.NAMA16.Value

ws.Cells(iRow, 33).Value = Me.NAMA17.Value

ws.Cells(iRow, 34).Value = Me.NAMA18.Value

ws.Cells(iRow, 35).Value = Me.NAMA19.Value

ws.Cells(iRow, 36).Value = Me.NAMA20.Value

ws.Cells(iRow, 37).Value = Me.NAMA21.Value

ws.Cells(iRow, 38).Value = Me.NAMA22.Value

ws.Cells(iRow, 39).Value = Me.NAMA23.Value

ws.Cells(iRow, 40).Value = Me.NAMA24.Value

ws.Cells(iRow, 41).Value = Me.NAMA25.Value

ws.Cells(iRow, 42).Value = Me.NAMA26.Value

ws.Cells(iRow, 43).Value = Me.NAMA27.Value

ws.Cells(iRow, 44).Value = Me.NAMA28.Value

ws.Cells(iRow, 45).Value = Me.NAMA29.Value

ws.Cells(iRow, 46).Value = Me.NAMA30.Value

ws.Cells(iRow, 47).Value = Me.NAMA31.Value

ws.Cells(iRow, 48).Value = Me.NAMA32.Value

‘PEKERJAAN

ws.Cells(iRow, 49).Value = Me.PEK1.Value

ws.Cells(iRow, 50).Value = Me.PEK2.Value

ws.Cells(iRow, 51).Value = Me.PEK3.Value

ws.Cells(iRow, 52).Value = Me.PEK4.Value

ws.Cells(iRow, 53).Value = Me.PEK5.Value

ws.Cells(iRow, 54).Value = Me.PEK6.Value

ws.Cells(iRow, 55).Value = Me.PEK7.Value

ws.Cells(iRow, 56).Value = Me.PEK8.Value

ws.Cells(iRow, 57).Value = Me.PEK9.Value

ws.Cells(iRow, 58).Value = Me.PEK10.Value

ws.Cells(iRow, 59).Value = Me.PEK11.Value

ws.Cells(iRow, 60).Value = Me.PEK12.Value

ws.Cells(iRow, 61).Value = Me.PEK13.Value

ws.Cells(iRow, 62).Value = Me.PEK14.Value

ws.Cells(iRow, 63).Value = Me.PEK15.Value

ws.Cells(iRow, 64).Value = Me.PEK16.Value

ws.Cells(iRow, 65).Value = Me.PEK17.Value

ws.Cells(iRow, 66).Value = Me.PEK18.Value

ws.Cells(iRow, 67).Value = Me.PEK19.Value

ws.Cells(iRow, 68).Value = Me.PEK20.Value

ws.Cells(iRow, 69).Value = Me.PEK21.Value

ws.Cells(iRow, 70).Value = Me.PEK22.Value

ws.Cells(iRow, 71).Value = Me.PEK23.Value

‘KLU

ws.Cells(iRow, 72).Value = Me.KLU1.Value

ws.Cells(iRow, 73).Value = Me.KLU2.Value

ws.Cells(iRow, 74).Value = Me.KLU3.Value

ws.Cells(iRow, 75).Value = Me.KLU4.Value

ws.Cells(iRow, 76).Value = Me.KLU5.Value

ws.Cells(iRow, 77).Value = Me.KLU6.Value

‘TLP

ws.Cells(iRow, 78).Value = Me.TLP1.Value

ws.Cells(iRow, 79).Value = Me.TLP2.Value

ws.Cells(iRow, 80).Value = Me.TLP3.Value

ws.Cells(iRow, 81).Value = Me.TLP4.Value

ws.Cells(iRow, 82).Value = Me.TLP5.Value

ws.Cells(iRow, 83).Value = Me.TLP6.Value

ws.Cells(iRow, 84).Value = Me.TLP7.Value

ws.Cells(iRow, 85).Value = Me.TLP8.Value

ws.Cells(iRow, 86).Value = Me.TLP9.Value

ws.Cells(iRow, 87).Value = Me.TLP10.Value

ws.Cells(iRow, 88).Value = Me.TLP11.Value

ws.Cells(iRow, 89).Value = Me.TLP12.Value

‘FAX

ws.Cells(iRow, 90).Value = Me.FAX1.Value

ws.Cells(iRow, 91).Value = Me.FAX2.Value

ws.Cells(iRow, 92).Value = Me.FAX3.Value

ws.Cells(iRow, 93).Value = Me.FAX4.Value

ws.Cells(iRow, 94).Value = Me.FAX5.Value

ws.Cells(iRow, 95).Value = Me.FAX6.Value

ws.Cells(iRow, 96).Value = Me.FAX7.Value

ws.Cells(iRow, 97).Value = Me.FAX8.Value

ws.Cells(iRow, 98).Value = Me.FAX9.Value

ws.Cells(iRow, 99).Value = Me.FAX10.Value

ws.Cells(iRow, 100).Value = Me.FAX11.Value

ws.Cells(iRow, 101).Value = Me.FAX12.Value

‘PD

ws.Cells(iRow, 102).Value = Me.PD1.Value

ws.Cells(iRow, 103).Value = Me.PD2.Value

‘HARTA

ws.Cells(iRow, 104).Value = Me.HARTA.Value

‘UTANG

ws.Cells(iRow, 105).Value = Me.UTANG.Value

‘TGL

ws.Cells(iRow, 106).Value = Me.TGL1.Value

ws.Cells(iRow, 107).Value = Me.TGL2.Value

ws.Cells(iRow, 108).Value = Me.TGL3.Value

ws.Cells(iRow, 109).Value = Me.TGL4.Value

ws.Cells(iRow, 110).Value = Me.TGL5.Value

ws.Cells(iRow, 111).Value = Me.TGL6.Value

ws.Cells(iRow, 112).Value = Me.TGL7.Value

ws.Cells(iRow, 113).Value = Me.TGL8.Value

‘clear data

Me.NPWP1.Value = “”

Me.NPWP2.Value = “”

Me.NPWP3.Value = “”

Me.NPWP4.Value = “”

Me.NPWP5.Value = “”

Me.NPWP6.Value = “”

Me.NPWP7.Value = “”

Me.NPWP8.Value = “”

Me.NPWP9.Value = “”

Me.NPWP10.Value = “”

Me.NPWP11.Value = “”

Me.NPWP12.Value = “”

Me.NPWP13.Value = “”

Me.NPWP14.Value = “”

Me.NPWP15.Value = “”

‘NAMA

Me.NAMA1.Value = “”

Me.NAMA2.Value = “”

Me.NAMA3.Value = “”

Me.NAMA4.Value = “”

Me.NAMA5.Value = “”

Me.NAMA6.Value = “”

Me.NAMA7.Value = “”

Me.NAMA8.Value = “”

Me.NAMA9.Value = “”

Me.NAMA10.Value = “”

Me.NAMA11.Value = “”

Me.NAMA12.Value = “”

Me.NAMA13.Value = “”

Me.NAMA14.Value = “”

Me.NAMA15.Value = “”

Me.NAMA16.Value = “”

Me.NAMA17.Value = “”

Me.NAMA18.Value = “”

Me.NAMA19.Value = “”

Me.NAMA20.Value = “”

Me.NAMA21.Value = “”

Me.NAMA22.Value = “”

Me.NAMA23.Value = “”

Me.NAMA24.Value = “”

Me.NAMA25.Value = “”

Me.NAMA26.Value = “”

Me.NAMA27.Value = “”

Me.NAMA28.Value = “”

Me.NAMA29.Value = “”

Me.NAMA30.Value = “”

Me.NAMA31.Value = “”

Me.NAMA32.Value = “”

Me.PEK1.Value = “”

Me.PEK2.Value = “”

Me.PEK3.Value = “”

Me.PEK4.Value = “”

Me.PEK5.Value = “”

Me.PEK6.Value = “”

Me.PEK7.Value = “”

Me.PEK8.Value = “”

Me.PEK9.Value = “”

Me.PEK10.Value = “”

Me.PEK11.Value = “”

Me.PEK12.Value = “”

Me.PEK13.Value = “”

Me.PEK14.Value = “”

Me.PEK15.Value = “”

Me.PEK16.Value = “”

Me.PEK17.Value = “”

Me.PEK18.Value = “”

Me.PEK19.Value = “”

Me.PEK20.Value = “”

Me.PEK21.Value = “”

Me.PEK22.Value = “”

Me.PEK23.Value = “”

Me.KLU1.Value = “”

Me.KLU2.Value = “”

Me.KLU3.Value = “”

Me.KLU4.Value = “”

Me.KLU5.Value = “”

Me.KLU6.Value = “”

Me.TLP1.Value = “”

Me.TLP2.Value = “”

Me.TLP3.Value = “”

Me.TLP4.Value = “”

Me.TLP5.Value = “”

Me.TLP6.Value = “”

Me.TLP7.Value = “”

Me.TLP8.Value = “”

Me.TLP9.Value = “”

Me.TLP10.Value = “”

Me.TLP11.Value = “”

Me.TLP12.Value = “”

Me.FAX1.Value = “”

Me.FAX2.Value = “”

Me.FAX3.Value = “”

Me.FAX4.Value = “”

Me.FAX5.Value = “”

Me.FAX6.Value = “”

Me.FAX7.Value = “”

Me.FAX8.Value = “”

Me.FAX9.Value = “”

Me.FAX10.Value = “”

Me.FAX11.Value = “”

Me.FAX12.Value = “”

Me.PD1.Value = “”

Me.PD2.Value = “”

Me.HARTA.Value = “”

Me.UTANG.Value = “”

Me.TGL1.Value = “”

Me.TGL2.Value = “”

Me.TGL3.Value = “”

Me.TGL4.Value = “”

Me.TGL5.Value = “”

Me.TGL6.Value = “”

Me.TGL7.Value = “”

Me.TGL8.Value = “”

Me.NPWP1.SetFocus

End Sub

Untuk menghindari menutup melalui tanda X pada form masukan kode dibawah ini dengan klik kanan mouse pada form dan pilih view code dan ketikan kode dibawah ini :

Private Sub UserForm_QueryClose(Cancel As Integer, _

CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox “MAKE TOMBOL ATUH KANG!”

End If

End Sub

MEMBUAT FORM ISIAN DATA SEDERHANA DI EXCEL

Terkadang kita merasa jenuh mengisi table di excel, untuk membuang kejenuhan mengisi data saya coba iseng iseng membuat form sederhana untuk sekedar membuang kejenuhan…..
Selanjutnya anda bias mengembangkan sesuai dengan kebutuhan…….
Adapun langkah-langkah pembuatan form sebagai berikut :
1. Buka file excel 2007
2. Double Klik di nama worksheet lalu ganti nama yg asalnya Sheet1 menjadi “PARTSDATA” (ini mah klo saya, klo anda terserah tapi perlu diingat namanya untuk pembuatan code)
3. Pada Row 1 kolom kita buat nama heading untuk tabelnya seperti tampak pada gambar dibawah ini :


4. Kemudian kita simpan file sebagai excel makro….klik file save as pilih Excel Macro Enabled Workbook….ketik nama file disini saya beri nama file “data barang”

Langkah berikutnya membuat Macro untuk file tersebut, adapun langkah-langkah pembuatan macro sebagai berikut :
1. Pada worksheet pilih menu view klik tab Macros pilih view macros :


2. Isikan macro name : “FORM” klik create :


3. Klik kanan mouse pada VBA Project
4. Pilih insert
5. Pilih user form :

Langkah selanjutnya adalah design form dengan Control yang akan kita gunakan adalah : Control Label, Textbox dan Command Button seperti tampak pada gambar berikut :


Langkah selanjutnya adalah member nama dan caption untuk tiap label, textbox dan command button

Label1 Caption diganti dengan “Kode”
Label2 Caption diganti dengan “Nama Barang”
Label3 Caption diganti dengan “Satuan”
Label4 Caption diganti dengan “Harga”

TextBox1 Name diganti dengan “tkode”
TextBox2 Name diganti dengan “tnama”
TextBox3 Name diganti dengan “tsatuan”
TextBox4 Name diganti dengan “tharga”


command button1 Caption diganti dengan “TAMBAH”
command button1 Name diganti dengan “CMDTMBH”
command button2 Caption diganti dengan “TUTUP”
command button2 Name diganti dengan “CMDTTP”


atur sedemikian rupa hingga tampak seperti gambar dibawah ini


Langkah selanjutnya adalah membuat kode
1. Klik command button “TAMBAH “
2. Klik menu bar pilih view code
Atau klik kanan mouse pada tombol “TAMBAH” pilih view code

3. Masukan kode dibawah ini (biar gak cape copy paste saja code dibawah ini):

Private Sub CMDTMBH_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets(“PARTSDATA”)

‘menemukan baris kosong pada database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

‘check untuk sebuah kode
If Trim(Me.tkode.Value) = “” Then
Me.tkode.SetFocus
MsgBox “Masukan Kode Barang”
Exit Sub
End If

‘copy data ke database
ws.Cells(iRow, 1).Value = Me.tkode.Value
ws.Cells(iRow, 2).Value = Me.tnama.Value
ws.Cells(iRow, 3).Value = Me.tsatuan.Value
ws.Cells(iRow, 4).Value = Me.tharga.Value

‘clear data
Me.tkode.Value = “”
Me.tnama.Value = “”
Me.tsatuan.Value = “”
Me.tharga.Value = “”
Me.tkode.SetFocus
End Sub

4. Dilanjutkan dengan pengisian code pada tombol tutup langkah seperti nomor 2 diatas dengan kode dibawah ini :

Private Sub CMDTTP_Click()
Unload Me
End Sub

5. Untuk menghindari menutup melalui tanda X pada form masukan kode dibawah ini dengan klik kanan mouse pada form dan pilih view code dan ketikan kode dibawah ini :

Private Sub UserForm_QueryClose(Cancel As Integer, _
CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
MsgBox “MAKE TOMBOL ATUH KANG!”
End If
End Sub

6. Mengisi code pada module klik kanan module pilih view code dan isikan kode dibawah ini :
Sub FORM()
UserForm1.Show
End Sub

Sekarang kita kembali ke worksheet kmudian kita akan membuat tombol untuk mengaktifkan form…terserah dmana saja menyimpannya…

Buat rectangle seperti digambar tersebut untuk memasukkan kode klik kanan mouse pada rectangle tersebut lalu pilih “Assign Macro” lalu pilih form…..selesai sudah…jika benar sesuai urutan maka akan tampak seperti ini…..jangan lupa simpen ya….selamat mencoba….

contoh file klik disini

Cara Install Windows XP dengan Flashdisk

Dari kesulitan ternyata berbuah ilmu…ini pengalaman penulis ketika akan install software di mininote HP 110-3014…software windows 7 tak ada…external hd tak punya….berbekal windows xp dan flash disk…akhirnya selesai juga tugas itu….sekaligus nambah ilmu, sengaja saya share disini mudah-mudahan dapat bermanfaat…..

Cara Install Windows XP dengan Flashdisk :

Perlengkapan yang digunakan :
1. CD OS Windows XP
2. Flashdisk kosong minimal 1 GB
3. File USB PREP8 + PeToUSB
4. Komputer buat kerja
5. Komputer lain yang akan di install memakai O/S Windows XP.

Hubungkan Flashdisk Kosong ke komputer

Extract file FlashdiskBootableXP.rar yang telah anda download di drive C Komputer keja.

Jalankan file usb_prep8.cmd yang ada di folder usb_prep8 dengan cara dobel klik, sehingga tampil seperti gambar berikut ini :

Kemudian tekan sembarang tombol, dan akan muncul :

Terus Klik START YES YES, maka proses format akan segera di mulai dan flashdisk akan diformat menjadi flashdisk boot. Tunggu sampai keluar kotak : ” Operation Completed Successfully “. Kemudian close PeToUSB nya tapi JANGAN TUTUP JENDELA DOS dibelakangnya …

Masuk RUN dan ketik CMD kemudian enter.
Kemudian jalankan file bootsect.exe di dalam folder bootsect dengan perintah DOS yang baru saja di buka itu. Hal ini dilakukan untuk memberikan flashdisk file boot manager. Caranya:
1. Setelah masuk DOS, ubah direktori aktifnya ke dirve yang ada folder bootsect-nya.
2. Kemudian setelah aktif di c:\bootsect\ ketikkan perintah ” bootsect.exe /nt52 g: ” kemudian enter. “g:” adalah menunjukkan drive flashdisk anda.

Setelah selesai kemudian tutup jendela bootsect. “JANGAN TUTUP JENDELA DOS YANG PERTAMA”.

Pada jendela DOS ketik 1 untuk mengarahkan ke drive dimana lokasi CD Master XP berada.

Pilihan 2 lewati

Pilihan 3 untuk menentukan lokasi drive flashdisk anda

Pilihan 4 untuk memulai proses pembuatan Flashdisk Booting Install XP.
Kemudian jika muncul jendela permintaan jawab dengan YES atau kalau ada Press Any Key To Continue, tekan sembarang tombol. sampai dengan selesai.

Syarat nyandung / hayang kawin deui

Mang Ontohod geus rada lila rumah tanggana boga anak dua, hiji mangsa menta ijin ka pamajikanana rek kawin deui.

” Manehna, uing hayang kawin deui, kira-kira diijinan moal ? ” ceuk Mang Ontohod hiji waktu.” Atuh mangga teh teuing hoyong nikah deui mah, ku urang rek diijinan ” jawab pamajikan Mang Ontohod.

Pohara bungahna Mang Ontohod pedah diijinan kawin deui.

” Hade ku urang diijinan ngan syaratna aya tilu ” pamajikan Mang Ontohod neruskeun omonganan.

“Cik…cik….cik naon tah syarat na, bejakeun ka uing…” Mang Ontohod panasarn.

” Syarat ka hiji…anjeun kudu adil nafakah bathin jeung nafakah lahir ” ceuk pamajikan Mang Ontohod

” Atuh eta mah gampil lah uing bisa adil rarasaan mah ” Jawab Mang Ontohod enteng.

” Terus syarat nu kadua naon tah ?” Mang Ontohod semu teu sabar

” Syarat kadua…anjeun teh kudu mapan dina panghasilan supaya cukup keur biaya hirup ” Pamajikan Mang Ontohod neruskeun.

” Atuh eta mah katinggali sorangan pan urang teh cukup sandang cukup pangan, bro di juru bro di panto, ngalayah di tengah imah ” Tembal Mang Ontohod gesit.

” Anu katilu…anu katilu naon syarat na tah ?” Mang Ontohod panasaran bari seseblakan.

” Syarat anu katilu ……. LANGKAHI DULU MAYATKU ” Jawat pamajikan Mang Ontohod singkat.

Singkat carita pamajikan Mang Ontohod gering ripuh mulan malen. Jigana ninggali syareat mah bakal mulang ka asal di punut ku nu Rahayu.

Hiji poe pamajikan Mang Ontohod nyalukan Mang Ontohod

” Kang kadieu heula sakeudeung, abdi aya wasiat ” pamajikan Mang Ontohod nyalukan salikina, dareuda.” Aya naon manehna, sok geura tepikeun wasiatna ” Ceuk Mang Ontohod.

” Bareto Akang menta ijin ka urang yen akang rek kawin deui ” Pamajikan Mang Ontohod ngamimitian carita.

” Enya kitu tea mah uing teh hayang kawin deui, mung manehna jiga nu teu ngijinan, beurat syaratna teh gening” Ceuk Mang Ontohod.

” Ayeuna mah jig bae bisi Akang rek kawin deui mah, urang mah jigana moal panjang umur, batan kieu kaayaan awak teh, …ngan aya syaratna opat rupa mun Akang rek kawin deui” ceuk pamajikan Mang Ontohod dareuda.

Mang Ontohod curinghak, ngadenge pamajikanan ngijinan kawin, ” Sok atuh geura tepikan naon tah syarat-syarat na teh.

” Syarat ka hiji, mangga teh teuing akang kawin deui, saba’da na urang geus euwuh di alam dunya ” Ceuk pamajikan Mang Ontohod, cipanon teu elat reumbay murukpuk.

” Muhun atuh akang oge moal tega, kawin deui salila anjeun hirup keneh mah, pan kitu lain hartina syarat anu katilu ” LANGKAHI DULU MAYATKU baheula gening”, terus naon syarat anu kaduana ” Mang Ontohod neruskeun.

Tukang Kai

Aya tukang ngala kai di leuweung nu kahirupanana kacida miskinna. Hiji waktu, basa manehna keur nutuhan dahan kai nu ngaroyom ka walungan, kampakna locot, ngacleng ka walungan. Si Tukang kai teh ceurik bari ngadoa ka dewa, doana kadanguan ku Dewa, Dewa turun ti langit teras naros : “Hey…kunaon maneh ceurik?”

Si Tukang Kai eta ngajawab yen kampakna tikecemplung ka walungan, padahal manehna perlu pisan eta kampak keur balangsiar. Dewa langsung teuleum ka walungan, terus mucunghul bari mamawa kampak nu dijieun ku emas, “Ieu kampak anjeun teh?”

Tukang kai ngajawab : “Sanes!”

Dewa ngagejuburkeun deui ka walungan, terus teuleum deui, teu kungsi lila mucunghul deui dina leungeunna mamawa kampak nu bahanna perak, terus nanya ka tukang kai , “Sugan nu ieu kampak anjeun teh?” Sakali deui, tukang kai ngajawab : “Sanes!”

Gejebur deui, dewa teuleum deui, basa mucunghul deui mawa kampak tina beusi, anu memang kaboga si tukang kai, “Ieu meureun kampak anjeun teh?”

Tukang kai ngajawab: “Sumuhun, leres Gusti !”

Dewa kacida gumbirana, aya jelema jujur kacida, eta tilu kampak sadayana dipasihkeun supaya disimpen ku tukang kai. Tukang kai balik ka imahna bari jeung kacida bungahna.

Hiji waktu tukang kai teh leumpang jeung pamajikanana di sisi walungan. Dasar keur apes pamajikanana tikosewad, tepi ka tigebrus ka walungan. Si Tukang kai ceurik deui bari ngadoa ka dewa. Doana kadangueun ku Dewa, dewa turun ti langit teras naros : “Kunaon deui anjeun ceurik?”

Si Tukang kai ngajawab pamajikanana tikecemplung ka walungan, gancangan dewa neuleuman walungan, terus mucunghul bari mawa Deasy Ratnasari, terus naros: “Ieu pamajikan anjeun teh?” Na ari pok teh: “Leres, eta pamajikan abdi teh!”

Dewa teh kacida ambekna, teras nyarios : “Anjeun bohong!, teu jujur!”

Si Tukang kai teh ngajawab bari ampun-ampunan :

“Aduh gusti abdi nyuhunkeun dihapunten, sanes…..sanes….kitu maksad teh, ieu mah salah paham. Kieu geura Gusti, upami abdi ngajawab eta sanes pamajikan abdi, engke Gusti teuleum deui, nyandak… Dian Sastro, upama ku kuring dijawab deui eta mah sanes pamajikan abdi, Gusti teuleum deui nyandak pamajikan abdi, teras ku abdi disumuhunkeun eta pamajikan abdi. Engke ku Gusti nu tiluan sadayana dipasihkeun ka abdi. Gusti, terang nyalira abdi teh jalmi miskin teu mungkin gaduh pamajikan satilu-satilu, kumargi kitu abdi gancangan we ngajawab leres, waktos Gusti nyandak Deasy Ratnasari teh!”

Sipat jalma dumasar kana rupa-rupa hitutna

Jalma jujur, Jalma nu daek ngaku mun geus hitut

Jalma teu Jujur, Jalma nu hitut tuluy nyalahkeun batur

Jalma belegug, Jalma nu nahan hitut mangjam-jam lilana

Jalma nu berwawasan, Jalma nu apal iraha kuduna hitut

Jalma nu Misterius, Jalma nu hitut tapi batur euweuh nu nyahoeun

Jalma nu sok gugup, Jalma nu ujug-ujug nahan hitut mun keur hitut

Jalma nu Percaya Diri, Jalma nu yakin yen hitutna seungit

Jalma nu Sadis, Jalma nu hitut bari dibekep ku leungeun tuluy dibekepkeun ka irung batur

Jalma nu Isinan, Jalma nu hitutna teu disada tapi ngarasa isin sorangan

Jalma nu Strategic, Lamun hitut sok bari seuri ngagak-gak meh nutupan sora hitutna

Jalma nu Bodo, Lamun geus hitut tuluy narik napas keur ngagantian hitutna nu kaluar

Jalma nu Pedit, Lamun hitut dikaluarkeun saeutik-saeutik nepi ka disada tit..tit..tit…

Jalma nu Sombong, Jalma nu sok ngambeuan hitutna sorangan

Jalma nu ramah, Jalma nu sok resep ngambeuan hitut batur

Jalma nu tara gaul, Mun hitut sok bari nyumput

Jalma nu Sakti, Mun hitut bari make tanaga dalem

Jalma nu pinter,Jalma nu bisa nyirian hitut batur

Jalma nu sial, Mun hitut kaluar jeung bukur-bukurna.

naha teu ditambahan ku jalma anu sarakah,,,,,,,nyaeta jalma anu hitut kaluar jeung bukurna tuluy di asaan ku sorangan,,,

Ngomong-ngomong soal hitut, aya hiji carita ….

Kang Asep jeung kang Emod ngadu hitut ….

Kang Asep: “Tah, dengekeun hitut aing !”

(Kang Asep ngebekem bujurna ku leungeun ….Ajaib….. Pas leungeunna ngabekem bujur, kaluar sora hitut: COCA Pas bekeman dibuka, kaluar sora: COLA, Nepi katilu kali kaluar sora hitutna: COCA COLA, COCA COLA, COCA COLA!

Ari Kang Emod embung eleh ….

Golosor calana dibuka

Diasupkeun curuk kana … (punten) liang taina

Leuwih ajaib: kaluar sora hitut: SPRIIIIIIII……………………………..TE !!!!!!!