< návrat zpět
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...
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 if
citovat
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 - tiskni
citovat
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 If
citovat
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