Dear pak Anas,
yang Jan kirim sebelumnya bukan data dummy tetapi data yang pak Anas kirim
ke millis, hanya saja sheetnya disisakan 1 agar ukuran file menjadi lebih
kecil.
coba ganti script berikut:
' bikin nomor urut
Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
dengan yang ini:
if idxrow = 9 then
range("a9"). value = 1
elseif idxrow = 10 then
range("a9").value = 1
range("a10").value = 2
else
Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
end if
semoga sudah tidak muncul error lagi.
Best Regard,
-Ms. Jan Raisin-
Pada 27 Desember 2012 18:01, Dian Anas <[email protected]> menulis:
> **
>
>
> dear miss jan raisin,
> sekali lagi terima kasih atas pelajarannya. untuk duk pns yang dibuat oleh
> miss jan sudah saya coba-coba utak atik ternyata memang saya belum bisa
> vba. btw saya memakai yang miss jan sarankan yaitu pmemakai dummy, namun
> balik lagi saya memang masih perlu banyak belajar. langsung ke persoalan
> ketika saya hapus semua data dalam sheet KS dan Guru dan saya klik
> ternyata muncul debug
> Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
> niatan saya mau menginput data baru
> bagaimana cara mengatasinya?
> terima kasih
>
> best regards
>
>
