¿Me puedes ayudar con el código de programación de un sistema de tarjetas identificativas?
Te escribo de nuevo, es sobre la tarjeta para checar pero ahora te dejo un poco de código:
Private Sub CommandButton1_Click()
If (TextBox1 = 100) Then
TextBox2 = Range("b2")
TextBox3 = Range("c2")
TextBox4 = Range("d2")
TextBox5 = Range("e2")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End If
If (TextBox1 = 101) Then
TextBox2 = Range("b3")
TextBox3 = Range("c3")
TextBox4 = Range("d3")
TextBox5 = Range("e3")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End If
End Sub
Private Sub TextBox1_Change()
End Sub
Ahora, mi problema es que cuando corro el programa y le doy la clave (las claves son 100, 101) si me da los datos que necesito pero cuando vuelvo a inicair el programa y le vuelvo a dar la clave(u otra diferente) ya no aparece nada no se si me podrías auxiliar.
Gracias por atenderme de nuevo.
Te lo agradecería si me pudieras contestar inmediatamente porque lo tengo que acabar entre hoy y mañana gracias.
Private Sub CommandButton1_Click()
If (TextBox1 = 100) Then
TextBox2 = Range("b2")
TextBox3 = Range("c2")
TextBox4 = Range("d2")
TextBox5 = Range("e2")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End If
If (TextBox1 = 101) Then
TextBox2 = Range("b3")
TextBox3 = Range("c3")
TextBox4 = Range("d3")
TextBox5 = Range("e3")
Else
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
End If
End Sub
Private Sub TextBox1_Change()
End Sub
Ahora, mi problema es que cuando corro el programa y le doy la clave (las claves son 100, 101) si me da los datos que necesito pero cuando vuelvo a inicair el programa y le vuelvo a dar la clave(u otra diferente) ya no aparece nada no se si me podrías auxiliar.
Gracias por atenderme de nuevo.
Te lo agradecería si me pudieras contestar inmediatamente porque lo tengo que acabar entre hoy y mañana gracias.
1 Respuesta
Respuesta de milarantonio
1
Quizás este equivocado, pero me parece que esta es la segunda parte de otra pregunta, que yo no recuerdo haber contestado, ¿la habrás hecho a otra persona?, porque yo estoy perdidísimo. De todas formas el problema que tienes no debe de estar ahí, sino en otra parte del código, por lo poco que he visto.
Si no es así, disculpame, pero vas a tener que darme más datos.
Si no es así, disculpame, pero vas a tener que darme más datos.
