MS Excel

Dobrý den, v příloze mám soubor, který pomocí VBA vytiskne pouze vyplněné formuláře. Ve sloupci "H" se objeví příznak ("x" pro začátek a "y" pro konec tištěné oblasti) podle toho, zda je daná stránka vyplněna nebo ne. Potom tlačítko "Tisk" spustí modul VBA, který přečte daný příznak a podle něj vytiskne vyplněnou stránku.

Já bych potřeboval, aby program dokázal vytisknout také pouze změny, které se udály od posledního vytištění ( nejlépe tím, že zapíše příznak "x" do sloupce I, pak už to zvládnu propojit).

Prostě někdo vytiskne vyplněný dokument a zavře ho. Pak příjde například za týden a udělá v něm jen nějakou změnu, třeba přepíše v jednom měsíci jedno jméno a já potřebuji, aby to VBA poznal a označil stránku, ve které byla provedena změna. Po vytištění, aby se vynuloval a zapsal každou další změnu až do dalšího vytištění, kdy se zase vynuluje a tak dále...

Uzamčeno - nelze přidávat nové příspěvky.

Palooo(30.5.2013 16:41)#013545

tak som sa nato kukol :)

- v tisk som doplnil ze ked prebehne makro tak vycisti H stlpec
- potom tam je v sheet(1) doplneny event na change "zmenu"

pozri sa nato potom napis ci vyhovuje

Příloha: zip

13545_priklad2.zip (16kB, staženo 28x)

citovat

Matio(30.5.2013 22:12)#013557

Ahoj Palooo,

díky za snahu, ale to tvé řešení nefunguje tak, jak potřebuju (navíc při eventu to vyhazuje chybu). Není to ono.citovat

Palooo(31.5.2013 8:45)#013568

ano, je tam chyba

sorry uz som ju opravil

Příloha: zip

13568_priklad2.zip (14kB, staženo 28x)

citovat

Matio(31.5.2013 13:51)#013578

Tak super, už to funguje. Díky za pomoc Palooo.

citovat

Matio(31.5.2013 14:22)#013580

A mám tu ještě jednu chuťovku:

Kdyby dokument neměl všechny strany stejně dlouhé (tzn. se stejným počtem řádků, jako je to teď v příloze) dalo by se VBA přimět k tomu, aby rozpoznalo kde stránka začíná a končí a podle toho zapsalo příznaky "x" a "y" pro označení oblasti tisku? Začátek a konec stránky jsem označil do sloupce F, který je již mimo tisknutelnou oblast, písmeny "z" jako začátek a "k" jako konec - toto označení by mohlo být trvale vedle tisknutelné oblasti a nastavil bych ho pro kažsou stránku ručně. Podle toho by VBA poznalo, kde strana začíná a končí. Šlo by to?citovat

Matio(31.5.2013 14:24)#013581

Ještě ten upravený soubor...

Příloha: zip

13581_priklad3.zip (14kB, staženo 28x)

citovat

Palooo(31.5.2013 14:40)#013582

jj slo, len bacha aby si na tie odrazky nezabudol :)))

Příloha: zip

13582_priklad3.zip (14kB, staženo 30x)

citovat

Matio(1.6.2013 20:45)#013600

Super, funguje to! Sice to moc nechápu ten poslední zápis, přibyly tam jen dva řádky. Ale to nevadí, funguje to parádně.

díky Palooocitovat

Palooo(3.6.2013 8:57)#013618

pre vysvetlenie je to len viac krokov zapisane v jednom vzorci

Cells(Cells(Target.Row, 6).End(xlUp).Row, 8) = "x"
Cells(Cells(Target.Row, 6).End(xlDown).Row, 8) = "y"

musis sa nato poyerat najprv zvonku a potom to postupne rozbalovat

1. cells() = "x" // takze v nejakej bunke dopise "x"
2. cells: cells(tu sa zapisuje riadok, tu sa zapisuje stlpec)
3. target.row je zobraty udaj(object) z eventu kde si vyberem len cislo riadku kde sa kurzor nachadza
4. Cells(Target.Row, 6).End(xlDown).Row ... tento udaj konci row .. aj ked to vypada ze sa odkazuje na bunku bere z nej len udaj riadku
5. Cells(riadok, 8 je stlpec)

asi tak v skratke ... ja viem nerad sa rozpisujem

pre zaujimavost skus si nahrat makro a na nejakej bunke stlac: end + hore sipkacitovat

Matio(4.6.2013 13:38)#013656

Ok, už to trochu chápu. Zkusím si s tím ještě pohrát. Moc jsi mi pomohl, děkuju Palooocitovat

Téma: Vytištění změn v dokumentu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje