Rekan Edo Hanggoro. Saya tambahkan 1 baris di bawah For Each Item In RangeKu :
If Range("D5000").End(xlUp).Offset(1, -3) = "" Then Exit For
Semoga membantu :-)
http://www.yuhana.com
(Situs Sumber Inspirasi Keluarga)
----- Original Message -----
From: "Edo Hanggoro" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Thursday, June 12, 2008 2:07 AM
Subject: ]] XL-mania [[ Menyetop perintah command button
> Dear Pakar XL,
>
> Mohon bantuannya mengenai VBA untuk membuat command
> Button tersebut tidak bereaksi jika seandainya kolom A
> tersebut tidak ada isinya. Command Button yang
> sekarang saya bikin tersebut masih dapat bereaksi
> meskipun pada sel A17 tidak ada isinya.
>
> Saya menginginkan jika 1 baris dibawah baris terakhir
> tersebut kosong maka Command Button tersebut tidak
> bereaksi, baru jika baris terakhir tersebut terisi,
> maka command button akan menjalankan perintah untuk
> mengisi pada kolom D di baris terakhir sampai pada
> baris yang kosong lagi.
>
> Sebagai contoh adalah jika saya mengisi sel A17 sampai
> dengan A20, maka command button akan mengisi di kolom
> D17 sampai D20 sesuai dengan perintahnya, dan setelah
> itu command button tersebut tidak dapat bereaksi lagi
> karena di sel A21 tidak terisi alias kosong.
>
> Terima Kasih
>
> Edo
Stop CommandButton.xls
Description: MS-Excel spreadsheet
