Afdrukken bij celwaarde groter dan 0

[stefano]

Hoe schrijf ik in vba de code voor het afdrukken van een werkblad wanneer de inhoud van een cel groter dan nul is?

Sub afdrukken
  If range "$I$15" > 0 Then Sheets("PRIMORIS").UsedRange.PrintOut Copies:=2, Collate:=True
End sub

 

[stefano]

Dit werkt ondertussen niet, wat is er fout?

Sub Afdruk()
    Range("I15").Select
    If cell.Value > 0 Then Sheets("PRIMORIS").UsedRange.PrintOut Copies:=2, Collate:=True
End Sub

 

[Cobbe]

Sub afdrukken
  If Sheets("PRIMORIS").range "$I$15" > 0 Then Sheets("PRIMORIS").Range(A1").UsedRange.PrintOut Copies:=2, Collate:=True
End sub

 

[stefano]

Ik krijg een compileerfout : Verwacht : Then of GoTo

Sub afdrukken()
  If Sheets("DATA").range "H13" > 0 Then Sheets("PRIMORIS").Range(A1").UsedRange.PrintOut Copies:=2, Collate:=True
End Sub

 

[robdgr]

Ik vermoed

Range(A1")

=

Range("A1")

 

[edmoor]

Da's wel zeker.
Die .range "H13" moet zijn: .Range("H13")

 

[Cobbe]

Sorry voor de slordigheid.

Die .range "H13" moet zijn: .Range("H13")

Waar is er sprake van H13 ?

 

[edmoor]

In het voorbeeld van Stefano in #4.

@Stefano:
In die regel mist er ook een " teken bij .Range(A1")

 

[stefano]

OK, dank jullie wel alvast.

Toch krijg ik nog steeds een fout, nl. Fout 438 tijdens uitvoering: Deze eigenschap of methode wordt niet ondersteund door dit object.

Ik heb mijn code ondertussen aangepast naar:

Sub afdrukken()
  If Sheets("DATA").Range("H13") > 0 Then [COLOR="#FF0000"]Sheets("PRIMORIS").Range("A1").UsedRange.PrintOut Copies:=2, Collate:=True[/COLOR]
  If Sheets("DATA").Range("H14") > 0 Then Sheets("SFC").Range("A1").UsedRange.PrintOut Copies:=2, Collate:=True
  If Sheets("DATA").Range("H15") > 0 Then Sheets("TLR").Range("A1").UsedRange.PrintOut Copies:=2, Collate:=True
End Sub

Bij foutopsporing wordt het rode deel aangeduid door excel.

 

[Cobbe]

Maak er dit eens van: PS wel zorgen dat je in cel A1 begint anders Range("A1") aanpassen:

Sub afdrukken()
If Sheets("DATA").Range("H13") > 0 Then Sheets("PRIMORIS").Range("A1").CurrentRegion.PrintOut Copies:=2, Collate:=True
If Sheets("DATA").Range("H14") > 0 Then Sheets("SFC").Range("A1").CurrentRegion.PrintOut Copies:=2, Collate:=True
If Sheets("DATA").Range("H15") > 0 Then Sheets("TLR").Range("A1").CurrentRegion.PrintOut Copies:=2, Collate:=True
End Sub