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, "L
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 beruba
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 I
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
nex
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 s
saya sudah buat sebagai berikut,
If Range("b1").Value = Range("a1:a8").Value Then
Range("c1").Value = Range("b1").Value
Else
MsgBox "salah"
End If
tapi baris
If Range("b1").Value = Range("a1:a8").Value Then
selalu errror,
tolong dibantu gmn yg benernya?
Jadi b1 harus ada di a1:a8
klw ga ada mau
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?
T
7 matches
Mail list logo