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. > > > > > > >
