< návrat zpět

MS Excel


Téma: Tisk s podmínkou rss

Zaslal/a 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ěď >

#047576
avatar
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
#047577
avatar
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
#047578
avatar
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
#047579
elninoslov
Sub CheckAndPrint()
If Range("M8") & Range("F9") & Range("F18") = "" Then MsgBox "Ani prd !", vbCritical: Exit Sub
' ... pokračuje tlačiace makro
End Sub
citovat
#047583
avatar
@elninoslov: To je chytré řešenícitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

VBA vyhledat a zapsat

Stalker • 27.9. 23:02

VBA vyhledat a zapsat

Fantasyk • 27.9. 22:15

VBA vyhledat a zapsat

Stalker • 27.9. 22:04

VBA vyhledat a zapsat

Fantasyk • 27.9. 21:03

vyhledávání s maticí

Fantasyk • 26.9. 11:35

Automatické doplnění

marjankaj • 25.9. 14:27

Automatické doplnění

Dingo • 25.9. 14:25