Als een cel een bepaalde waarde heeft dan de verborgen pagina printen

[monty1a]

Goedemorgen,

Ik heb ondertussen al een hele code samengesteld (met jullie hulp), maar nu zou ik er nog iets aan toe willen voegen.
Als er op de huidige pagina in cel J85 een waarde staat die groter is dan 850 dan moet het blad "TRA" afgedrukt worden.

Zouden jullie me daar mee kunnen helpen?

Hierbij de code die ik tot nu toe heb.

Sub Afdrukken_chip()
'
' Afdrukken_chip Macro
Dim sht1 As Worksheet, sht2 As Worksheet
Dim rng1 As Range, rng2 As Range

    Set sht1 = ActiveSheet
    Set sht2 = Sheets("Werkvergunning")
    Set sht3 = Sheets("UITV_st")
    sht1.Unprotect
    Set rng1 = Range("C181:L323,C664:L732")
    sht3.Visible = True
    sht2.Visible = True

    With sht1
        rng1.PrintOut Copies:=1, Collate:=True
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

    With sht3
                    .Range("I9").Value = sht1.Range("E57")
            .PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End With
    End With
sht3.Visible = False
sht1.Select

'Wekvergunning putnr'
sht1.Unprotect
  ar = Cells(24, 24).CurrentRegion
  x = Cells(23, 32)
   If x > 0 Then
    With Sheets("Werkvergunning")
      .Cells(6, 13) = Cells(9, 10)
      For j = 2 To UBound(ar)
        If ar(j, 2) <> "" Then
          .Cells(6, 16) = ar(j, 2)
          .PrintOut , , x
        End If
      Next j
    End With
 End If
sht2.Visible = False
sht1.Select



End Sub

 

[snb]

Ik denk dat weinigen bezwaar hebben tegen een voorbeeldbestand.

 

[monty1a]

Het probleem is dat het een vrij groot bestand in is, met heel veel tabbladen.
En het bevat "bedrijfs-gevoelige" informatie.

 

[snb]

Een voorbeeldbestand bestaat slechts uit een bestand dat relevant is voor de vraag, geen privé-gegevens bevat en qua struktuur overeenkomt met het 'eigenlijke' bestand. Een voorbeeldbestand hoeft zelden groter te zijn dan 20K.