Otra consulta sobre formularios..

Hola Mk,

Prueba darles la vuelta a tus instrucciones:

TextBox1 = Range("J3")
TextBox1.Text = Range("J3")
TextBox1.Value = Range("J3")
TextBox1 = Range("J3").Value
TextBox1.Text = Range("J3").Value
TextBox1.Value = Range("J3").Value
TextBox1 = Range("J3").Text
TextBox1.Text = Range("J3").Text
TextBox1.Value = Range("J3").Text
TextBox1 = ActiveCell
TextBox1.Text = ActiveCell
TextBox1.Value = ActiveCell
TextBox1 = ActiveCell.Value
TextBox1.Text = ActiveCell.Value
TextBox1.Value = ActiveCell.Value
TextBox1 = ActiveCell.Text
TextBox1.Text = ActiveCell.Text
TextBox1.Value = ActiveCell.Text

Todos nosotros si estamos aqui es porque somos conscientes de que nos queda
mucho por aprender de Excel :-)

Saludos,
KL


"Mk" wrote in message
news:

Hola a !!

Soy un inutil, que se le va a hacer... Estoy haciendo una macro para la
cual estoy creando un formulario con varios textbox.

En estos textbox deseo que figuren los valores de determinadas celdas de
mi libro, he probado de varias maneras, ej

Range("J3").FormulaR1C1 = TextBox1

ó

Range("J3").Select
ActiveCell.FormulaR1C1 = TextBox1

ó

Range("J3").Select
TextBox1.Value = ActiveCell

pero no me carga los valores en los textbox.

¿Alguna idea?. Muchas gracias por adelantado.

Mk

Una vez más, gracias por tu inestimable ayuda KL.:D

Con tu ayuda he progresado un poquito, ahora consigo que se muestre el
valor de las celdas en los textbox pero tengo que clickar con el ratón
en todos ellos ya que para que lo haga ya que utilizo el procedimiento
"Enter".

He probado con el resto de procedimientos (change,afterupdate,etc..)y
ninguno me muestra los valores por defecto en todos los textbox sin
necesidad de ejecutar alguna acción para ello.

¿Me puedes decir cuál es el procedimiento adecuado?. Muchas gracias.

Hola Mk,

Si quieres que los valores aparezcan en los textboxes nada mas abrir el
formulario, te recomiendo que uses el evento Initialize del formulario,
p.ej.:

Private Sub UserForm_Initialize()
TextBox1 = Range("J3")
TextBox2 = Range("J4")
TextBox3 = Range("J5")
End Sub


Saludos,
KL


"Mk" wrote in message
news:438b8a40$

Una vez más, gracias por tu inestimable ayuda KL.:D

Con tu ayuda he progresado un poquito, ahora consigo que se muestre el
valor de las celdas en los textbox pero tengo que clickar con el ratón en
todos ellos ya que para que lo haga ya que utilizo el procedimiento
"Enter".

He probado con el resto de procedimientos (change,afterupdate,etc..)y
ninguno me muestra los valores por defecto en todos los textbox sin
necesidad de ejecutar alguna acción para ello.

¿Me puedes decir cuál es el procedimiento adecuado?. Muchas gracias.

Muchísimas gracias por tu ayuda. Acabo de hacer un pequeño apaño, le he
añadido un comandbutton de tal forma que al pulsarlo cargue los datos en
los textbox.

Me guardo no obstante tu respuesta.

Saludos!

Nota: Eres un monstruoooooooo!. De mayor quiero ser como tú ;D