Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Dudas con Controles de Formularios

07/01/2006 - 22:17 por ~jose~ | Informe spam
Ayuda Hacer una pregunta
Hola muy buenas,
tengo este código que me estoy creando pero lo tengo incompleto.
If Ubi Then Range("a11") = Ubi
Ubi es un textbox de un formulario donde introduzco numeros
"a11" es donde se insertan los datos

If Fecha Then Range("b11") = Fecha
Fecha es otro textbox donde introduzco una fecha
etc.

Tengo varios textbox en el formulario, hay de nuemeros otros de texto y de
fechas
y mis preguntas son estas:

1) Si no relleno todos los textbox porque me lanza error?
2) Cual seria el código correcto prara poner una fecha desde un textbox?
Sé que hay que poner As Date pero no encuetro donde, y mira que he
probado eh!
3) De la forma que tengo el código ahora si meto algo que no sean nuemeros
me dá también error, a que se debe?

Supongo que todos estos problemas serán porque tengo el código incompleto,
anda! echarme una mano
email Siga el debateRespuesta 16 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#6 ~jose~
11/01/2006 - 19:25 | Informe spam
Y como seria el código para insertar numeros o fechas si
tengo este otro código?

Private Sub TextBox1_Change()
Range("A11").FormulaR1C1 = TextBox1
End Sub


Gracias

"KL" escribió:

Hola Jose,

>y cuando se emplea?:
> As String
> As Date

Cuando hay variables de por medio. En tu caso, si no me equivoco, no utilizas ninguna variable sino nombres de los controles que ya
son objetos expresamente y no necesitan declaracion adicional.

Saludos,
KL


Respuesta Responder a este mensaje
#7 KL
11/01/2006 - 21:12 | Informe spam
Hola jose,

No entiendo la pregunta. ?Cual es el problema con el codigo que expones? Deberia funcionar, aunque tal vez se pueda acortarlo un
pelin:

Private Sub TextBox1_Change()
Range("A11") = TextBox1
End Sub

?Comentas mas detalles?

Saludos,
KL


"~jose~" wrote in message news:
Y como seria el código para insertar numeros o fechas si
tengo este otro código?

Private Sub TextBox1_Change()
Range("A11").FormulaR1C1 = TextBox1
End Sub


Gracias

"KL" escribió:

Hola Jose,

>y cuando se emplea?:
> As String
> As Date

Cuando hay variables de por medio. En tu caso, si no me equivoco, no utilizas ninguna variable sino nombres de los controles que
ya
son objetos expresamente y no necesitan declaracion adicional.

Saludos,
KL


Respuesta Responder a este mensaje
#8 ~jose~
11/01/2006 - 21:35 | Informe spam
Anteriormente me decias como insertar numeros o fechas mediante un formulario
en un textbox y el código que te exponia era

If Ubi Then Range("a11") = Ubi

y la solución que me dabas era:

If IsNumeric(Ubi) Then Range("a11") = Ubi

y esta otra para las fechas:

If IsDate(Ubi) Then Range("a11") = Ubi

Pues bien, lo que pregunto es lo mismo que anteriormente pero con otra forma
de codigo.
El códgio seria este:

Private Sub TextBox1_Change()
Range("A11").FormulaR1C1 = TextBox1
End Sub

Con este código al meter matos en el textbox me los ingresa en la hoja como
texto y queria saber como se podria hacer en este caso para insertarlos como
numeros o fechas.
Me explico?
Respuesta Responder a este mensaje
#9 KL
11/01/2006 - 22:55 | Informe spam
Hola jose,

Para insertar el contenido del TextBox en una celda como numero prueba:

If IsNumeric(Ubi) Then [A11] = CStr(Ubi)

Y para las fechas algo asi:

If IsDate(Ubi) Then [A11] = CDate(Ubi)

Saludos,
KL


"~jose~" wrote in message news:
Anteriormente me decias como insertar numeros o fechas mediante un formulario
en un textbox y el código que te exponia era

If Ubi Then Range("a11") = Ubi

y la solución que me dabas era:

If IsNumeric(Ubi) Then Range("a11") = Ubi

y esta otra para las fechas:

If IsDate(Ubi) Then Range("a11") = Ubi

Pues bien, lo que pregunto es lo mismo que anteriormente pero con otra forma
de codigo.
El códgio seria este:

Private Sub TextBox1_Change()
Range("A11").FormulaR1C1 = TextBox1
End Sub

Con este código al meter matos en el textbox me los ingresa en la hoja como
texto y queria saber como se podria hacer en este caso para insertarlos como
numeros o fechas.
Me explico?
Respuesta Responder a este mensaje
#10 ~jose~
11/01/2006 - 23:15 | Informe spam
Al crear un cuadro de texto en un formulario, si pincho sobre el
aparece esto:
Private Sub TextBox1_Change()

End Sub

Ahi es donde dices que hay que insertar el código que me pones no?
no se donde he visto yo que ponian algo asi:

Private Sub TextBox1_Change()
'aqui el código
End Sub

Gracias
"KL" escribió:

Hola jose,

Para insertar el contenido del TextBox en una celda como numero prueba:

If IsNumeric(Ubi) Then [A11] = CStr(Ubi)

Y para las fechas algo asi:

If IsDate(Ubi) Then [A11] = CDate(Ubi)

Saludos,
KL


"~jose~" wrote in message news:
> Anteriormente me decias como insertar numeros o fechas mediante un formulario
> en un textbox y el código que te exponia era
>
> If Ubi Then Range("a11") = Ubi
>
> y la solución que me dabas era:
>
> If IsNumeric(Ubi) Then Range("a11") = Ubi
>
> y esta otra para las fechas:
>
> If IsDate(Ubi) Then Range("a11") = Ubi
>
> Pues bien, lo que pregunto es lo mismo que anteriormente pero con otra forma
> de codigo.
> El códgio seria este:
>
> Private Sub TextBox1_Change()
> Range("A11").FormulaR1C1 = TextBox1
> End Sub
>
> Con este código al meter matos en el textbox me los ingresa en la hoja como
> texto y queria saber como se podria hacer en este caso para insertarlos como
> numeros o fechas.
> Me explico?


Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida