kekuatan pemahaman afterlife bag. 2

Apa yang ditekankan disini
"semua pasti hancur tanpa bekas"
"tetap lakukan yang terbaik"
"jangan sombong karena lebih paham"
a.

Ingatlah selalu 1 kebenaran

Hidup ini hanya sementara dunia ini akan kiamat
Segalanya akan hancur tidak ada yang selamat
Jika waktunya datang maka akan datang
So What can I do?
Lakukan yang terbaik selalu
Tapi jgn sombong, karena segalanya akan tidak akan berarti lagi nanti.
Jika memang tidak sanggup mundur saja.
Kembalilah kepada ALLAH SWT sesering mungkin
Ingatlah selalu akan satu kebenaran yang tidak bisa dibantah oleh siapapun dan oleh apapun.
Yaitu : semuanya akan musnah.

Tanggapan ::

Kalau segalanya akan mati dan musnah ya kita biarkan saja, tunggu saja sampai ajal menjemput. kalau begitu untuk apa hidup kalau nanti mati juga. bikin capek, susah, ribet, sakit dsb (kata kata orang putus asa dan mau harakiri)

Untuk apa memberikan yang terbaik kalau nanti juga sia sia.
Disinilah letak dan peranan manusia sebagai makhluk yang tinggi derajatnya daripada binatang. Kita hidup bukan cuma untuk makan tidur mandi, makan tidur mandi sampai mati.
Karena ada hidup sesudah mati. ada akhirat setelah dunia.
Ada keabadian sesudah dunia fana ini. Ada surga dan ada neraka sesudah mati.

Jadi lakukan yang terbaik walau kelihatannya didunia ini sia sia.
Tapi sebenarnya tidak sia sia, karena ada pahala atau balasan yang sebenarnya sesudah mati.jangan terlalu banyak berharap mendapatkan balasan didunia ini juga.
karena tidak ada jaminan.

Hal ini sudah diluar akal pikiran manusia. Hanya bisa dijangkau dan dipahami dengan keyakinan dan keimanan.

daftar koleksi filmku digudang bag.1

Berikut daftar film yang kupunya dan sekali sekali ku nonton lagi.
( kalau ada yang erminat boleh kupinjamkan ) :
1. OGRE
2. Harry Potter coll(1-5)
3. The Kingdom ( cerita pasukan amerika di Emirat Arab )
4. Lord of the ring - the two tower
5. Wolfhound
6. Dejavu
7. The Illusionist
8. Bourne coll (1-3)
9. Coll = 28 week later (zombie), Die hard 4, Babylon 5
10.Flags of our fathers
11.Blood & Chocolate ( cerita manusia serigala)
12.10.000 BC
13.Coll = trasnporter 1 -2, covert (agen ganda), tunnel rats, twilight, the 5 commanmend
14.I am Legend (will smith/zombie)
15.Twilight
16.Tomhank coll= davinci code, terminal, forest gum, greenmile, lady killer
17.Underworld 3 (rise of lycans)
18.modern warrior
19.seven samurai (film jadul, panjang sampai 7 jam)
20.Empress and warrior
21.Rogue assin (jet lee)
22.Coll = Ongbak, Angulimala, tommy goong, beautifull boxer, kunpan, born to fight
23.Smalville 8h eps 15-16
24.Smallvill 7g
25.Death note and kasumi
26.Ninja
27.Heroes complete season 1
28.heroes complete season 2
29.Heroes sesason 3 sebagian
30. Samurai x (kenshin himura)
31.Flame of recca (1 - 42)

the character

SUIJA - dewa air samurai showdown
K999 -
Yukimura
Chinmei - SDK
Shinrei
Sephiria
jenos
Orochi
Yuan
Kyo
Ashura
Kamui

kerja keras

MENGUASAI DIRI SENDIRI

Bagaimana menguasai diri sendiri itu?


jimepa titagung

jika menanam padi tidak akan tumbuh jagung
karena hidup tidak dibangun atas permainan tapi dibutuhkan kesungguhan untuk mencapai keberhasilan

maksudnya jika kau bekerja keras maka kau akan mendapatkan hasilnya berupa sukses dan keberhasilan
hasilnya tidak mungkin nol dan pasti berbeda daripada tidak berusaha atau tidak bekerja keras.

tapi jika kau tidak bekerja keras maka hasilnya adalah nol dan kegagalan dan kerugian

jawabannya sama saja
mengapa dilakukan?
jawabannya sama saja dengan mengapa tidak dilakukan?


analogi dan pengamalan :
lalu apa yang akan kau lakukan
aku akan melakukan apa yang terbaik, apa yang menguntungkan bagiku dan apa yang bermanfaat bagiku
apakah itu?
yang menguntungkan bagiku adalah bekerja keras --> jadi aku bisa berhasil

macro excel vba utk sortir data

inilah rumus untuk sortir data di excel dengan macro sekaligus bikin nomor urut :


sort dengan macro
dan tambah rumus +1
Sub sortirrrssnnnnn()
'
' sortirrrssnnnnn Macro
'

'
Range("A3:G123").Select
ActiveWorkbook.Worksheets("REF").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("REF").Sort.SortFields.Add Key:=Range("B4:B123"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("REF").Sort.SortFields.Add Key:=Range("C4:C123"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("REF").Sort
.SetRange Range("A3:G123")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("G4").Select
ActiveCell.FormulaR1C1 = "=1"
Range("G5").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("G5").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("G12").Select
End Sub

ref rms macroku

Sub ambiltglff_61()
'
' ambiltglff_61 Macro
' Macro recorded 02/02/2010 by Administrator
'
Sheets("proses").Select

Range("a10").Select
Selection.AutoFilter
Range("A11:C11").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.ClearContents
Range("C10").Select
Selection.AutoFilter
'
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\All Users\Documents\1 rc format jurnal lku\1 bni6e A.xls" _
, Origin:=437, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1)), TrailingMinusNumbers:=True
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(0, -5).Range("A1").Select
Selection.End(xlUp).Select
Selection.Copy
Windows("proses cek tgl upload.xls").Activate
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Windows("1 bni6e A.xls").Activate
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(0, -3).Range("A1").Select
Selection.Copy
Windows("proses cek tgl upload.xls").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Windows("1 bne A.xls").Activate
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(0, -13).Range("A1").Select
Selection.End(xlUp).Select
Selection.Copy
Windows("proses cek tgl upload.xls").Activate
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste

Windows("1 bne A.xls").Activate
ActiveWindow.Close



Selection.AutoFilter
End Sub

kamus rumus macro yg sering kugunakan

Sheets("DIRECTORY RC").Select : pindah ke sheet tertentu
ChDir _ : utk awal buka file dgn buka folder dulu
(Range("L4")) : referensi folder yg akan dibuka ditaruh di cell tertentu dengan rumus file address info seperti :
=LEFT(CELL("filename";J4);SEARCH("[";CELL("filename";J4))-2)
Workbooks.OpenText Filename:= _: utk buka file dalam folder yg sdh ditjuk
"1 jtigh A.XLS" : dibawahnya nama file yg dibuka
ActiveWorkbook.SaveAs Filename:= _ : utk save as file di dalam folder
ActiveWindow.Close : utk menutup file

Range("G1").Select : menuju cell tertentu
ActiveCell.FormulaR1C1 = "KET AWAL" : mengisi tulisan dalam cell yg sdh dipilih
Application.Goto Reference:="R970C7": melompat ke cell baris 970 dan colom 7 dari cell yg ditunjuk



demikian tulisan tentang macro kali ini, bisa menjadi ref bagi saya sendiri dan teman teman yg membutuhkannya semoga bermanfaat.