Pak Mr.Kid mohon bantuan , sy ada error di baris : rng.Copy .rngNilai.Offset(lRow, 1).Resize(lMapel, 1). TK
________________________________ From: Mr. Kid <[email protected]> To: [email protected] Sent: Friday, March 8, 2013 12:10 PM Subject: Re: [belajar-excel] copy NIS (nomor induk siswa) Wa'alaikumussalam Wr. Wb. Coba langkah berikut : 1. pada sheet nis F1 tulis NO 2. F2 sampai selesai isi nomor urut mapel (sebanyak jumlah mapel) 3. G1 tulis NIS 4. H1 tulis Mapel 5. H2 sampai selesai tulis seluruh Mapel dari IPA dst 6. ke VBE (ALT F11) -> menu Insert -> pilih Module 7. copas script berikut : public sub Salin() dim rng as range, rngMapel as range dim rngNilai as range dim lRow as long ,lMapel as long set rngnilai=sheets("daftar nilai").range("a1") lrow=rngnilai.currentregion.rows.count with sheets("NIS murid") set rngmapel= .range("f1").currentregion.offset(1) lmapel=rngmapel.rows.count-1 if lmapel<1 then exit sub endif for each rng in .range("a1").currentregion.resize(,1).offset(1,1) if lenb(rng.value)<>0 then rngmapel.copy rngnilai.offset(lrow) rng.copy .rngnilai.offset(lrow,1).resize(lmapel,1) lrow=rngnilai.currentregion.rows.count endif next rng end with end sub 8. kembali ke worksheet (ALT F11) 9. save as file (ALT F A kemudian pada save as type pilih .xlsm atau .xls atau .xlsb lalu isi nama file dan tekan tombol Save) 10. jalankan prosedur dengan ALT F8 lalu pilih Salin dan tekan tombol Run Wassalamu'alaikum Wr. Wb. Kid. 2013/3/8 IHSAN NURDIN <[email protected]> > > > >Assalamu alaikum. > > > >Mohon bantuan rekan2 milis, bagimana sy bisa mencopy dengan cepat NIS (nomor >induk siswa) dr sheet "NIS murid" ke sheet "daftar nilai". Jadi setiap murid >mempunyai 9 baris data sesuai jumlah mata pelajaran yg ada. Tk sebelumnya. > > > > >wassalam. > >
