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®
