Para Herandez, Roberto Cuadro de dialogo

17/10/2005 - 18:35 por Jesus Peralta | Informe spam
FiestaHola Amigo, sabes probe tu codigo, pero envia un error de copilacion

End If sinbloque If

inserte las lineas bien, pero sale ese error, y aparte no deja cerrar la
hoja ni excel, podrias apoyarme con su macro si algo esta mal o hago algo
mal ah y si borro End if, no me deja cerrarlo, y si no lo borro me envia el
error y pone en amarrillo
Private Sub Workbook_BeforeClose(Cancel As Boolean)
saludos..

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Sheets("Hoja1").Range("A1") = "" Then
MsgBox "No puede salir del sistema aún..." & Chr(13) & "Debe llenar el
campo Nombre de Usuario.", vbCritical, "Administrador"
Cancel = True
End If

End Sub

Preguntas similare

Leer las respuestas

#1 Jesus Peralta
17/10/2005 - 18:53 | Informe spam
Hola Roberto , efectivamente si cuido los saltos de linea

Y mil disculpas, no lo hice en esta ocacion,.jajajaja se me fue. MUCHAS
GRACIAS.

SALUDOS
Respuesta Responder a este mensaje
#2 Hernandez, Roberto
17/10/2005 - 20:40 | Informe spam
Ok
Debes checar que la sintaxis del texto sea correcta. A veces cuando copias y
pegas desde el mensaje, se pega mal
No debe haber ningun texto en rojo...
Las siguientes dos líneas deben estar en una sola...

MsgBox "No puede salir del sistema aún..." & Chr(13) & "Debe llenar el
campo Nombre de Usuario.", vbCritical, "Administrador"

Para detener la ejecución, presiona el botón Detener [un pequeño cuadro azul
que está en la barra de herramientas]

"Jesus Peralta" escribió en el mensaje
news:
FiestaHola Amigo, sabes probe tu codigo, pero envia un error de copilacion

End If sinbloque If

inserte las lineas bien, pero sale ese error, y aparte no deja cerrar la
hoja ni excel, podrias apoyarme con su macro si algo esta mal o hago algo
mal ah y si borro End if, no me deja cerrarlo, y si no lo borro me envia
el
error y pone en amarrillo
Private Sub Workbook_BeforeClose(Cancel As Boolean)
saludos..

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Sheets("Hoja1").Range("A1") = "" Then
MsgBox "No puede salir del sistema aún..." & Chr(13) & "Debe llenar el
campo Nombre de Usuario.", vbCritical, "Administrador"
Cancel = True
End If

End Sub


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida