Consulta VBA

Hola KL, ya esta cambiado, pero sigue sin funcionar. Mira ahora esta puesto
de la siguiente forma:

Private Sub UserForm_Initialize()
TextBox1 = Sheets("Hoja1").[A1]
TextBox2 = Sheets("Hoja1").[B1]
End Sub
?Puede hacerse alguna cosilla mas?
Gracias KL
Un saludo


"KL" escribio en el mensaje
news:%

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

Hola Josema no se si te servia lo que yo hice, ya que tenia la misma duda
yo puse en un USERForm dos TEXTBOX llamados nro y fecha, tambien cambie el
nombre de mi hoja por : Registros y puse lo sgte.
Private Sub UserForm_Initialize()
nro = Sheets("Registros").[B1]
Fecha = Sheets("Registros").[C1]
End Sub

espero que te puede ayudar,
sds
Gabriel
Lima Peru

"Josema" escribió:

Hola KL, ya esta cambiado, pero sigue sin funcionar. Mira ahora esta puesto
de la siguiente forma:

Private Sub UserForm_Initialize()
TextBox1 = Sheets("Hoja1").[A1]
TextBox2 = Sheets("Hoja1").[B1]
End Sub
?Puede hacerse alguna cosilla mas?
Gracias KL
Un saludo


"KL" escribio en el mensaje
news:%
> 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
>>
>>
>
>

Hola Gabriel, ahora cuando trato de ejecutar el formulario pregunta por el
nombre de la Macro. No entiendo lo que sucede. He cambiado lo que me has
comentado, pero no funciona, bueno al menos no soy capaz de hacerlo
funcionar.
Un saludo
Josema

Josema cuando estes en la pantalla de VBA tienes que tener selccionado el
formulario, no lo textbox, si tienes seleccionado los textbox pide ejecutar
la macro puedes probarlo
sds
Gabriel

"Josema" escribió:

Hola Gabriel, ahora cuando trato de ejecutar el formulario pregunta por el
nombre de la Macro. No entiendo lo que sucede. He cambiado lo que me has
comentado, pero no funciona, bueno al menos no soy capaz de hacerlo
funcionar.
Un saludo
Josema

Tienes razón, pero aún así, no funciona. He revisado el código pero nada.
Se nos esta resistiendo un poco.
Saludos y ya sabes si se te ocurre cualquier cosa me lo dices.
Josema