problemas de referencias

ya lo envie kl, avisame x favor si llego

te lo mande desde hotmail tb

te lo mande desde hotmail tb

kl, llego?

Hola Diego,

Si lo tengo. Habia pensado que el problema que tenias era el de las
funciones que no funcionaban. Si, en cambio, el problema esta en que el
codigo:

Public Sub activa_boton(i As Integer)
With Controls("B" & i)
.ForeColor = &H80000012
.Locked = False
.Enabled = True
End With
End Sub

compila bien en el modulo de UserForm y da error de compiliacion en un
modulo estandar, entonces te digo que es un comportamiento correcto de
Excel. Es que Controls es una coleccion de objetos que pertenece al objeto
UserForm. Dentro del modulo del UserForm se asume que Controls("B" & i)
pertenece al Me (o el objeto en cuyo modulo se encuentra el codigo). Al
contrario si pones el codigo en un modulo estandar Excel no sabe a que
objeto pertenece el objeto Controls("B" & i) y lanza un error. La solucion
es facil - debes especificar a que UserForm pertenece el control, por
ejemplo asi:

Public Sub activa_boton(i As Integer)
With INSTITUCION.Controls("B" & i)
.ForeColor = &H80000012
.Locked = False
.Enabled = True
End With
End Sub

o bien hacer esto:

Public Sub activa_boton(Formulario As UserForm, i As Integer)
With Formulario.Controls("B" & i)
.ForeColor = &H80000012
.Locked = False
.Enabled = True
End With
End Sub

y llamarlo desde cualquier formulario p.ej. de la siguiente manera:

Call activa_boton(Me, 5)

Saludos,
KL



"diegoar" wrote in message
news:

kl, llego?