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

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Error en código Visual-Excel

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida