Mail de selectie met VBA in Microsoft Excel

• Maak een nieuwe werkmap met de Selectie.
• Sla de werkmap op voordat u deze verzendt.
• Verwijder het bestand van uw harde schijf nadat het is verzonden.

Het zal verborgen rijen en kolommen in de selectie zichtbaar maken
Alle lege cellen buiten de selectie zijn verborgen (zie screenshot)
Zo staat de selectie altijd bovenaan je blad

Sub Mail_Selection() Dim strDate As String Dim Addr As String Dim rng As Range If ActiveWindow.SelectedSheets.Count > 1 Of Selection.Areas.Count > 1 Sluit vervolgens 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 = Selection 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)(xlVisibles) .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-yy") & " " & Format(Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendM ail "[email protected]", _ "Dit is de onderwerpregel" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub