Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Evitar Cerrar Excel

06/06/2007 - 11:47 por IRC | Informe spam
Ayuda Hacer una pregunta
Tengo una hoja de Excel donde varios usarios necesitan cargar datos, tengo
ciertos validadores para evitar que se equivoquen pero necesito una macro que
cuando determina que hay un error no permita que se cierre el excel...

intente con auto_close pero lo cierra de todas formas...


Sub auto_close()

For i = 11 To 1000

'Busca el error
If Worksheets("Line").Cells(i, 42).Value = "XYX" Then

'Selecciona la fila del error
Worksheets("Line").Rows(i).Select

Exit For
Exit Sub
End If
Next i

End Sub

'Que me falta para que al encontrar el error evite que se cierre

Gracias,
Maya
email Siga el debateRespuesta 1 respuestaRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
06/06/2007 - 20:02 | Informe spam
hola, 'anonimo/a' !

prueba con algo +/- como lo siguiente: -> en el modulo de codigo del libro [ThisWorkbook]

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Hay_Error As Boolean
With Worksheets("line")
Hay_Error = Application.CountIf(.Range("ap11:ap1000"), "XYZ")
If Hay_Error Then
Cancel = True
.Select
.Range("ap11:ap1000").Find("XYZ").Select
MsgBox "Favor de corregir este error !!!"
End If
End With
End Sub

__ la consulta original __
Tengo una hoja... donde varios usarios necesitan cargar datos
tengo ciertos validadores para evitar que se equivoquen pero necesito una macro que
cuando determina que hay un error no permita que se cierre el excel...
intente con auto_close pero lo cierra de todas formas...
Sub auto_close()
For i = 11 To 1000
'Busca el error
If Worksheets("Line").Cells(i, 42).Value = "XYX" Then
'Selecciona la fila del error
Worksheets("Line").Rows(i).Select
Exit For
Exit Sub
End If
Next i
End Sub
'Que me falta para que al encontrar el error evite que se cierre

Preguntas similares

 

Busqueda sugerida :