Para KL

Hola KL,

El textbox se encuentra en un UserForm, probe los cambios y me da un error
2147024809 que dice No se encontro el elemento con el nombre especifico y
luego me da un error que dice subindice fuera del intervalo

gracias

"KL" escribió:

Hola DOORS,

Si el textbox "txtclave" se encuentra en la hoja "Clave" prueba lo
siguiente:

Private Sub CommandButton1_Click()
With ThisWorkbook.Sheets("Clave").Shapes("txtclave")
If Parent.Range("A1") <> .Text Then
MsgBox _
"Solo personal de An?lisis Administrativo puede agregar
empleados", _
vbInformation
.Text = ""
.SetFocus
Else
ThisWorkbook.Sheets("HojaConNombresYCodigos").Activate
Unload Me
End If
Wnd With
End Sub


Saludos,
KL


"DOORS" <DOORS@discussions.microsoft.com> wrote in message
news:6C887F9B-09BE-4A7C-9879-4315338E36AD@microsoft.com...
> Saludos amigos, le expongo mi caso, tengo tiempo de estar con este
> problema,
> tengo un archivo en excel con una macro en un boton, el cual cuando se
> digita
> la clave correcta este le lleva a otra pagina del mismo libro, pero cuando
> monto el archivo en una intranet me da error 94 y error 1004, basicamente
> son
> errores de variable de objeto no establecida, pero ya no se que hacer, les
> adjunto el codigo del boton para ver si alguien me puede AYUDAR!!!!
>
> Gracias y a Todos y A Hector Miguel !!
> Private Sub CommandButton1_Click()
>
> If sheets("Clave").Range("A1") <> txtclave.Text Then
> MsgBox "Solo personal de Analisis Administrativo puede agregar empleados",
> vbInformation
> txtclave.Text = ""
> txtclave.SetFocus
> Else
> sheets("HojaConNombresYCodigos").Activate
> Unload Me
> End If
> End Sub
>
>