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.

Buat program aktifkan folder kerja

Apa yang saya sampaikan disini saya dapat dengan trik trik tertentu dan otodidak sehingga segala masukan untuk membuat menjadi lebih baik sangat diperlukan.

Latar pemikiran :

1. Setiap awal bulan saya bikin laporan saya copy folder bulan lalu ke bulan sekarang. begitu selanjutnya



2. jadi setiap pindah bulan mesti setting lagi rumusnya macro yang membaca folder untuk dikerjakan



3. ternyata bisa diakali....e hehe eh......

Alur pemikiran :

1. buat satu file excel dalam folder yang akan diaktifkan untuk pengaktifan folder



2. bikin macro yang bisa mengganti semua setting rumus makro. Baik interface di desktop ataupun interface di smart GUI autohotkey



3. file excel tersebut setelah dibuka cuma muncul layar dan tinggal klik dan otomatis menutup file juga.

Cara pengerjaan :

1. buka file new excel worksheet, dengan nama "aktifkan folder kerja"

• hilangkan ruler, sheet tabs, dengan menu tool ---option----view



• hilangkan grid , dengan format pattern warna putih semua sheet



• sisipkan baris dan kolom yang tidak diperlukan dengan hide

1. ...............................



2. insert auto shapes gambar kotak dan diberi keterangan“Klik tombol ini :Aktifkan folder ini untuk proses kerja”lalu auto shapes tadi diassign macro



3. rumus macro seperti tertulis dibawah ini
   Sub lemparalamatfile()
   Sheets("alamat file").Select
   ChDir _
   (Range("a11"))
   Range("A1").Select
   Selection.Copy
   Workbooks.Open "tempat folder.XLS"
   Sheets("address").Select
   Range("A1").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   :=False, Transpose:=False
   ActiveWorkbook.Save
   ActiveWindow.Close
   Sheets("klik").Select
   MsgBox "OK aktifkan folder kerja sukses"
   ActiveWorkbook.Save
   ActiveWindow.Close
   End Sub



4. Pada file "aktifkan folder kerja" bikin sheet alamat file, dan



5. pada cell a1 masukkan rumus =LEFT(CELL("filename",B1),SEARCH("[",CELL("filename",B1))-2) >>>>hasil rumus nanti adalah folder tempat file kerja yang akan diaktifkan



6. Pada cell a11 masukkan alamat folder tempat proses induk atau tempat folder interface semua program contohnya : "D:\my dokument\1 auto hotkey hasil\smart gui"



7. Pada folder tempat proses induk (D:\my dokument\1 auto hotkey hasil\smart gui) bikin file excel "tempat folder.xls"



8. pada file tempat folder .xls bikin sheet "address"



9. di sheet "address" pada cell a2 bikin rumus ="Run, "&A1&"\(1) nna ubah dulu nama tempat filenya terbaru.xls" >>>> hal ini adala h sebagai referensi pada program autohotkey.



10. pada file tempat folder xls bikin macro yaitu :

Sub bukascriptprogramproses()
Sheets("address").Select
Range("A2").Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("A3").Select
Selection.Copy

ChDir _
(Range("a15"))
Workbooks.Open "z1 program antar muka aji.XLS"
End Sub
Sub renameSER()
'csr
Sheets("gantinama").Select

FileCopy (Range("a16")), (Range("g16"))
End Sub
Sub renamemin()
'cst
Sheets("gantinama").Select

FileCopy (Range("g16")), (Range("a16"))
End Sub

11. pada file tempat folder xls bikin shortcurt untuk tiap makro yaitu dengan menu Tool-macro -macro (atau tekan alt f8) pilih option :
untuk macro bukascriptprogramproses bikin shortcut CTRL+SHIFT+P
untuk macro renameSER bikin shortcut CTRL+SHIFT+T
untuk macro renamemin bikin shortcut CTRL+SHIFT+R

12. keterangan dari macro diatas :.........

awal 1000 psp

awal adalah yang sangat penting

pada awal pertarungan psps mesti dijaga dengan membaca 1000 psp

jadi perjuangan awal adalah mau

1. membaca 1000 psp

2. mau membuka buku bacaan bersanmbung

hal yang satu ini sering terlupakan

perlu dilatih