Kekuatan Interface dan Index

sebelum aku kelupaan mumpung dapat ilham sesaat, maka aku post dulu aja.
Interface adalah antarmuka sebaiknya kita bikin interface untuk pekerjaan kita yang rutin kita lihat kita olah setiap hari nya seperti bikin shortcut di desktop untuk perkerjaan rutin tersebut. atau bikin shortcut di smart GUI dengan autohotkey.

Interface didunia digital sangat membantu untuk mempercepat pekerjaan dan proses pencarian data.

Sedang didunia manual seperti buku kita dapat membuat interface juga dengan memberi nomor halaman pada setiap lembar buku, kemudian membuat index halaman atau judul atau tema dalam buku/arsip. index tersebut kita taruh sebagai daftar isi di halaman paling depan atau halaman paling belakang buku.

baik Index, daftar isi gunanya sama dengan interface diatas yaitu sangat membantu untuk mempercepat pekerjaan dan proses pencarian data.

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