1129_praclovicek.zip
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
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
RSS nejnovější články