Hi,
I have a large machine service record sheet. this sheet counts down days to the next scheduled service.
I wondered if it would be possible to auto print the items required and machine due for service. So I could come into the office each morning go to the printer and have the information on hard copy without checking the sheet.
Private Sub Worksheet_Calculate()
Dim c As Range
For Each c In Range("D2:D200") 'modify the range to suit
If c.Value = 1 Then
Me.PrintOut
Exit For
End If
Next c
End Sub