coba pelajari lagi bagian script yang dimerahin & baris di bawahnya,
lakukan modifikasi (penambahan/edit/delete script) sesuai keperluan
' sekarang saatnya melakukan sortir data
' pergi ke cell B8, ini adalah header dari baris bantu yang sudah dibuat
Range("B8").Select
' blok seluruh data ke arah kanan dan ke arah bawah
Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
Sheets("ks dan guru").Sort.SortFields.Clear
' sort descending berdasarkan Golongan, headernya ada di cell D8
Sheets("ks dan guru").Sort.SortFields.Add Key:=Range("d8"), _
SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add
Key:=Range("h8"), _
SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add
Key:=Range("i8"), _
SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
Best Regard,
-Ms. Jan Raisin-
Pada 28 Desember 2012 09:18, Dian Anas <[email protected]> menulis:
> **
>
>
> desr miss jan,
> kalau ditambah sort pada tmt golongan/pangkat secara descending, gmn
> kodenya atau mengedit kode yang ada.
>
> terima kasih
> best regards
>
>
>
> --- On *Fri, 12/28/12, Jan Raisin <[email protected]>* wrote:
>
>
> From: Jan Raisin <[email protected]>
> Subject: Re: [belajar-excel] membuat duk pns otomatis
> To: [email protected]
> Date: Friday, December 28, 2012, 1:21 AM
>
>
>
> Dear pak Anas,
>
> yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas
> kirim ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi
> lebih kecil.
>
> coba ganti script berikut:
>
> ' bikin nomor urut
> Range("a9").Value = 1
> Range("a10").Value = 2
> Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
>
> dengan yang ini:
>
> if idxrow = 9 then
> range("a9"). value = 1
> elseif idxrow = 10 then
> range("a9").value = 1
> range("a10").value = 2
> else
> Range("a9").Value = 1
> Range("a10").Value = 2
> Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
> end if
>
> semoga sudah tidak muncul error lagi.
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
> Pada 27 Desember 2012 18:01, Dian Anas
> <[email protected]<http://mc/[email protected]>
> > menulis:
>
> **
>
>
> dear miss jan raisin,
> sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh
> miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa
> vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun
> balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
> ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik
> ternyata muncul debug
> Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
> niatan saya mau menginput data baru
> bagaimana cara mengatasinya?
> terima kasih
>
> best regards
>
>
>
