sama2 Pak. Semoga bermanfaat.
Salam, Hendrik Karnadi ________________________________ From: "[email protected]" <[email protected]> To: Belajar Excel <[email protected]> Sent: Saturday, 1 September 2012, 0:30 Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro Trims bimbingannya pak hendrik, akan saya coba pelajari :) Sekali lagi terima kasih.. Powered by Telkomsel BlackBerry® ________________________________ From: hendrik karnadi <[email protected]> Sender: [email protected] Date: Wed, 29 Aug 2012 22:21:59 -0700 (PDT) To: [email protected]<[email protected]> ReplyTo: [email protected] Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro Barangkali yang anda maksud seperti ini: 1. Bilamana Sheet yang paling baru sdh tebentuk maka tulis data hasil sortir sesuai kriteria pada Sheet tsb.. Karena nama Sheet untuk menyimpan hasil tsb mengacu kepada Sheet "sumber" Range("C3") maka isi sel ini harus diubah dulu, sehingga macronya akan menjadi seperti ini : Sub buatsheets() 'membuat sheet baru dan dinamai sesuai dengan isi sel c3 sheet sumber... Set mysheet = Worksheets.Add mybase = Sheets("sumber").Range("c3").Value mysuffix = 1 On Error Resume Next mysheet.Name = mybase Do Until Err.Number = 0 Err.Clear mysuffix = mysuffix + 1 mysheet.Name = mybase & "(" & mysuffix & ")" Loop Sheets("Sumber").Range("C3").Value = ActiveSheet.Name 'tambahkan code ini End Sub 2. Pertanyaan ini (revisi macro) memang memancing kreatifitas. Agar kreatifitas bermanfaat tentunya harus jelas dulu apa yang ingin kita capai, mis. penghematan waktu. Ada dua hal yang perlu dipertimbangkan - Kriteria yang anda pakai ada pada Sheet "sumber" bukan berasal dari variabel yang dibuat dalam program, jadi akan lebih mudah menselect (mengaktifkan) dulu Sheet "sumber" untuk mengambil krterianya - Dikumpulkan dulu yang sesuai kriteria lalu ditulis pada Sheet baru yang diberi nama seuai Sheet "sumber" Range("c3") Mungkin akan ada perbedaan waktu jika datanya sudah berjumlah ratusan ribu Salam, Hendrik Karnadi ________________________________ From: hendrik karnadi <[email protected]> To: "[email protected]" <[email protected]> Sent: Thursday, 30 August 2012, 9:15 Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro Yth. Pak Sinurat. Kayaknya agak sulit buat saya apalagi rekan2 lainnya tanpa lampiran Workbook dan penjelasan permasalahannya pada sheet ybs. Salam, Hendrik Karnadi ________________________________ From: "[email protected]" <[email protected]> To: Belajar Excel <[email protected]> Sent: Thursday, 30 August 2012, 3:28 Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro Yth pak karnadi.. Rumusan makro yg bpk ajarkan sdh saya coba terapkan, bekerja dgn baik pd sheet baru (misal sheet 'medan0213' sesuai isi sel c3 pd sheet 'sumber'. Msh ada 2 hal yg kiranya butuh petunjuk: 1. jika kita ingin membuat lagi sheet yg sama, maka akan terbentuk sheet 'medan0213(2)', karena sheet 'medan0213' sdh ada.. Sampai disini sdh sesuai.. Masalahnya adalah sub isisort tetap bekerja pada sheet yg pertama, sehingga sheet yg kedua tetap kosong.. Ini yg blm sesuai.. Bgmn revisi kode makronya pak agar (dlm hal sheet pertama sdh ada) sub isisort bekerja pd sheet yg kedua?? Dlm hal ini Sepertinya yg belum pas dari sub isisort adlh pd bagian "mybase=sheets("sumber").range("c3").value" -->tambahan kode utk sheet baru, sehingga sub isisort TIDAK BEKERJA pada sub buatsheets pd bagian mysheet.name=mybase "(" mysuffix ")". 2. Setelah terbentuk sheet baru (mis: sheet 'medan0213') atas penugasan sub buatsheets, maka giliran sub isisort bertugas. Sub isisort akan mengaktifkan sheet 'sumber', mengambil data yg sesuai kriteria, lalu mengaktifkan sheet 'medan0213', dan menuliskan hasilnya. Bgmn revisi makro agar sub isisort bisa langsung menuliskan hasilnya pd sheet 'medan0213' tanpa harus terlebih dahulu mengaktifkan sheet 'sumber'?? Brgkl bahasa verbalnya begini: data pd sheet 'sumber' yg sesuai kriteria dikumpulkan semua terlebih dahulu, lalu dibentuk sheet baru dan diberi nama sesuai isi sel c3 (mis: sheet 'medan0213'), lalu langsung dituliskan hasilnya di sheet tsb.. Saya sdh coba utak atik tapi gagal. :D Mhn maaf terlalu merepotkan, bimbingan bpk dan pakar2 lain saya harapkan. Terima kasih sebelumnya. Wassalam Sinurat Powered by Telkomsel BlackBerry® ________________________________ From: hendrik karnadi <[email protected]> Sender: [email protected] Date: Mon, 27 Aug 2012 18:39:35 -0700 (PDT) To: [email protected]<[email protected]> ReplyTo: [email protected] Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro sama2 Pak. Salam, Hendrik ________________________________ From: "[email protected]" <[email protected]> To: Belajar Excel <[email protected]> Sent: Tuesday, 28 August 2012, 0:35 Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro Makasih pak karnadi atensi dan bimbingannya.. Bsk akan saya coba menerapkan rumusnya pada kasus aktual, dan hasilnya saya laporkan kembali ke milis. Makasih sekali lagi.. Salam Sinurat Powered by Telkomsel BlackBerry® ________________________________ From: hendrik karnadi <[email protected]> Sender: [email protected] Date: Mon, 27 Aug 2012 09:54:58 -0700 (PDT) To: [email protected]<[email protected]> ReplyTo: [email protected] Subject: Re: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro Sortir yang saya lakukan terdiri dari 2 tahap: - berdasarkan kolom L - berdasarkan warna jika data di kolom B lebih dari 1 Semoga pas sesuai kebutuhan Salam, Hendrik Karnadi ________________________________ From: "[email protected]" <[email protected]> To: Belajar Excel <[email protected]> Sent: Monday, 27 August 2012, 13:25 Subject: [belajar-excel] Mengisi Data Terpilih dan Terurut pada Sheet Baru dengan Makro Salam be-excel Yth. Para pakar dan rekan2 milis, Pada module 1 (file terlampir) dgn bimbingan para pakar milis sdh disusun dua buah prosedur sub, yaitu: Makro1 : sub buatsheets() --> membuat sheet baru dan memberi nama secara otomatis. Makro2 : sub isidata() -->mengambil data yg sesuai kriteria. Pertanyaan: 1. Saat ini hasil penugasan makro2 tampil pd sheet yg sama, yakni sheet 'sumber'.. Bgmn revisi kode makro agar hasilnya tampil pd sheet baru hasil penugasan makro1?? 2. Jika boleh, sekalian mohon bantuannya merevisi kode Makro2 agar hasilnya dpt tampil terurut sesuai kolom L sheet 'sumber' dari yg terbesar hingga yg terkecil.. Mohon dibantu memecahkan masalah diatas. Terima kasih sebelumnya. Salam Imam F. Sinurat - Sumut Powered by Telkomsel BlackBerry®
