Alhamdulillah akhirnya berhasil. Walaupun harus berjalan seperti siput mengikuti langkah demi langkah. Maklum pemula nih Pak. Tk atas bantuannya Mr. Kid.
wassalam. ________________________________ From: Mr. Kid <[email protected]> To: [email protected] Sent: Friday, March 8, 2013 2:14 PM Subject: Re: [belajar-excel] copy NIS (nomor induk siswa) oh sorry, hapus karakter titik didepan rngNilai Wassalam, Kid. 2013/3/8 IHSAN NURDIN <[email protected]> > >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. >> >> > > >
