a) Excel a makro
b) Předdefinované štítky ve Wordu, hromadná korespondence a krmení daty z Excelu.citovat
b) Předdefinované štítky ve Wordu, hromadná korespondence a krmení daty z Excelu.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Vyplnění a tisk dokumentu dle seznamu
Možná bude nápomocen nějaký "Master IT" :-) Já mám co dělat.citovat
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
Teď je pan Pecháček asi pořádně vytočený, opět něco mu něco uniklo.
citovat
MS Excel
Téma: Vyplnění a tisk dokumentu dle seznamu 
Zaslal/a Slavik222 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: 
40769_tisk-vinek.xlsx (18kB, staženo 29x)
40769_tisk-vinek.xlsx (18kB, staženo 29x)(21.6.2018 11:59)#040770
(21.6.2018 12:45)#040772
Zdravím všechny příznivce excelu, teď jsem zvědav jak se pan Pecháček zachová! 
citovat
citovat(21.6.2018 14:09)#040773
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
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 Subcitovat
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 Subcitovat
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.
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: 
40781_tisk-vinek.zip (19kB, staženo 43x)
citovat40781_tisk-vinek.zip (19kB, staženo 43x)(21.6.2018 19:48)#040782
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.
(22.6.2018 10:15)#040795
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.
citovat
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
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)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články