Ada kekurangan di scriptnya, variabel txtinput harus diassign dulu
value/txt-nya ke Textinput:
Dim X As Range, txtinput As String
txtinput = Sheet1.Textinput.Text
Script lengkapnya:
Private Sub Textinput_LostFocus()
Dim X As Range, txtinput As String
txtinput = Sheet1.Textinput.Text
For Each X In Sheets("sheet1").Range("a1:a8")
If Not X = txtinput Then
MsgBox "waduh, ndak cucok tuh", 48, "Input Anda"
Exit For
End If
Next X
End Sub
Rgds,
-Ayang-
2008/11/14 sukarno <[EMAIL PROTECTED]>
> Terima kasih mbak siti,
> knp msgboxnya tatap keluar, walau nilai sudah masuk dalam range a1:a8
>
> mohon pencerahan lagi...
> sukarno
>
> siti Vi wrote:
>
> 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]> <[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]> <[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
>
>
>
>
>
>
>
>
>
--
Best Regards,
- Ayang -
Please consider the environment before printing this email.
