Sommario
- Crea una nuova cartella di lavoro con Selection.
- Salva la cartella di lavoro prima di spedirla.
- Eliminare il file dal disco rigido dopo che è stato inviato.
Mostrerà righe e colonne nascoste nella selezione
Tutte le celle vuote al di fuori della selezione sono nascoste (vedi screenshot)
In questo modo la selezione è sempre in cima al tuo foglio
Sub Mail_Selection() Dim strDate As String Dim Addr As String Dim rng As Range If ActiveWindow.SelectedSheets.Count > 1 O Selection.Areas.Count > 1 Quindi esci da Sub Application.ScreenUpdating = False Addr = Selection.Address ActiveSheet.Copy ActiveSheet. Pictures.Delete With Cells .EntireColumn.Hidden = False .EntireRow.Hidden = False End With Range(Addr).Select Set rng = Selezione Application.GoTo rng, True With rng.EntireColumn .Hidden = True rng(1).EntireRow. SpecialCells(xlVisible).EntireColumn.Clear rng(1).EntireRow.SpecialCells(xlVisible).EntireColumn.Hidden = True .Hidden = False End With With rng.EntireRow .Hidden = True rng(1).EntireColumn.SpecialCells(xlVisible) .EntireRow.Clear rng(1).EntireColumn.SpecialCells(xlVisible).EntireRow.Hidden = True .Hidden = False End With Application.GoTo rng, True rng.Cells(1).Select strDate = Format(Date, "dd- mm-aa") & " " & Formato(Ora, "h-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendM ail "[email protected]", _ "Questa è la riga dell'oggetto" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub
