MS Excel

Téma: Tisk s podmínkou

Zaslal/a thums 31.7.2020 12:42

Zdravím, potřebuji poradit s kódem tisku...
1)buňky M8, F9, F18 budou obsahovat data = tiskni
2)pokud bude pouze jedna z nich obsahovat data = tiskni
3)pokud budou prázdné, netiskni
Tisk musí proběhnout pouze jednou....
Děkuji
nikdo neporadí ?, už mi to funguje tak na půl, ale bohužel když jsou buňky vyplněné třeba dvě, tak proběhne tisk 2x
proosím, prosím...

Zaslat odpověď >

Palooo(3.8.2020 10:13)#047576

asi mate makro typu:

if Range("M8") <> "" then tisk end if
if Range("F9") <> "" then tisk end if
if Range("F18") <> "" then tisk end if

ale musite to napisat takto:

if Range("M8") <> "" and Range("F9") <> "" and Range("F18") <> "" then tisk end ifcitovat

Jiří497(3.8.2020 10:58)#047577

Jen místo "and" by mělo být "or".
Bod 2 je asi špatně napsaný. Asi tam má být: Pokud bude alespoň jedna z nich obsahovat data - tisknicitovat

Robert13(3.8.2020 13:24)#047578

Jo, Mati a nezabudni že ten "tisk" je volanie ďalšieho makra, prípadne tam musíš dať miesto toho skutočný príkaz pre tlačenie.
P.S. ak je If v jednom riadku, nie je potrebné dávať End Ifcitovat

elninoslov(3.8.2020 13:54)#047579

Sub CheckAndPrint()
If Range("M8") & Range("F9") & Range("F18") = "" Then MsgBox "Ani prd !", vbCritical: Exit Sub
' ... pokračuje tlačiace makro
End Subcitovat

Jiří497(3.8.2020 15:57)#047583

@elninoslov: To je chytré řešenícitovat

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.