Envíe la selección usando VBA en Microsoft Excel

• Cree un nuevo libro de trabajo con la selección.
• Guarde el libro antes de enviarlo por correo.
• Elimine el archivo de su disco duro después de enviarlo.

Mostrará filas y columnas ocultas en la selección.
Todas las celdas vacías fuera de la selección están ocultas (ver captura de pantalla)
De esta manera, la selección siempre está en la parte superior de su hoja.

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 Luego salga de Sub Application.ScreenUpdating = False Addr = Selection.Address ActiveSheet.Copy ActiveSheet. Imágenes.Eliminar con celdas .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 Finalizar con rng.EntireRow .Hidden = True rng (1) .EntireVellColumn.Special .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 (Hora," h-mm-ss ") ActiveWorkbook.SaveAs" Parte de "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendM ail "[email protected]", _ "Esta es la línea de asunto" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub