Excel - ayuda con macro y textbox

   
Vista:

ayuda con macro y textbox

Publicado por sandoval (7 intervenciones) el 11/11/2010 00:27:08
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

RE:ayuda con macro y textbox

Publicado por pedro garcia (47 intervenciones) el 12/11/2010 03:33:47
Solo debes de quitar los else y end if

saludos...

atte pedro garcia
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar