Macro note continuing to run of value false

Hello

I’ve setup the below macro to print specfic pages if the formual result is 1, unfortuantely the formaul doesn’t = 1, then the formula stops and doesn’t run the other rules.

What can I do to fix? formula below:

If Range(“d19”).Value = 1 Then
Sheets(“trailers”).PrintOut Copies:=1

If Range(“d20”).Value = 1 Then
Sheets(“Pricing”).PrintOut Copies:=1

If Range(“d21”).Value = 1 Then
Sheets(“Q-Hours”).PrintOut Copies:=1

If Range(“d22”).Value = 1 Then
Sheets(“trailer customer info”).PrintOut Copies:=1
                    
If Range(“d23”).Value = 1 Then
Sheets(“trailer job card”).PrintOut Copies:=1

If Range(“d24”).Value = 1 Then
Sheets(“running gear”).PrintOut Copies:=1
        
If Range(“d25”).Value = 1 Then
Sheets(“finishing”).PrintOut Copies:=1
            
If Range(“d26”).Value = 1 Then
Sheets(“boxes”).PrintOut Copies:=1
                
If Range(“d27”).Value = 1 Then
Sheets(“bottom dpr”).PrintOut Copies:=1
                    
If Range(“d28”).Value = 1 Then
Sheets(“c-sider”).PrintOut Copies:=1

If Range(“d29”).Value = 1 Then
Sheets(“log trlr”).PrintOut Copies:=1

If Range(“d30”).Value = 1 Then
Sheets(“skel-fd”).PrintOut Copies:=1
        
If Range(“d31”).Value = 1 Then
Sheets(“tank trl”).PrintOut Copies:=1
            
If Range(“d32”).Value = 1 Then
Sheets(“stock tr”).PrintOut Copies:=1
                
If Range(“d33”).Value = 1 Then
Sheets(“panel”).PrintOut Copies:=1
                    
If Range(“d34”).Value = 1 Then
Sheets(“transporter”).PrintOut Copies:=1

If Range(“d35”).Value = 1 Then
Sheets(“tipper-srb”).PrintOut Copies:=1
        
If Range(“d36”).Value = 1 Then
Sheets(“tipper-ars”).PrintOut Copies:=1
            
If Range(“d38”).Value = 1 Then
Sheets(“checksheet steer axle”).PrintOut Copies:=1
                
If Range(“d39”).Value = 1 Then
Sheets(“checksheet kingpin”).PrintOut Copies:=1
                    
If Range(“d40”).Value = 1 Then
Sheets(“checksheet 5th wheel”).PrintOut Copies:=1

If Range(“d41”).Value = 1 Then
Sheets(“checksheet m911d”).PrintOut Copies:=1

If Range(“d42”).Value = 1 Then
Sheets(“checksheet finishing”).PrintOut Copies:=1

If Range(“d43”).Value = 1 Then
Sheets(“checksheet brakes”).PrintOut Copies:=1

If Range(“d44”).Value = 1 Then
Sheets(“checksheet pre-delivery”).PrintOut Copies:=1

If Range(“d45”).Value = 1 Then
Sheets(“checksheet quality”).PrintOut Copies:=1

If Range(“d46”).Value = 1 Then
Sheets(“checksheet pre-dispatch”).PrintOut Copies:=1

If Range(“d47”).Value = 1 Then
Sheets(“checksheet dispatch”).PrintOut Copies:=1

End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

End Sub

By: Richard Currie

Leave a Reply

Your email address will not be published. Required fields are marked *