MS Excel

Téma: Pomoc s kódem

Zaslal/a Johan-Kraczmar 22.4.2016 10:43

Dobrý den,
potřeboval bych úpravit kód aby mi fungoval.

Po stisknutí tlačítka odeslat se aktivní list zkopíruje za něj podle jména zadaného v kódu, vymažou se rozbalovací seznamy a tlačítko odeslat a tento nový list se odešle jako příloha. Odesílání mi funguje, jen to přejmenování a vymazání tlačítka a seznamu nee....

Sub ExcelDialogSendMail()

With ThisWorkbook 'Pro tento sešit
.Worksheets("Master list").Copy after:=.Worksheets("Master list") 'Kopíruj list Protokol
With .Worksheets("Master list")
N = .Range("G4") & "" & .Range("C6") 'Název pro nový list
End With
With .Worksheets(.Worksheets("Master list").Index + 1) 'Pro novou kopii
.Name = N 'Nastav název
.Buttons("tlačítko 1").Delete 'vymaž zkopírované tlačítko
.Range("A1:A30").Validation.Delete 'vymaže seznamy
End With

'aktivní sešit jako príloha

Dim aKomu()

aKomu = Array("nekdo@nekde.cz", "info@firma.org")

'simulované potvrzení dialogu (Odeslat, ALT+A)
'Microsoft Outlook 2010 CZ
'neprobehne
'SendKeys "%a"

'predvyplnení a zobrazení okna se zprávou
Application.Dialogs(xlDialogSendMail).Show aKomu, "Výpis listu"

End With
End Sub

Díky moc předem za pomoc

Zaslat odpověď >

elninoslov(22.4.2016 12:19)#031205

Premenujte si tlačítko napr takto:
Domov - Nájsť a vybrať - Tabla výberu - 2 krát klik (nie dvojklik) na názov tlačítka, a premenujte ho, Enter. Tento názov potom dajte aj do makra.
Malo by Vám to fungovať.

Příloha: zip

31205_vymaz.zip (17kB, staženo 34x)

citovat

Johan-Kraczmar(22.4.2016 13:07)#031207

Díky moc, funguje to jak má, jen v tom zkopírovaném listu jsou I vzorečky. Jdou nějak odstranit take VBA skriptem, nebo musím použít jiný způsob kopírování listu?citovat

elninoslov(22.4.2016 13:15)#031208

Tak ich preveďte na hodnoty napr.
.Range("nejaká oblasť").Value = .Range("nejaká oblasť").Valuecitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio