TERIMA KASIH ATAS BANTUNYA PYSA_2605
________________________________ From: hendrik karnadi <[email protected]> To: "[email protected]" <[email protected]> Sent: Saturday, June 23, 2012 10:45 AM Subject: Re: [belajar-excel] Re: sort data 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
