< návrat zpět

MS Excel


Téma: Tvorba makra (VBA) rss

Zaslal/a 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
#021792
avatar

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.citovat
#021793
avatar
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.citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09