Excel - kopírování listu

[lami26]

Dobrý den - potřebuji prosím radu jak mohu odeslat napr mailem - jeden list ze sešitu - kopírováním z listu na list se mi zobrazí nabídka abych mohla zachovat šířky sloupců a pod - ovšem při kopírování listu do nového sešitu se tak něděje.
Děkuji za rady.

[Reklama]

[Branscombe]

Možná hloupý nápad, ale první co mě napadlo je "uložit soubor jako" pod jiný název a smazat ostatní listy které nechci odeslat. Budu mít požadovaný soubor k odeslání a původní mi zůstane nezměněn ...

[mike007]

Co takhle:
Do sešitu si vlož makro... To se postará o kopii záložky a její odeslání na požadovaný email ...
Návod jak vložit makro do VBA - http://www.bastleni.eu/vba/71-vlozit-makro

Kód: Vybrat vše

Sub odeslat_zalozku()
mail = InputBox("Zadej email", "Email", "@")
ThisWorkbook.Sheets("zalozka").Copy
With ActiveWorkbook
.SendMail Recipients:=mail, _
Subject:="Název " & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End Sub

zalozka = tady si nastav název záložky, kterou chceš odeslat mailem
Subject:=.... = zde si uprav předmět emailu.