< návrat zpět

MS Excel


Téma: uprava evidence faktur rss

Zaslal/a 25.1.2010 16:24

V příloze zasílám sešit, který by měl sloužit jako daňová evidence
vydávání faktur, uchovávání faktur,....
dle zdejší pomoci s emi to podařilo už skoro upravit tak jak bych si představoval.
Ke konečné podobě (prozatím) bych potřeboval aby pro každou novou fakturu (po zmáčknutí tlačítka přidej fakturu) bylo zároveň na listu ,,seznam,, vyplněno několik hodnot z nově přidané faktury, jedná se o název firmy odběratele, datum splatnosti a datum vystavení

Další vylepšení budou snad následovat po vyzvednutí manuálů z knihovny 7

Děkuji mockrát za pomoc

Příloha: zip1129_praclovicek.zip (42kB, staženo 116x)
Zaslat odpověď >

#001156
Jeza.m
Ahoj,

momentálně to vypadá tak, že při kliknutí na to tlačítko vytvoříš kopii vzorové faktury, to znamená, že pokud bys chtěl do seznamu zapsat data, tak bys je musel mít vyplněné už na tom vzoru, jinak nevím kde bys tam ty data vzal.
dim radek as single
radek = 4' první řádek v seznamu
do while cells(radek,2) <> ""
radek = radek + 1
loop

tento kód najde první prázdnou pozici v seznamu na kterou pak zapíšeš požadované údaje
list4.cells(radek,2) = list1.cells(10,6)' zápis odběratele
list4.cells(radek,3) = date' zápis data vystavení (aktuální)
list4.cells(radek,4) = list1.cells(19,5)' zápis data splatnosti


Jinak pro vytváření nové faktury bych nepoužíval Sheets(Sheets.Count - 1).Name = "faktura_00" & Sheets.Count - 4
takle když dojdeš na 10, tak budeš mít faktura_0010, ale předpokládám, že chceš faktura_010 (vždy 3 místné číslo):Sheets(Sheets.Count - 1).Name = Format(Sheets.Count - 4, "faktura_00#")

M@citovat
#001169
avatar
Děkuju mockrát,
zatím to dělá co potřebuji, ale myslím že to ještě projde časem spoustou změn, přeci jen to je první verze,
děkuji ještě jednou za pomoccitovat

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