Jika yang dimaksud "otomatis" adalah dengan mengklik sel K2 maka coba copas
macro di bawah ini pada VBE Sheet (Sheet1),
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$K$2" Then
Range("B2:E1000").Select
Selection.Copy
Range("K2:K1000").Select
ActiveSheet.Paste
Range("K2:N1000").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add
Key:=Range("K3:K1000") _
, SortOn:=xlSortOnValues, Order:=xlAscending,
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("K2:N1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Application.CutCopyMode = False
End If
End Sub
Selamat mencoba.
Salam,HK
On Wednesday, July 12, 2017, 7:55:18 AM GMT+7, farud oke farud....@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Klo dengan sort mas.. kan masih melakukan "klik" pada sort-nya,yg di inginkan
saya di kolom/sheet yg di inginkan akan masuk otomatis dan langsung berurutan
mas..
Pada tanggal 12 Jul 2017 6.24 AM, "hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Hai Farud,
Apakah tipe data tanggalnya sdh berupa tanggal?Kalau sdh...tinggal di sort
berdasarkan tanggal.
Salam,HK
Sent from Yahoo Mail on Android
Assalamualaikum master2 excel..
Mohon bantuannya..bagaimana caranya mengurutkan data berdasarkan tanggal yg
lebih muda dan data di sebelahnya mengikuti.untuk lebih jelasnya file terlampir.
Atas bantuan para master sejalian saya sampaikan terimakasih
