Gunakan Event WorkSheet_Change pada kolom kedua. Tulis Code ini pada VBA Project Sheet1(Akun) pada bagian (tempat) menulis Code Macro
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
If Target.Column = 2 And Target.Count = 1 Then
Set Rng = Range("A1").CurrentRegion
Rng.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
End If
End Sub
Contoh file terlampir.
Salam,
Hendrik Karnadi
________________________________
From: Purnomo Sidi <[email protected]>
To: belajar Excel <[email protected]>
Sent: Saturday, 23 June 2012, 8:14
Subject: [belajar-excel] Re: sort data
BeExcel mohon bantuannya nih
saya memiliki data yang data tersebut dapat bertambah. saya mohon bantuannya
bagaimana caranya agar data yang saya entry tersebut dapat ter-Sort secara
otomatis (berurutan sesuai dengan nomornya). untuk lebih jelasnya saya
lampirkan data tersebut
terima kasih
PYSA_2605
sort data.xls
Description: MS-Excel spreadsheet
