• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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: 39994_bez-nazvu.png (35kB, staženo 29x)

Jméno
Kontrola
Text
	Ukázka

---

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse