Consulta VBA

Hola Gabriel,

Suponiendo que la celda se encuentra en la "Hoja1" y es [A1]...

prueba poner en el modulo VBA del formulario el siguiente codigo:

Private Sub UserForm_Initialize()
TextBox1= Sheets("Hoja1").[A1]
End Sub


Saludos,
KL


"Gabriel" wrote in message news:

Buenas tengo un Textbox1, como puedo hacer para que cuando carge un
formulario ese textbox1 me mueste el valor de una celda especifcica en ese
text box no se ingresa ningun valor solo tiene que mostrar el valor de la
celda
espero me puedan ayudar mis conocimientos de VBA son muy basicos
Gracias
Gabriel
Lima Peu

Hola KL, he visto este hilo y me interesaba el tema muchísimo, como ya
sabes, por todo lo que estoy haciendo últimamente, y he probado el código
para A1 en concreto y me ha funcionado perfectamente, y me he dicho
¡estupendo ya puedo visualizar en el formulario todas las celdas, pero
cuando he metido el código para B2 ya no me funcionaba ¿podrías decirme
donde esta el error?
Te envío el código tal cual lo puse:

Private Sub UserForm_Initialize()
TextBox1 = Sheets("Hoja1").[A1]
TestBox2 = Sheets("Hoja1").[B2]
End Sub

Si lo pongo así:
Private Sub UserForm_Initialize()
TextBox1 = Sheets("Hoja1").[A1]
End Sub
funciona perfectamente para A1, pero me gustaría tomara todos los datos de
la fila A1,B1, C1, etc
Muchas gracias y un saludo
Josema

Hola Josema,

Lo primero que salta a la vista es que el nombre del segundo TextBox lo tienes mal - prueba cambiar la "s" por la "x".

Saludos,
KL


"Josema" <josedoalARROBAhotmail.com> wrote in message news:

Hola KL, he visto este hilo y me interesaba el tema muchísimo, como ya sabes, por todo lo que estoy haciendo últimamente, y he
probado el código para A1 en concreto y me ha funcionado perfectamente, y me he dicho ¡estupendo ya puedo visualizar en el
formulario todas las celdas, pero cuando he metido el código para B2 ya no me funcionaba ¿podrías decirme donde esta el error?
Te envío el código tal cual lo puse:

Private Sub UserForm_Initialize()
TextBox1 = Sheets("Hoja1").[A1]
TestBox2 = Sheets("Hoja1").[B2]
End Sub

Si lo pongo así:
Private Sub UserForm_Initialize()
TextBox1 = Sheets("Hoja1").[A1]
End Sub
funciona perfectamente para A1, pero me gustaría tomara todos los datos de la fila A1,B1, C1, etc
Muchas gracias y un saludo
Josema

Gracias KL Funciono Bastante bien tengo una duda para que se usan los [] yo
estaba utilizando los siguiente TextBox1= Sheets("Hoja1").Value y nada como
te comente soy nuevo en VBA
sds
Gabriel


"KL" escribió:

Hola Gabriel,

Suponiendo que la celda se encuentra en la "Hoja1" y es [A1]...

prueba poner en el modulo VBA del formulario el siguiente codigo:

Private Sub UserForm_Initialize()
TextBox1= Sheets("Hoja1").[A1]
End Sub


Saludos,
KL


"Gabriel" wrote in message news:
> Buenas tengo un Textbox1, como puedo hacer para que cuando carge un
> formulario ese textbox1 me mueste el valor de una celda especifcica en ese
> text box no se ingresa ningun valor solo tiene que mostrar el valor de la
> celda
> espero me puedan ayudar mis conocimientos de VBA son muy basicos
> Gracias
> Gabriel
> Lima Peu

Hola Gabriel,

...para que se usan los []...

[A1] es una forma de referirse a un rango de celdas. Generalmente se usan las siguientes sintaxis para devolver el rango.:

Sheets("Hoja1").[A1]
Sheets("Hoja1").Range("A1")
Sheets("Hoja1").Cells(1,1)

Si el rango no lleva especificada ninguna propiedad expresamente, VBA asume la propiedad Value por defecto. Por tanto las
instrucciones de arriba equivalen a:

Sheets("Hoja1").[A1].Value
Sheets("Hoja1").Range("A1").Value
Sheets("Hoja1").Cells(1,1).Value

yo
estaba utilizando los siguiente TextBox1= Sheets("Hoja1").Value y nada...

Aqui falta un rango. El objeto Sheet no tiene la propiedad Value y por tanto VBA no sabe que valor asignar al TextBox1.


Saludos,
KL