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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida