• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Afdrukken bij celwaarde groter dan 0

Status
Niet open voor verdere reacties.

stefano

Gebruiker
Lid geworden
22 mei 2004
Berichten
865
Hoe schrijf ik in vba de code voor het afdrukken van een werkblad wanneer de inhoud van een cel groter dan nul is?

Code:
Sub afdrukken
  If range "$I$15" > 0 Then Sheets("PRIMORIS").UsedRange.PrintOut Copies:=2, Collate:=True
End sub
 
Dit werkt ondertussen niet, wat is er fout?

Code:
Sub Afdruk()
    Range("I15").Select
    If cell.Value > 0 Then Sheets("PRIMORIS").UsedRange.PrintOut Copies:=2, Collate:=True
End Sub
 
Code:
Sub afdrukken
  If Sheets("PRIMORIS").range "$I$15" > 0 Then Sheets("PRIMORIS").Range(A1").UsedRange.PrintOut Copies:=2, Collate:=True
End sub
 
Ik krijg een compileerfout : Verwacht : Then of GoTo

Code:
Sub afdrukken()
  If Sheets("DATA").range "H13" > 0 Then Sheets("PRIMORIS").Range(A1").UsedRange.PrintOut Copies:=2, Collate:=True
End Sub
 
Ik vermoed
Code:
Range(A1")
=
Code:
Range("A1")
 
Da's wel zeker.
Die .range "H13" moet zijn: .Range("H13")
 
In het voorbeeld van Stefano in #4.

@Stefano:
In die regel mist er ook een " teken bij .Range(A1")
 
Laatst bewerkt:
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:

Code:
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.
 
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan