< návrat zpět

MS Excel


Téma: Excel 2010 a makra rss

Zaslal/a icon 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 captcha
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

icon#009017
avatar
Musíš sešit ukládat s koncovkou xlsm místo xlsx, nebo použít koncovku pro starší verze xls.citovat
icon#009018
avatar
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
icon#009019
avatar
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
icon#009020
avatar
Tak sem vlož kód, je tu spousta odborníků kteří Ti poradí.citovat
icon#009021
avatar
Kód přikládám, jestli to bude něco platné.citovat
Příloha: file9021_microsoft-visual-basic-for-applications.zip
icon#009026
avatar
Máš pravdu. Toto je k ničomu.
A ten súbor v exceli nemôžeš priložiť?citovat
icon#009030
avatar
4 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
icon#009031
avatar
Částečně problem vyřešen. Makro doběhne, ale ....... neprovede výpočet a nezaktualizuje číselnou řadu.citovat
Příloha: file9031_fa_xx.zip
icon#009033
avatar
"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
icon#009035
avatar
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)
avatar\n

Menu

On-line nástroje

Novinky

Formulář Faktura III

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

Aktivní diskuse

Kopírování buněk A9:F108 ze souboru do souboru

AL • 22.11. 2:44

zaklikávací filtr

AL • 22.11. 1:18

VBA adresář a uložení

kp57 • 21.11. 18:38

VBA adresář a uložení

€Ł мσşqμΐτσ • 21.11. 17:09

VBA adresář a uložení

Risty • 21.11. 16:22

zaklikávací filtr

monsterm • 21.11. 15:37

VBA Excel - priečinok, súbory a ich údaje

Palooo • 21.11. 15:22