piya.... lupppaaa...
harusnya ketika dah pasti ndak cocok
looping tidak perlu diteruskan
yaitu dengan *Exit For*
dim X as range
for each X in Sheets("namasheet").Range("a1:a8")
if not X = txt_input then
msgbox "waduh, ndak cucok tuh", 48, "Input Anda"
exit for
end if
next X
2008/11/13 sukarno <[EMAIL PROTECTED]>
> Terima kasih mbak siti,
> tapi kenapa msgboxnya harus tekan ok berkali-kali ya?
> nilai benarpun juga ada ada msgboxnya.
>
>
> siti Vi wrote:
>
> barngkali begini
>
> dim X as range
> for each X in Sheets("namasheet").Range("a1:a8")
> if not X = txt_input then
> msgbox "waduh, ndak cucok tuh", 48, "Input Anda"
> end if
> next X
>
> rangkaian code tsb ditulis didalam event prosedur txt_input afterupdate
> atau txt_input change
> cmiiw
>
>
> 2008/11/13 sukarno <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
>
> Saya ingin membuat validasi dengan makro,
>
> misal :
> Saya punya form inputan form1 dengan texbox: txt_input
> ketika saya input suatu angka, jika angka tersebut ada dalam range
> tertentu misal a1:a8, maka proses dilanjutkan, namun kalau tidak ada,
> maka akan ditampilkan msgbox.
>
> bagaimana makronya?
>
> Terima kasih.
> sukarno
>
>
>
>
>
