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.

Posted in: Sorting data, Tutorials