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