MS Excel

Téma: Auto. tisk stránek + auto. změna dat

Zaslal/a Knotek 28.3.2018 11:28

Zdravím
mám takový problém - s VBA moc neumím a tak bych Vás chtěl poprosit o pomoc. Problém - potřebuji aby jsem zadal range (např. 800-900) a makro mi automaticky měnilo čísla podle range a následně i tiskla. Tudíž začnu na 19-18-800 (viz příloha) ta se vytiskne a dále pokračujeme +1 -> 19-18-801 tisk a tak dále a tak dále až po 19-18-900.
Předpokládám že hodnota 800 bude muset být v samostatné buňce to není problém potřebuji jen pomoci s makrem které už bych si posléze upravil (nějaký ten základ programování mám)
Předem děkuji za jakoukoliv radu a pomoc
MS excel 2010

Příloha: png

39994_bez-nazvu.png (35kB, staženo 29x)

Zaslat odpověď >

Rejpal(28.3.2018 12:29)#039995

Zdraavím.
Co takhle:
For a = 800 To 900
List1.Range("K3") = "19-18-" & a
Tisk
Nextcitovat

Knotek(28.3.2018 13:02)#039997

Sub pokus()
For a = 1301 To 1303
ActiveSheet.Range("C8") = "19-18-" & a
ActiveSheet.PrintOut
Next
End Sub

Vyřešil jsem to takto a funguje !! Díky moc teď se jen potýkám s drobností že mě excel nenechá makro upravovat (potřebuji pro každý list jiné hodnoty) a prostě se zamkne a odmítá komunikovat. Nějaká rada ohledně tohoto ?citovat

Knotek(28.3.2018 13:04)#039998

Vyřešeno prosím lock :) Děkuji moc za raducitovat

Uživatelské menu

Nejste přihlášen(a)

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.