Pak Mr Kid,
Makasih Link-nya sdh saya baca meski terbata-bata, susah bhs inggris:D
Dari situ Kemudian Kode Sorting-Nya dimodifikasi seperti ini:
'1. Awalnya di Module1 seperti ini:
'sort hasil (berdasar kolom nama ~ kolom F)
'rng.CurrentRegion.Sort Sheet4.Range("f3"), xlAscending, Header:=xlYes
'2. Lalu Diubah di Module2 menjadi seperti ini:
'sort hasil (berdasar kolom nama yaitu F dan kolom bayar yaitu G)
With Sheet4
Set rng1 = rng.Offset(1, 1).Resize(rng.Rows.Count - 1, 1)
Set rng2 = rng.Offset(1, 2).Resize(rng.Rows.Count - 1, 1)
Sheet4.Sort.SortFields.Add Key:=rng1, SortOn:=xlSortOnValues,
Order:=xlAscending, DataOption:= _
xlSortNormal
Sheet4.Sort.SortFields.Add Key:=rng2, SortOn:=xlSortOnValues,
Order:=xlDescending, DataOption:= _
xlSortNormal
With Sheet4.Sort
.SetRange rng
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
'Sudah ditest dan sukses. Sayangnya blm bisa saya pastikan apakah kodenya mmg
sudah benar/efisien atau faktor kebetulan saja.
'Jika berkenan agar diberi tanggapan. Sekali lagi makasih.
wassalam
Sinurat
--- In [email protected], "Kid Mr." <mr.nmkid@...> wrote:
>
> Sort 2 kolom kunci dengan VBA memanfaatkan methods Sort berikut :
> http://msdn.microsoft.com/en-us/library/office/aa213557%28v=office.11%29.aspx
>
> Wassalam,
> Kid.
>
> 2012/9/5 Imam Sinurat <sin.ur4t@...>
>
> > **
> >
> >
> > salam be excel..
> >
> > ini merupakan lanjutan pertanyaan pak Ferdy (krn kasusnya mirip) yang
> > direspon oleh pak Ghozi dan pak Mr Kid pd tgl 23 Agustus 2012 berjudul
> > "Filter dengan Kriteria dan Secara Urut", posting nomor 18636, 18637 dan
> > 18643. tadinya ingin me-reply tapi bingung gmn cara nge-attach file..
> > jadinya dibuat dlm thread baru :D.. Mohon izin datanya saya modifikasi.
> >
> > Solusi makro dari pak mr kid/ghozi di Module1 saya copast ke Module2.
> > Pada bagian makro advanced filter, unique saya ubah menjadi False, sehingga
> > hasilnya semua data yg memenuhi kriteria muncul di sheet 'VBATakUnik',
> > tersort secara ascending.
> >
> > Dari hasil sort tsb, saya ingin untuk setiap Nama Yang Sama dilakukan sort
> > sekali lagi pada kolom bayar secara descending. Detail terlampir.
> >
> > Mohon bantuan solusi, terima kasih sebelumnya.
> >
> > wassalam,
> > Sinurat - Sumut
> >
> >
> >
> >
> >
> >
>
