Pak Asseggaf, Agar tidak mengganggu data aslinya, copy data yang belum tersortir dari Sheet1 ke Sheet2
File terlampir memanfaatkan Event WorkSheet_BeforeDoubleClick berikut ini pada
Sheet2.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)'macro ini dicopy ke sheet2 pada Sheet VBA
Call nyortir 'mamanggil macro "nyortir"
Cancel = True
End Sub
Sub nyortir() 'macro ini dicopy ke Module1(setelah insert module) pada Sheet VBA
Dim Rng As Range
Set Rng = Sheets("Sheet2").Range("A1").CurrentRegion
Range("A1").Select
For i = 1 To Rng.Rows.Count
ActiveCell.Resize(1, 5).Select
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Selection,
_
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SetRange Selection
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
ActiveCell.Offset(1, 0).Select
Next
End Sub
Untuk menyortir, cukup klik salah satu sel yang ada di Sheet2.
Salam,
Hendrik Karnadi
________________________________
From: Mohammed Asseggaf <[email protected]>
To: [email protected]
Sent: Sunday, 16 September 2012, 19:48
Subject: [belajar-excel] cara sort per row
Halo semua,….
lagi bingung nih mau nge sort row ,.. tapi ada beberapa row,…
Bagaimana yah caranya
Copy of sort per row.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
