Excel - Cuelgue de EXCEL 2007

   
Vista:

Cuelgue de EXCEL 2007

Publicado por J.C.C. (1 intervención) el 22/12/2008 21:11:46
Esta macro elimina una hoja de cáculo consistente en un Gráfico. Elimina la hoja y luego se cuelga Excel. (No siempre).
¿Sabe alguien cual o cuales de las instrucciones no es/son válida/s?

On Error GoTo error
For X = 1 To 200
Sheets("Hoja1").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Hoja1").Select
error:
If Err.Number > 0 Then
Sheets("Gráficos").Select

GoTo fin
Else
MsgBox "Para salir deberá eliminar", vbOKOnly, "Gastos familiares"
End If
Next
fin:
Sheets("Gráficos").Select
Application.ScreenUpdating = False
ActiveSheet.Unprotect

Range("a1").Select

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cuelgue de EXCEL 2007

Publicado por Abraham Valencia (2418 intervenciones) el 26/12/2008 19:04:49
Pues, con la mayor sinceridad del mundo te digo que realmente es urgente que empiezes a leer sobre VBA, ya que tu codigo es incongruente e ilogico en varias de sus lineas :(

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar