- Seçim ile yeni bir çalışma kitabı oluşturun.
- Çalışma kitabını postalamadan önce kaydedin.
- Dosyayı gönderildikten sonra sabit diskinizden silin.
Seçimdeki gizli satırları ve sütunları gösterecek
Seçimin dışındaki tüm boş hücreler gizlenir (ekran görüntüsüne bakın)
Bu şekilde seçim her zaman sayfanızın en üstünde olur
Sub Mail_Selection() Dim strDate As String Dim Addr As String Dim rng As Range If ActiveWindow.SelectedSheets.Count > 1 Veya Selection.Areas.Count > 1 Sonra Sub Application'dan Çıkın.ScreenUpdating = False Addr = Selection.Address ActiveSheet.Copy ActiveSheet. Pictures.Delete with Cells .EntireColumn.Hidden = False .EntireRow.Hidden = Range (Addr) ile False End. Set rng'yi seçin = Selection Application.GoTo rng, True With rng.EntireColumn .Gidden = True rng(1).EntireRow. SpecialCells(xlVisible).EntireColumn.Clear rng(1).EntireRow.SpecialCells(xlVisible).EntireColumn.Hidden = True .Hidden = rng.EntireRow ile Yanlış Son .Hidden = True rng(1).EntireColumn.SpecialVisibles(xlVisible) .EntireRow.Clear rng(1).EntireColumn.SpecialCells(xlVisible).EntireRow.Hidden = True .Hidden = Application With False End.GoTo rng, True rng.Cells(1).Select strDate = Format(Date, "dd- aa-yy") & " " & Format(Saat, "s-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendM ail "[email protected]", _ "Bu Konu satırı" ActiveWorkbook.ChangeFileAccess xlReadOnly ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True End Sub'ı öldür