Als Dan Printen

[jost]

Klein probleempje maar! Ik heb voor bepaalde sheets dit stukje staan en werkt prima:

Sheets("EUR").Select
If Cells(4, 4).Value < 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

Nu heb ik een serie andere sheets, en daar wil ik kiezen uit 2 cellen.

Dus als Cells(4,4)<0 of als Cells(4,34)<0 is, dan printen.

Ik weet alleen niet hoe ik dat in VBA moet schrijven.

Kan iemand me helpen?

Bvd! Joost

 

[Roncancio]

Zo:

Sheets("EUR").Select
If Range("D4").Value < 0 Or Range("D34") < 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

Omdat je cells hard gecodeerd heeft, heb ik Range gebruikt omdat dat makkelijker te lezen is.
Wil je toch Cells gebruiken, dan is de code als volgt:

Sheets("EUR").Select
If Cells(4,"D").Value < 0 Or Cells(34,"D") < 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

of:

Sheets("EUR").Select
If Cells(4,4).Value < 0 Or Cells(34,4) < 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

Met vriendelijke groet,


Roncancio

 

[jost]

oh.. zo!

ok, ik moet "or" dus daar plaatsen.. Zat er de regel onder te werken, en dat lukte inderdaad niet.

Bedankt voor de hulp!

 

[Roncancio]

ok, ik moet "or" dus daar plaatsen.. Zat er de regel onder te werken, en dat lukte inderdaad niet.

Dat kan ook.
Namelijk zo:

If Range("D4").Value < 0 _
    Or Range("D34") < 0 Then

Belangrijk: er moet dan wel een underscore ( _ ) staat aan het eind van de 1e regel.

Met vriendelijke groet,


Roncancio

 

[Wigi]

Ofwel

If Range("D4").Value < 0 Or Range("D34") < 0 Then

zonder een underscore ( _ )

ofwel

If WorksheetFunction.Min(Range("D4"), Range("D34")) < 0 Then

Wigi

 

[jost]

bijna daar..

Heb het ingevoerd in mijn Macro, en het werkt prima. Nu was ik alleen vergeten dat er ook een positief bedrag kan staan. Hoef dus alleen niet te printen als D4 en / of D33 gelijk is aan 0.

Bestaat er een teken voor in Excel voor "is niet gelijk aan 0"?

Bvd!

 

[jost]

ben der al..

nog wat meer "or" er tussen zetten en het lukt al..

Mocht iemand het teken weten voor "is niet gelijk aan 0" hoor ik het graag, anders doe ik het wel met " >0 or <0".

Grtn

 

[Wigi]

nog wat meer "or" er tussen zetten en het lukt al..

Mocht iemand het teken weten voor "is niet gelijk aan 0" hoor ik het graag, anders doe ik het wel met " >0 or <0".

Grtn

doe

<>0