moreyo

calvuch respondió: Prueba utilizando el evento Workbook_BeforeSave del objeto ThisWorkbook Quedaría así: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) MsgBox ("Fichero guardado correctamente") End Sub

calvuch respondió: En un modulo pon esto Sub Hojanueva() ' Hojanueva Macro Dim Nombre As String Nombre = Format(Now(), "dd-mm-yyyy") On Error GoTo err Sheets(Nombre).Select If ActiveSheet.Name = Nombre Then Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name =...

calvuch respondió: Este macro hace lo que quieres Sub Hoja_automatica() Dim f As String f = Date On Error Resume Next Worksheets(f).Select Select Case err.Number Case Is = 9 Sheets.Add after:=Worksheets(Worksheets.Count) Worksheets.Item(Worksheets.Count).Name = Date...