Visual Basic - textbox me l tome como letras y numeros

Life is soft - evento anual de software empresarial
   
Vista:

textbox me l tome como letras y numeros

Publicado por Felix (2 intervenciones) el 10/02/2013 17:18:47
Hola soy nuevo en la programación he realizado un formulario y lo que quier es que al introducir los datos en un textbox me tome los valores letras y numeros por ejemplo la referencia AO5601 y me lo ponga en una celda de excel de tal forma que ese valor acepte la validación para que la siguiente columna que tengo la formula buscarv me busque dicha formula.

me sale todo a excepción que no me lo toma como valor de texto e incluso no me toma el cero a la izquierda por ejemplo cuando pongo en el textbox 030008 me lo pone 30008 y la formula me da error ......sin embargo cuando en la hoja de excel lo meto a mano y pongo 030008 si me funciona la hoja .....debe ser que desconozco como poner el formato de programacion de ese textbox
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
Imágen de perfil de Antoni Masana

textbox me l tome como letras y numeros

Publicado por Antoni Masana (88 intervenciones) el 11/02/2013 11:43:27
Prueba poner una coma delante del texto al asignarlo a la celda

1
celda="'" + Textbox.text


Cuan entras numeros de forma manual y deseas que conserve los cros de la izquierda si pones la coma simple lo toma como texto y no muestra la coma.
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

textbox me l tome como letras y numeros

Publicado por Felix (2 intervenciones) el 11/02/2013 21:22:12
Mira tengo este codigo pero no sé como se pone lo que me indicas
Private Sub CommandButton1_Click()
'Desprotegemos la hoja
ActiveSheet.Unprotect
'Nos situamos al principio
Range("B13").Select
'Bajamos hasta encontrar la fila vacía
Do While Not IsEmpty(ActiveCell)
'Bajamos una fila
ActiveCell.Offset(1, 0).Select
Loop
'grabamos los datos en la primera fila vacía
'primero el nombre del producto
ActiveCell = Textbox1
'If Len(Textbox1) < 6 Then
'MsgBox ("Porfavor ingresa minimo 6 caracteres!")
'End If

'ahora la cantidad
ActiveCell.Offset(0, 1) = CDbl(TextBox2)

'limpiamos los textbox
Textbox1 = ""
TextBox2 = ""
'TextBox3 = ""
'TextBox4 = ""
'ponemos el focus en el TextBox1
Textbox1.SetFocus
'protegemos la hoja
ActiveSheet.Protect
End Sub
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