Insya Allah Mr.Kid
________________________________ From: Mr. Kid <[email protected]> To: [email protected] Sent: Friday, March 8, 2013 2:33 PM Subject: Re: [belajar-excel] copy NIS (nomor induk siswa) Alhamdulillah. Semoga hasil setiap langkah yang dilalui adalah didapatkannya ilmu yang mantap didalam hati. Andai bersedia melanjutkan sendiri 1 langkah berikutnya, bisa jadi akan lebih bermanfaat, yaitu memahami setiap langkahnya beserta tujuan setiap baris scriptnya dan membaginya dimilis sebagai penjelasan setiap langkah yang dilakukan. Wassalamu'alaikum Wr. Wb. Kid. 2013/3/8 IHSAN NURDIN <[email protected]> >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 rngNilaiWassalam,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 >>NO2. F2 sampai selesai isi nomor urut mapel (sebanyak jumlah mapel)3. G1 >>tulis NIS4. H1 tulis Mapel5. H2 sampai selesai tulis seluruh Mapel dari IPA >>dst6. ke VBE (ALT F11) -> menu Insert -> pilih Module7. 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 sub8. 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 RunWassalamu'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.
