• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Excel 2010 a makra

Zaslal/a olda3 15.7.2012 20:00

Mám problém při práci se souborem vytvořený v Excelu 2003, který obsahuje makra. Ve staré verzi je makro normálně funkční, pokud pracuji ve verzi 2010 po spuštění mi píše hlášku, - následující funkce nelze uložit v sešitech bez maker - . Co dělám špatně, že mi makro v této verzi nefunguje. Excel 2010 mám nově nainstalovaný, bez jakýchkoliv úprav zabezpečení.

Jméno
Kontrola
Text
	Ukázka

---

Stalker(15.7.2012 20:28)#009017

Musíš sešit ukládat s koncovkou xlsm místo xlsx, nebo použít koncovku pro starší verze xls.citovat

olda3(15.7.2012 20:39)#009018

To bych rád udělal, ale po té hlášce co jsem uváděl už to makro dál nepracuje. To makro právě vytváří nové soubory, provádí výpočet a ukládá. Takže pokud ho nějak nepřepíšu a nevím jak, tak je nefunkční.Pravděpodobně bych do něj musel zakomponovat nějaký příkaz. Už jsem z toho na prášky. Asi se budu muset vrátit ke staré verzi.citovat

marjankaj(15.7.2012 21:06)#009019

V excel 2010 si otvor ten súbor.xls. Potom ho ulož ako typ súboru excel 2010 so zapnutými makrami.
A môžeš pracovať. Samozrejme musíš mať povolené makrá.citovat

Stalker(15.7.2012 21:06)#009020

Tak sem vlož kód, je tu spousta odborníků kteří Ti poradí.citovat

olda3(15.7.2012 22:07)#009021

Kód přikládám, jestli to bude něco platné.

Příloha: 9021_microsoft-visual-basic-for-applications.zip (44kB, staženo 23x)

citovat

marjankaj(16.7.2012 10:23)#009026

Máš pravdu. Toto je k ničomu.
A ten súbor v exceli nemôžeš priložiť?citovat

Stalker(16.7.2012 17:57)#009030

Když sem psal, aby si vložil kód. Měl sem na mysli kód, kde se Ti makro zastaví (zůstane viset na té hlášce).
V tomto případě by bylo vhodné vložit celý sešit, jak poznamenal kolega výše.
Zkusím takový výstřel do tmy. Toto je část Tvého kódu:

Sub Ulozit_doklad()
'Doklad
Dim List_jmeno As String
List_jmeno = "Doklad"
Dim File_full_name As String
Dim File_name As String
Dim File_path As String
File_full_name = Plne_jmeno_souboru
File_name = Jmeno_souboru
File_path = Cesta_souboru
'
On Error GoTo Err_line
Sheets(List_jmeno).Select
Sheets(List_jmeno).Copy ' Copy Move
'ChDir "C:\Documents and Settings\Petr\Plocha"
ActiveWorkbook.SaveAs Filename:=File_full_name
'Sheets("List1").Select
'Sheets("List1").Name = "novy"
Info = "Zavírám uložený soubor" & vbCrLf & _
Chr(34) & File_name & Chr(34) & vbCrLf & vbCrLf & _
"Soubor byl uložen na adrese:" & vbCrLf & _
Chr(34) & File_path & Chr(34)
If frm_Navigace.chb_Info_Save_as = True Then
MsgBox Info, vbOKOnly + vbInformation, "Uložit soubor ..."
End If
ActiveWorkbook.Close
Exit Sub
Err_line:
Msg = "Chystáte se manipulovat listem " & vbCrLf & _
Chr(34) & List_jmeno & Chr(34) & vbCrLf & _
"tento list nebyl nalezen !!!"
If Err.Number = 9 Then
MsgBox Msg, vbOKOnly + vbCritical, "Uložit soubor ..."
End If
Msg2 = "Neplatný název souboru !!!" & vbCrLf & "(Délka názvu souboru nebo cesty je " & _
Len(File_full_name) & " znaku)" & vbCrLf & _
Chr(34) & File_full_name & Chr(34) & vbCrLf & vbCrLf & _
Err.Description
If Err.Number = 1004 Then
MsgBox Msg2, vbOKOnly + vbCritical, "Uložit soubor ..."
End If
Err.Clear
End Sub

Tučně vyznačenou část nahraď tímto:
ActiveWorkbook.SaveAs Filename:=File_full_name, FileFormat:=xlNormal
citovat

olda3(16.7.2012 23:09)#009031

Částečně problem vyřešen. Makro doběhne, ale ....... neprovede výpočet a nezaktualizuje číselnou řadu.

Příloha: 9031_fa_xx.zip (51kB, staženo 21x)

citovat

Stalker(17.7.2012 21:00)#009033

"Makro doběhne, ale ....... neprovede výpočet"
A v excelu 2003 Ti to funguje?
Protože jestli sem to pochopil správně, výpočet probíhá na listu "Vystup", kde se nacházejí vzorce.
Jako viníky bych viděl vzorce v buňkách C37 a C38. Konkrétně nějakou pitomost v kritériu např
=SUMIF($G$14:$G$34;"=0,09";$I$14:$I$34)
když podivné kritérium nahradím adresou buňky A37
=SUMIF($G$14:$G$34;A37;$I$14:$I$34)
dojde k výpočtu ceny.citovat

olda3(17.7.2012 22:12)#009035

Moc děkuji za trpělivost. Ten vzorec na DPH byla hloupost, ale problém výpočtu a ukládání řady dokladů nevyřešila.Už se v tom ztrácím.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse