Rellenar Celdas desde el formulario

26/05/2007 - 23:39 por Carmen | Informe spam
Hola y un saludo para todos, os prometo que por hoy no os doy más la paliza,
además con esto termino la aplicación que estoy haciendo.

Quisiera saber cómo se pueden rellenar celdas desde un formulario.

Creo que lo mejor será poner un ejemplo: En A1 pongo "Nombre", B1,
"Apellidos" y C1 "Teléfono" Supongamos que en A2 escribo Juan, B2 Pérez Ruiz
y en C2 85800.

He creado un formulario con los mismos campos y quisiera que desde el
formulario se rellenaran las celdas A2, B2 y B3 con los datos que escribo en
él.

Espero podáis ayudarme y os doy las gracias por anticipado. Si quereis ver
el ejemplo me lo decis y os lo envio al correo

Un saludo
Carmen
 

Leer las respuestas

#1 Vinchenzo vinç
27/05/2007 - 00:05 | Informe spam
"Carmen" <carmenARROBAhotmail.com> escribió en el mensaje news:

Hola y un saludo para todos, os prometo que por hoy no os doy más la paliza,
además con esto termino la aplicación que estoy haciendo.

Quisiera saber cómo se pueden rellenar celdas desde un formulario.

Creo que lo mejor será poner un ejemplo: En A1 pongo "Nombre", B1,
"Apellidos" y C1 "Teléfono" Supongamos que en A2 escribo Juan, B2 Pérez Ruiz
y en C2 85800.

He creado un formulario con los mismos campos y quisiera que desde el
formulario se rellenaran las celdas A2, B2 y B3 con los datos que escribo en
él.

Espero podáis ayudarme y os doy las gracias por anticipado. Si quereis ver
el ejemplo me lo decis y os lo envio al correo



Hola,
utiliza la propiedad 'ControlSource' del control.
Por ejemplo, si añades una caja de texto 'TextBox1' en el formulario, y quieres controlar el campo "Nombre", escribe en dicha propiedad "A2", y automáticamente tendrás enlazada la celda 'A2' con el control, cuando se cargará el formulario el control leerá el valor de la celda, y cuando modifiques el valor en la caja de texto se actualizará la celda.
Ten presente que el TextBox dispone del evento '_BeforeUpdate' desde donde podrás evaluar si el dato lo aceptas o no mediante el parámetro 'Cancel' que recibirás en dicho evento. Por ejemplo:

'***************
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1.Text = "Vinchenzo" Then
MsgBox "Vichenzo no es un cliente válido!", vbCritical
Cancel = True '<<< se cancela la actualización
End If
End Sub
'***************


Saludos
( ! ) Respuestas precedentes en Google:
http://groups.google.com/group/micr...c.es.excel
( i ) Temperancia en el foro:
http://support.microsoft.com/defaul...newsreglas

Preguntas similares