"Mulai kebutuhan akan parameter Order2, ada parameter yang tidak dibutuhkan, yaitu parameter Type. Oleh sebab itu harus dituliskan nama parameternya, yaitu Order2:= Parameter setelahnya harus menuliskan nama parameternya, karena sudah ada parameter yang dituliskan namanya." ini dia penyebabnya makanya gagal melulu kode yg saya tulis, ternyata input parameternya belum jelas.. makasih sdh diarahkan..
Satu lagi mohon dijelaskan, Kenapa nama macro-nya gak keliatan di Macro Dialog Box?? Public Sub AdvFilter(Optional bValue As Boolean = False) Kode End Sub saya buka developer--> macros --> kosong.. Trm ksh, wassalam Sinurat ________________________________ Dari: Kid Mr. <[email protected]> Kepada: [email protected] Dikirim: Rabu, 5 September 2012 15:06 Judul: Re: [belajar-excel] Re: Makro Filter Sort Data Tak Unik Dari link tersebut, diketahui sebuah syntax sort sedehana : expression.Sort(Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3) '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) artinya dibutuhkan Key2 dan Order2. rng.CurrentRegion.Sort Sheet4.Range("f3"), xlAscending, sheet4.range("g3"), Order2:=xlDescending, Header:=xlYes yang lebih lengkapnya : rng.CurrentRegion.Sort key1:=Sheet4.Range("f3"), order1:=xlAscending, key2:=sheet4.range("g3"), Order2:=xlDescending, Header:=xlYes Nama input parameter (seperti key1,order1,key2) dibutuhkan secara berurutan sejak awal (parameter pertama), oleh sebab itu boleh tidak dituliskan seperti yang atas. Mulai kebutuhan akan parameter Order2, ada parameter yang tidak dibutuhkan, yaitu parameter Type. Oleh sebab itu harus dituliskan nama parameternya, yaitu Order2:= Parameter setelahnya harus menuliskan nama parameternya, karena sudah ada parameter yang dituliskan namanya. Wassalam, Kid. 2012/9/6 sin.ur4t <[email protected]> > >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 >> > >> > >> > >> > >> > >> > >> > >
