barangkali masih tertarik, masalah ini...
cara agak lain dari code akang Ayang...
Private Sub CommandButton1_Click()
Dim n As Long, PassList As String, X As Range
Set X = Range([A1], [A1].End(xlDown))
With TextInput
If TextInput = "" Then
MsgBox "Anda belum menginput..", 48, "Login.."
GoTo ciUjung
End If
For n = 1 To X.Rows.Count
PassList = IIf(IsNumeric(X(n)), CStr(X(n)), X(n))
If PassList = .Value Then
Cells(n, 1).Select
MsgBox "Selamat Datang di system canggih..", 64, "LogIn.."
.Value = ""
Exit Sub
End If
Next n
MsgBox "Waduh, ndak cucok tuh pass-nya..", 48, "LogIn.."
ciUjung:
.Value = "": .Activate
End With
End Sub
2008/11/19 siti Vi <[EMAIL PROTECTED]>
>
> maaf ndak mengikuti diskusi ini, karena bbrpa hari siti kaburr ...
>
> jadi kayaknya intinya kesalahan siti memilih event change milik textbox.
> Event change itu terjadi setiap huruf diketikkan atau diedit atau dihapus
> bukannya menunggu selesai dulu, tetapi begitu property VALUE
> milik TEXT BOX berubah = event change terjadi
> Jika kita mengetikkan kata terdiri dari 8 huruf maka event change itu
terjadi
> minimal 8 kali. Ini memang sering membuat makro kita berjalan diluar
dugaan
> karena kita mengira CHANGE terjadi setelah kita selesai mengisi TextBox.
>
> Mohon maaf juga kemarinnya asiti bilang pakai event AfterUpdate yg
> ternyata tidak dimiliki oleh textbox; lalu akang ayang memilihkan event
> LostFocus, sungguh tepat, karena event ini terjadi ketika textbox kita
> tinggalkan (karena menselect object lain) atau tepatnya saat textbox tidak
> lagi mempunyai kemampuan menerima inputan.
>
> Saling mengisi...? Thats what milis are for...., seperti lagunya dione
warwick...
> (eh salah yaa..)
>
>
> 2008/11/14 Ayang <[EMAIL PROTECTED]>
>>
>> Mungkin yg dimaksud spt ini (file attached) yak? :-)
>> 2008/11/14 sukarno <[EMAIL PROTECTED]>
>>>
>>> msgbox masih tetep nongol, walau nilai ada diantara a1:a8
>>
>
