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

#11 KL
12/01/2006 - 00:09 | Informe spam
mejor crea un boton con el codigo como este:

Private Sub CommandButton1_Click()
If IsNumeric(Ubi1) Then [A11] = CStr(Ubi1)
If IsDate(Ubi2) Then [B11] = CDate(Ubi2)
End Sub

y asi pasas todos los valores de una vez y al final, sin tener que actualizar las celdas en tiempo real.

Saludos,
KL


"~jose~" <carpinjose @ gmail.com> wrote in message news:
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
#12 ~jose~
12/01/2006 - 00:54 | Informe spam
Lo que pasa es que creo que me hace falta que se inserte el código en tiempo
real
Es un formulario un poco raro creado por mi (cojiendo un poco de codigo de
ahi, otro poco de alla, modificando un poco por aqui, etc...)
Y lo que hace es a la vez que insetarmos datos en tiempo real vá buscando
esos datos en la hoja a ver si están y luego crearé un boton para insetarlos
(si no estan en la hoja).
Por eso preguntaba como se podria insertar numeros o fechas mediante este
codigo

Private Sub TextBox1_Change()

End Sub
Gracias de nuevo


"KL" escribió:

mejor crea un boton con el codigo como este:

Private Sub CommandButton1_Click()
If IsNumeric(Ubi1) Then [A11] = CStr(Ubi1)
If IsDate(Ubi2) Then [B11] = CDate(Ubi2)
End Sub

y asi pasas todos los valores de una vez y al final, sin tener que actualizar las celdas en tiempo real.

Saludos,
KL


"~jose~" <carpinjose @ gmail.com> wrote in message news:
> 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
#13 KL
12/01/2006 - 01:00 | Informe spam
Si es lo que quieres, entonces si se puede usar el evento Change del textbox.

Saludos,
KL


"~jose~" <carpinjose @ gmail.com> wrote in message news:
Lo que pasa es que creo que me hace falta que se inserte el código en tiempo
real
Es un formulario un poco raro creado por mi (cojiendo un poco de codigo de
ahi, otro poco de alla, modificando un poco por aqui, etc...)
Y lo que hace es a la vez que insetarmos datos en tiempo real vá buscando
esos datos en la hoja a ver si están y luego crearé un boton para insetarlos
(si no estan en la hoja).
Por eso preguntaba como se podria insertar numeros o fechas mediante este
codigo

Private Sub TextBox1_Change()

End Sub
Gracias de nuevo


"KL" escribió:

mejor crea un boton con el codigo como este:

Private Sub CommandButton1_Click()
If IsNumeric(Ubi1) Then [A11] = CStr(Ubi1)
If IsDate(Ubi2) Then [B11] = CDate(Ubi2)
End Sub

y asi pasas todos los valores de una vez y al final, sin tener que actualizar las celdas en tiempo real.

Saludos,
KL


"~jose~" <carpinjose @ gmail.com> wrote in message news:
> 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
#14 ~jose~
12/01/2006 - 01:10 | Informe spam
Vale,
yo creia que se podia utilizar eso de As Single o As Date o As String
entonces si aqui no se emplean, donde se podrian emplear?

"KL" escribió:

Si es lo que quieres, entonces si se puede usar el evento Change del textbox.

Saludos,
KL


"~jose~" <carpinjose @ gmail.com> wrote in message news:
> Lo que pasa es que creo que me hace falta que se inserte el código en tiempo
> real
> Es un formulario un poco raro creado por mi (cojiendo un poco de codigo de
> ahi, otro poco de alla, modificando un poco por aqui, etc...)
> Y lo que hace es a la vez que insetarmos datos en tiempo real vá buscando
> esos datos en la hoja a ver si están y luego crearé un boton para insetarlos
> (si no estan en la hoja).
> Por eso preguntaba como se podria insertar numeros o fechas mediante este
> codigo
>
> Private Sub TextBox1_Change()
>
> End Sub
> Gracias de nuevo
>
>
> "KL" escribió:
>
>> mejor crea un boton con el codigo como este:
>>
>> Private Sub CommandButton1_Click()
>> If IsNumeric(Ubi1) Then [A11] = CStr(Ubi1)
>> If IsDate(Ubi2) Then [B11] = CDate(Ubi2)
>> End Sub
>>
>> y asi pasas todos los valores de una vez y al final, sin tener que actualizar las celdas en tiempo real.
>>
>> Saludos,
>> KL
>>
>>
>> "~jose~" <carpinjose @ gmail.com> wrote in message news:
>> > 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
#15 KL
12/01/2006 - 11:34 | Informe spam
Hola Jose,

Este es un tema bastante extenso como para exponerlo en un mensaje del foro. Te recomiendo que revises la ayuda de Excel VBA (desde
el Editor VBA menu Ayuda) con las palabras de busqueda "tipos de datos". Tambien revisa el libro de J.Walkenbach que entiendo ya has
comprado en la parte Las Bases de Programacion VBA (Variables, Tipos de Datos y Constantes).

Saludos,
KL


"~jose~" <carpinjose @ gmail.com> wrote in message news:
Vale,
yo creia que se podia utilizar eso de As Single o As Date o As String
entonces si aqui no se emplean, donde se podrian emplear?

"KL" escribió:

Si es lo que quieres, entonces si se puede usar el evento Change del textbox.

Saludos,
KL


"~jose~" <carpinjose @ gmail.com> wrote in message news:
> Lo que pasa es que creo que me hace falta que se inserte el código en tiempo
> real
> Es un formulario un poco raro creado por mi (cojiendo un poco de codigo de
> ahi, otro poco de alla, modificando un poco por aqui, etc...)
> Y lo que hace es a la vez que insetarmos datos en tiempo real vá buscando
> esos datos en la hoja a ver si están y luego crearé un boton para insetarlos
> (si no estan en la hoja).
> Por eso preguntaba como se podria insertar numeros o fechas mediante este
> codigo
>
> Private Sub TextBox1_Change()
>
> End Sub
> Gracias de nuevo
>
>
> "KL" escribió:
>
>> mejor crea un boton con el codigo como este:
>>
>> Private Sub CommandButton1_Click()
>> If IsNumeric(Ubi1) Then [A11] = CStr(Ubi1)
>> If IsDate(Ubi2) Then [B11] = CDate(Ubi2)
>> End Sub
>>
>> y asi pasas todos los valores de una vez y al final, sin tener que actualizar las celdas en tiempo real.
>>
>> Saludos,
>> KL
>>
>>
>> "~jose~" <carpinjose @ gmail.com> wrote in message news:
>> > 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