Borrado de datos

emiaj61

New Member
tengo el siguiente codigo que trabaja bien, efectua el borrado del rango en la fecha indicada.Pero al cerrar el archivo pide confirmar si se desea guardar los cambios.
Hay manera de guardar los cambios en automatico ( el Borrado del rango ) con codigo vb, tal que el programa no solicite confirmacion.

Code:
Sub Auto_Open()
  Dim deadline As Date
  deadline = "05/31/07"
  If Date > deadline Then
    With Activesheet.Range("Mi Rango")
    .Clear
    End With
  End If
End Sub
 

galileogali

Well-known Member
En el módulo Thisworkbook, podrias poner esto:

Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = False
Application.DisplayAlerts = False
ThisWorkbook.Save

Application.DisplayAlerts = True

End Sub

GALILEOGALI
 

Greg Truby

MrExcel MVP
Bueno, a mí, no me gusta poner un SAVE automático en el _BeforeClose() por lo que llamo el "factor oops". Si el usuario hace un cambio grande y malo que no quiere guardar, esto le quita la opción de cerrar el cuaderno sin daño. Mejor poner el SAVE en el lugar despuesito del cambio que desea guardar:
Code:
'//Sub Auto_Open() 
'// cambie del viejo (auto_open) al nuevo (workbook_open)
Private Sub Workbook_Open()
      Dim deadline As Date 
      deadline = "05/31/07" 
      If Date > deadline Then
     '// si hay más de una hoja esto es débil.  
     '// sería mejor usar el nombre o el codename de la hoja 
     '// si es un rango nombrado entonces lo más probable
     '// es que pertenece al cuaderno y no la hoja entonces 
     '// nombrar la hoja sobra.
      Activesheet.Range("Mi Rango") .Clear 
    End If 
    me.save
End Sub
<hr />
Saludos, Gali.
 

galileogali

Well-known Member
Greg:
Comparto plenamente tu objeción: pero "en la mesa 6 pidieron Conejo al chocolate arriba de una pizza... yo traté de cumplir con lo solicitado" (jejejejeje)

GALI
 

Some videos you may like

This Week's Hot Topics

  • Importing multiple excel files into one spreadsheet
    Hi, I'm trying to import multiple excel files (with the same format into a single spreadsheet) so that each day's file is listed underneath the...
  • find many based on a certain criteria
    good evening, I hope someone can help me? I have a workbook sheet 2 contains lots of data.... I would like to be able to find anything on sheet...
  • How to copy multiple rows using If
    Hi all, I'm very new to VBA and have written this simple code to copy certain cells if a certain cell within that row contains any data. I need...
  • VBA If statement
    Dear All, I have two dates, where I'd like a message box to pop, if the dates are between this criteria. [CODE] sDate1 = #10/1/2019#...
  • Text Format
    I have a sheet for user to keyin the data. The format of the data can be 451 / 1903, 0012 / 9908 or 00287 / 0099. The number after the "/" is...
  • Macro to copy values across rows and transposing them and add the user id
    [FONT=Times New Roman][SIZE=3][COLOR=#000000][/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]Hi,[/COLOR][/SIZE][/FONT] [FONT=Times New...
Top