MS Excel

Téma: Tvorba makra (VBA)

Zaslal/a Testament 30.9.2014 17:36

Zdravím.

Potřeboval bych, aby mi excel (2007) automaticky měnil čísla faktur a každou fakturu potom uložil zvlášť pod názvem+číslo faktury a aby po uložení smazal obsah určitých buňek.

Když jsem to zkusil vytvořit, tak jedinné co fungovalo byla změna čísla faktury.

Sub NextInvoice()
Range(“H5”).Value = Range(“H5”).Value + 1
Range(“B18:F28”).ClearContents
End Sub

Sub SaveInvWithNewName()
Dim NewFN As Variant
‘ Copy Invoice to a new workbook
ActiveSheet.Copy
NewFN = “D: ” Faktura & Range(“H5”).Value & “.xlsx”
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NextInvoice
End Sub

Ale při pokusu o sprovoznění mi vyskočí tak akorát syntax error.
Dokázal by mi s tím někdo poradit? Zkusl jsem už několik návodů co jsem našel na googlu, ale ani jeden mi nefungoval.

Zaslat odpověď >

Strana: « předchozí 1 2

marjankaj(4.10.2014 16:47)citovat#021792

kp57 napsal/a:

Pokud nepomůže přejmenování, tak potom už neumím poradit. Mně to fachčí i s původním automat jménem i s mnou přiřazeným jménem. Taky se můžou ty prc. odstranit a řešit to jinak.

No umňa sa ten tvar nevolá "Rectangle 1" ale "Obdélník 1". Záleží od verzie excelu.

kp57(4.10.2014 16:50)citovat#021793

Právě proto jsem přidal kód na zjištění jména a případně přejmenování. Ten rozdíl u různých verzí jsem si ani neuvědomil. Dobrá poznámka.

Strana: « předchozí 1 2

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

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.