MS Excel

Mám na listu1 dvě číslované zakázkové karty, které potom po tisku odděluji.Ve (sloučených) buňkách B1, O1 a R1 je vždy stejné číslo a v buňkách B23, O23 a R23 taky stejné číslo, které je vždy o jednu větší (než v buňkách B1,O1,R1).Potřejuji makro, které mi při tisku na každé následující kopii této karty ve zmíněných buňkách číslo zvýší vždy o jednu tak, aby šíslování karet bylo postupné.Díky moooc za pomoc.

Zaslat odpověď >

Pavlus(7.9.2016 12:38)#032704

Za předpokladu, že budeš v onom excelovém sešitu tisknout jenom List1, a za předpokladu, že budeš tisknout vždy pouze 1 kopii, by se dala využít událost BeforePrint (uložena do ThisWorkbook). Jelikož jsou buňky na sobě závislé, tak předpokládám, že číslo nastavuješ pouze v jedné z nich, a ostatní jsou navzorcované. Pak by to šlo udělat takto (počáteční hodnota buňky B1 před prvním tiskem musí být 0):
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("List1").Range("B1").Value = Sheets("List1").Range("B1").Value + 1
ThisWorkbook.Save
End SubPokud by se jednalo o rozsáhlejší tisk více kopií, tak bych nakopíroval zakázkové karty pod sebe, a patřičně navzorcoval s inkrementem 1...
P.citovat

anonym(7.9.2016 15:09)#032709

Dík za odpověď.Potřebuji vytisknout cca 100 kopií -karet s číslováním ve zmíněných buňkách.citovat

marjankaj(7.9.2016 16:46)#032711

For i = 1 To 100 Step 2
With Sheets("List1")
.Range("B1").Value = i
.PrintOut
End With
Next i
Pri testovaní zameň 100 za 3 alebo 5.
Prípadne .PrintOut za .PrintPreviewcitovat

anonym(8.9.2016 10:11)#032721

Super funguje a děkan.citovat

anonym(9.9.2016 8:06)#032744

Jěště bych poprosil o toto: aby se uložilo poslední číslo v buňce B1 na poslední tištěné kartě a při dalším tisku karet pokračovalo číslování v řadě dále.
Díky moc za pomoc.citovat

Téma: Postupné číslování zakázkových karet_makro.

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje