Variable objeto

En lo personal no entiendo bien que es lo que quieres hacer pero en el
código que anotas esta mal el uso de la instrucción SET.
SET se utiliza para asignar objetos a variables, por ejemplo SET
HOJA1=SHEETS("Hoja1") con esto en lugar de llamar a hoja1 con
Sheets("Hoja1").algunevento lo haces con HOJA1.algun evento.
Con esto te diré que lo que estas haciendo es querer asignar una cadena a un
objeto y eso no se puede. Para que funcione esa línea tendría que ser Set
boton1=algun_boton_que_tengas

Espero haber sido claro, como sea, se mas especifico con lo que necesitas y
tratare de ayudarte (o alguien mas lo hará).

Saludos
Rene Moreno

"La imaginación es mas importante que el conocimiento"
-Albert Einstein-


____________________________________________________
Para responder elimine el texto NOSPAM de la dirección de envío
"julian-vlc-sp" <ijulianARROBAiespana.es> escribió en el mensaje
news:u$

¡Hola a !

Tengo el siguiente código que no hace lo que yo pretendo, (seguro que es
porque he puesto algo mal)

>Private Sub abrir1_Click()
>
> Dim a As Integer
> Dim boton1 As CommandButton
> Dim boton2 As CommandButton
>
> 'ajustar
> a = 1
>
> Set boton1 = "abrir" & Trim(Str(a))
> Set boton2 = "cerrar" & Trim(Str(a))
>
> . . . . . .
>
> . . . . . .
>
> boton1.Visible = False
> boton2.Visible = True
>
>End Sub

Como veis, este código se ejecuta al hacer click en un botón que se llama
abrir1.

Quiero poner mas botones, que llamaré abrir2, abrir3, etc, a estos botones
les pego el código que he puesto arriba y pongo a=2, a=3. etc.(esta

variable

la necesito para otra parte de código)

En las dos ultimas filas quiero hacer visible y oculto, unos botones que

se

llaman "abrir1" y "cerrar1", y para no tener que cambiar el 1 de los

nombres

de estos botones, y dado que tengo la variable a, que tiene el valor que
necesito, he pensado hacer lo que veis en el código con unas variables as
objeto, pero no funciona.

¿Me podéis ayudar?

SALUDOS.
julian-valencia-españa