Sorting (mengurutkan) Data Otomatis

Dalam database excel, seringkali kita menemukan masalah pada saat entri data. Salah satunya adalah pengurutan data yang dilakukan secara manual. Pengurutan data dapat dilakukan dengan menggunakan menu Data-Sort pada excel 2003 dan dengan mengklik ikon Sort menu Home pada excel 2007. Namun ada juga cara lain yang dapat digunakan untuk melakukan pengurutan data otomatis. Begitu data masuk langsung menempati urutannya masing-masing. yaitu dengan menggunakan macro VBA. Macro ini dapat dijalankan khususnya bagi yang sering melakukan input data menggunakan form. berikut kodenya:

Sub SortRange()
   Dim mySheet As Worksheet
   Dim myRange As Range

   Set mySheet = ActiveWorkbook.Worksheets("Sheet2")
   Set myRange = mySheet.Range("A1").CurrentRegion

   mySheet.Activate
   myRange.Sort Key1:=Range("D4"), Order1:=xlAscending, Header:=xlGuess
   myRange.Cells(1, 1).Select
End Sub

Selamat mencoba.