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

rise again

hem hem hem!!!
keadaan semakin menegangkan
hal yang tak diinginkan akhirnya terjadi.
wah gawat...

sabr sabar sabar

i can't give up

gagal lagi

pagi satu tiang udara tidak terpasang

bagaimana bisa menang

dengan cara apapun tidak ada jaminan kalau aku akan menang.
tapi yang pertama adalah perlu keberanian

• 1. ya berani melangkah maju menghadapi masa depan walau tidak pasti, walau terasa sakit dan perih, karena gagal ratusan kali. tetap berani untuk maju
• 2. berani menderita, terluka dan merasakan sakit dan keadaan yang tidak mengenakkan
• 3. punya keinginana yang kuat

kelemhan ku aku tdak punya keinginan yang kuat keinginanaku selalu berubah ubah

MY name evlin

aku telah banyak kalah sampai saat ini
dan aku tidak tau lagi
bagaimana caranya bisa menang
tapi aku yakin aku akan menang
berikut akan kuceritakan pengalamanku

FULLBRING strategy's

the miracle comes to me

0 = minus revenge = karena dendam perlu pembalasan sampai 100 kali lipat.
1 = guarante = jaminan pembalasan mesti terlaksana dengan tanda luka syatan
2 = pain = Luka tanda kesungguhan
3 = punishment + Luka sebagai hukuman karena gagal
4 = destiny =coba dulu 120 % bila gagal sudah takdir dapat hukuman
5 = once = cuma sekali saja tidak boleh 2 kali apalagi lebih
6 = little step = tahapan tahapn kecil 1 ke 3, 3 ke 5, 5 ke 10, 10 ke 20, 20 ke 50, 50 ke 100
7 = torture = merasakan penderitaan dan siksaan karena terkena racun, berbuat baik tetap sakit.
8 = limitation = dalam waktu terbatas harus bisa menyelesaikan banyak hal
9 = three looping world = perulangan kata diperlukan jika ada musuh, tukang loncat dan tukang pengalih pikiran

10 = Raja = perlakukan manusia lain seperti raja. perlaqkuan diri sendiri dihadapan orang lain seperti napi yang punya banyak kesalahan di depan raja