Como eleminar Hojas

03/02/2004 - 22:20 por mendezbj | Informe spam
Amigos tengo este problema, cuando seleciono una hoja y le doy eliminar me
sale la ventana de advertencia que dice

Pueden existir datos en las hojas selecionadas para eliminar, para
eleminar definitivamente los datos, presione eliminar. y tiene 2 botones
Elinimar Cancelar

presiono eliminar y borra la hoja como puedo evitar que salga esa ventana,
estoy utilizando el sig codigo, saludos y gracias de antemano.



Sub BORRAR()
Sheets("BASE").Visible = True
Sheets("COTIZACION").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("BASE").Select
ActiveWindow.SelectedSheets.Delete

End Sub







Mensaje enviado desde http://grupos.buscadoc.org

 

Leer las respuestas

#1 Daniel Chang [MSFT]
04/02/2004 - 03:41 | Informe spam
Hola,

Para evitar que la ventana de advertencia necesitas incluir el siguiente
codigo antes de borrar la hoja:
Application.DisplayAlerts = false

Luego, te recomiendo que reactives las ventanas de advertencia con el
siguiente codigo:
Application.DisplayAlerts = true

Tu subrutina cambiaria de la siguiente manera:

Sub BORRAR()
Sheets("BASE").Visible = True
Sheets("COTIZACION").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("BASE").Select

Application.DisplayAlerts = false 'desactivar ventanas de advertencia

ActiveWindow.SelectedSheets.Delete

Application.DisplayAlerts = true 'reactivar ventanas de advertencia
End Sub


Saludos,

Daniel
Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no
otorga ningún derecho.


" mendezbj " wrote in message
news:
Amigos tengo este problema, cuando seleciono una hoja y le doy eliminar me
sale la ventana de advertencia que dice

Pueden existir datos en las hojas selecionadas para eliminar, para
eleminar definitivamente los datos, presione eliminar. y tiene 2 botones
Elinimar Cancelar

presiono eliminar y borra la hoja como puedo evitar que salga esa ventana,
estoy utilizando el sig codigo, saludos y gracias de antemano.



Sub BORRAR()
Sheets("BASE").Visible = True
Sheets("COTIZACION").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("BASE").Select
ActiveWindow.SelectedSheets.Delete

End Sub







Mensaje enviado desde http://grupos.buscadoc.org

Preguntas similares