Error en código Visual-Excel

20/06/2005 - 15:37 por DOORS | Informe spam
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 Análisis Administrativo puede agregar empleados",
vbInformation
txtclave.Text = ""
txtclave.SetFocus
Else
sheets("HojaConNombresYCodigos").Activate
Unload Me
End If
End Sub
 

Leer las respuestas

#1 KL
20/06/2005 - 16:31 | Informe spam
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" wrote in message
news:
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


Preguntas similares