< návrat zpět

MS Excel


Téma: Vyplnění a tisk dokumentu dle seznamu rss

Zaslal/a 21.6.2018 11:46

Zdravím,

jak jinak, potřeboval bych poradit jak si zjednodušit vyplňování a tisk dokumentu, který vkládáme do vozidel. Mám seznam Vinek (počet může být až 300) a potřeboval bych, aby se vinko po vinku nakopírovalo do vedle připraveného formuláře a automaticky vytisklo.

děkuji moc

Příloha: xlsx40769_tisk-vinek.xlsx (18kB, staženo 28x)
Zaslat odpověď >

#040770
avatar
a) Excel a makro
b) Předdefinované štítky ve Wordu, hromadná korespondence a krmení daty z Excelu.citovat
#040771
avatar
Můžu poprosit o variantu a) excel a makrocitovat
#040772
avatar
Zdravím všechny příznivce excelu, teď jsem zvědav jak se pan Pecháček zachová! 4citovat
#040773
avatar

Rejpal napsal/a:

Zdravím všechny příznivce excelu, teď jsem zvědav jak se pan Pecháček zachová!


Možná bude nápomocen nějaký "Master IT" :-) Já mám co dělat.citovat
#040780
avatar
Sub VYPIS()
Dim oblast As Range, bunka As Range
Worksheets("Seznam VINek").Activate
Set oblast = Range(Cells(2, 2), Cells(2, 2).End(xlDown))
With Worksheets("TISK")
For Each bunka In oblast
.Cells(2, 1) = bunka
.PrintPreview ' namiesto PRINTPREVIEW daj PRINTOUT
Next bunka
End With
Set oblast = Nothing
End Sub
citovat
#040781
Stalker
Nebo řešení pomocí pole.
Aby nedocházelo k problikávání obrazovky, stačí odstanit apostrof (') před řádkem Application...
Řádek jsem zakomentoval aby bylo vidět, že se vinka mění.
Do editoru se dostaneš ALT+F11

EDIT: Ještě by to chtělo pohrát si s formátem buněk. Předposlední vin je "delší" a dochází k "vytištění" prázdné stránky.
Příloha: zip40781_tisk-vinek.zip (19kB, staženo 40x)
citovat
#040782
avatar

xlnc napsal/a:

Rejpal napsal/a:Zdravím všechny příznivce excelu, teď jsem zvědav jak se pan Pecháček zachová!

Možná bude nápomocen nějaký "Master IT" :-) Já mám co dělat.
Pardon, ale toto je nahrávka na smeč. Pechy má co dělat, a přesto nás každý den poučuje o našich chybách a nedokonalostech zde na fóru. Nic ve zlém...citovat
#040794
avatar
Děkuji moc, strašně jste mi pomohli.

Funguje na těchto stránkách "donate"reward" ?citovat
#040795
avatar

Slavik222 napsal/a:

Děkuji moc, strašně jste mi pomohli.

Funguje na těchto stránkách "donate"reward" ?


Teď je pan Pecháček asi pořádně vytočený, opět něco mu něco uniklo. 5citovat
icon #040796
avatar
No, existuje pomoc bezplatna a pomoc platena. To, ze Petr vie, ako na to, este automaticky neznamena, ze to bude ochotny robit zadarmo len preto, ze si sem zadavatelia zvykli chodit pre bezplatne riesenia, za ktore casto poberaju v praci mzdu. Pokial Petr napise, ze sa ma cim bavit, je to jeho vysostne pravo. Ze tu napr. elninoslov robi takpovediac devecku pro vsechno je jeho vec, ale pokial je ferova hodinova sadzba odbornika na excel niekolko stokorun, tak cakat, ze tieto peniaze vo forme bezplatnych rieseni dostane niekto darom sice dotycny moze, ale asi by si to nemal narokovat.
Pan Slavik je skutocne vynimka medzi tazajucimi sa, malokedy sa vidi, ze by niekto odpovede tuna pokladal za pracu, zasluhujucu nejaku odmenu.citovat

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

Podmínka pro spuštění makra

MilanKop • 18.3. 18:51

Podmínka pro spuštění makra

Stalker • 18.3. 18:34

duplicity

fortes • 18.3. 17:48

Podmínka pro spuštění makra

MilanKop • 18.3. 17:31

spojení vzorců v PQ

elninoslov • 18.3. 15:13

spojení vzorců v PQ

Majki • 18.3. 14:15

Automaticka zmena obsahu bunky podla datumu

elninoslov • 17.3. 12:14