Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailem Makro v excel 2003

Dobrý den,
chci se zeptat na makra v excel 2003.
Mám tam udělaný takový menší formulář a v tom tři tlačítka: uložit (uloží aktuální list pod jménem co mám v buňce C17), vytisknout (vytiskne aktuální list) a přepnutí na jiný list(Po stisku mi to skočí na list Faktura).
Prošel jsem si několik návodů jak tyto tlačítka makrem zajistit aby to fungovalo, ale ani ten tisk mi nefunguje.
Prosím o radu nebo nějaký návod jak tyto makra vytvořit v excel 2003.

Předem díky.

Předmět Autor Datum
Makra v Excelu 2003 se tvoří úplně stejně, jako v jiných verzích. Jaký máš konkrétně problém? Mimoch… nový
MachR55 29.04.2015 10:09
MachR55
Podle tědlech návodů jsem to dělal a stejně nefunguje. Prostě makro vytovřím a přiřadím k tlačítku a… nový
Dav1d 29.04.2015 10:20
Dav1d
Tak prostě něco děláš blbě, tohle musí fungovat. Na monitor Ti nikdo nevidí, věšteckou kouli nám v o… nový
MachR55 29.04.2015 10:31
MachR55
No sešit tajný je, ale už se mi povedlo rozhýbat tisk, tak jsem asi na dobré cestě a snad i rozhýbu… nový
Dav1d 29.04.2015 10:33
Dav1d
Tak už mi vše funguje. Jen mám problém při ukládání. Používám toto makro: Private Sub CommandButton… nový
Dav1d 29.04.2015 10:54
Dav1d
A s jakým jménem se to teda uloží? Když si to makro debuguješ, co máš uloženo v proměnné jmeno? Ta "… nový
MachR55 29.04.2015 11:13
MachR55
Uložilo se mi to jako: 377EE000 a nedalo se to do tý složky C:/excel, ale nabídlo mi to kam sám chci… nový
Dav1d 29.04.2015 11:57
Dav1d
Tak to je jasný, měl jsi aktivní jiný list a proměnná jmeno byla prázdná - to jsi ale mohl poznat už… nový
MachR55 29.04.2015 12:19
MachR55
Tak makra mi již fungují, ale mám jiný problém. Poslal jsem si vytvořený excel soubor z práce domů,… nový
Dav1d 29.04.2015 18:09
Dav1d
Vyzkoušej viz index.php nový
Siki83 29.04.2015 18:30
Siki83
Znovu otevírám toto téma. Mám nový problém. Přidal jsem tlačítko odeslat emailem. Ošetřil jsem toto… nový
Dav1d 04.05.2015 10:55
Dav1d
Prostuduj si TOHLE poslední
Siki83 04.05.2015 15:21
Siki83

Tak prostě něco děláš blbě, tohle musí fungovat.
Na monitor Ti nikdo nevidí, věšteckou kouli nám v opravě, z kávové sedliny se mi věštit nechce - takže pokud budeš chtít konkrétní radu, budeš muset ty makra sem napsat nebo uložit celý sešit (pokud není tajný).

Tak už mi vše funguje.
Jen mám problém při ukládání.
Používám toto makro:

Private Sub CommandButton3_Click()
jmeno = Range("C17")
ActiveWorkbook.SaveAs Filename:="C:\Excel\" & jmeno

MsgBox "Dokument uložen pod názvem " & jmeno

End Sub

A když se mi to uloží tak se mi resetuje celý excel, že se vyskytla nějaká chyba.
Nevíte co na tom je špatně že ta chyba pokaždé vyběhne? A neukládá se mi to pod tím názvem co mám v buňce C17.

A s jakým jménem se to teda uloží?
Když si to makro debuguješ, co máš uloženo v proměnné jmeno?
Ta "nějaká chyba" je přesně jaká (na Tvůj monitor je odsud fakt blbě vidět)?
Pokud je to jen obecná hláška o pádu, najdeš podrobnosti v Prohlížeči událostí.

Tip - asi máš v tu chvíli aktivní jiný list a proměnná jmeno se vůbec nenaplní, takže zkus řádek

jmeno = Range("C17")

doplnit takto:

jmeno = Sheets("List1").Range("C17")

Místo List1 dáš odpovídající název listu, v němž je buňka C17 se jménem souboru.

Pokud to nezabere, debuguj si makro a zkontroluj si obsah proměnné jmeno a taky se mrkni na popis té chyby.

Uložilo se mi to jako: 377EE000 a nedalo se to do tý složky C:/excel, ale nabídlo mi to kam sám chci.
Ta nějaká chyba je, že spadne celý excel a vyskočí okno jestli chybu chci odeslat nebo neodesílat (taková ta klasická chyba když program neodpovídá a pak sám spadne).
Ale stačilo opravit řádek ten jak jsi tady napsal a vše už funguje. I název i uložení bez jakékoliv chyby.
Jen ještě jedna otázka: Když jsem tu složku neměl vytvořenou tak to nechtělo uložit. Lze to nějak ošetřit kdyby ta složka neexistovala aby tu složku to vytvořilo a uložilo to do ní?

Tak to je jasný, měl jsi aktivní jiný list a proměnná jmeno byla prázdná - to jsi ale mohl poznat už při výpisu

MsgBox "Dokument uložen pod názvem " & jmeno

Samozřejmě, že lze testovat existence složky a případně ji vytvořit:
Existuje soubor adresář (složka) - Excel VBA
Vytvořit smazat adresář - Excel VBA

P.S.: Co kdyby jsi projevil trochu iniciativy a našel si to sám?

P.P.S.: Stále platí, že při obecných chybách najdeš detailní popis jejich příčin v Prohlížeči událostí.

Tak makra mi již fungují, ale mám jiný problém.
Poslal jsem si vytvořený excel soubor z práce domů, kde používám excel 2007 a netuším proč, ale ani jedno tlačítko mi nefunguje. Nebo spíše mi nejde ani na jedno tlačítko kliknout ani vybrat ho abych ho mohl třeba vymazat. Nesetkal se s tím už někdo?

Znovu otevírám toto téma.
Mám nový problém.
Přidal jsem tlačítko odeslat emailem. Ošetřil jsem toto tlačítko makrem:

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

End Sub

Poté když na tlačítko klepnu, tak mi vyběhne tabulka kde zadám email a po potvrzení emailu se mi ukáže chyba:

Run-time error '1004'
Method 'SendMail' of object '_Workbook' failed.

Otevře se mi nové okno jen s tím aktuálním listem, ale na email se nic neodešle.
Prosím o nějaký napád co s tím?

Zpět do poradny Odpovědět na původní otázku Nahoru