Visual Basic - imprimir leyenda

Life is soft - evento anual de software empresarial
   
Vista:

imprimir leyenda

Publicado por sandoval (1 intervención) el 11/11/2010 17:47:01
quiero imprimir en una celda de excel diferentes leyendas,
estas se definirán con la cuarta posición de mi cadena escrita en un textbox
mi textbox se le ingresaran únicamente 6 caracteres numéricos, pero dependiendo de la cuarta posición de esta, se imprimirá una leyenda
ejemplo :
198125
197294
198319
En este caso los números a calcular serian 1,2 y 3
Si es 1 imprimir leyenda " el número es uno "
Si es 2 imprimir leyenda " el número es dos "
Si es 3 imprimir leyenda " el número es tres "

Tengo este codigo pero no se que esta mal o que me falta.
Private Sub TextBox1_Change()
If Mid(TextBox1, 4, 1) = 1 Then Sheets("HOJA1").Cells(5, 5) = " el numero es uno
"
Else
If Mid(TextBox1, 4, 1) = 2 Then Sheets("HOJA1").Cells(5, 5) = " el numero es dos
"
Else
If Mid(TextBox1, 4, 1) = 3 Then Sheets("HOJA1").Cells(5, 5) = " el numero es tres
"
End If
End Sub

Gracias:
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder