print from cell reference

[kavanagh]

I'm trying to make a worksheet print automatically.

When the cell E10 of worksheet dates-08-2-xls hits >=186 days
the other workbook diva.xls worksheet 15 A1. prints

how would i code this, any help would be greatly appreaciated

thank you k

 

[VoG]

To deal with multiple events try

Private Sub Worksheet_Calculate()
If Range("E10").Value >= 186 Then
    Application.EnableEvents = False
    Workbooks.Open Filename:="Diva.xls"
    Sheets(15).PrintOut
    ActiveWorkbook.Close False
    Application.EnableEvents = True
End If
If Range("E52").Value >= 186 Then
    Application.EnableEvents = False
    Workbooks.Open Filename:="Diva.xls"
    Sheets(16).PrintOut
    ActiveWorkbook.Close False
    Application.EnableEvents = True
End If
ElseIf Range("E94").Value >= 186 Then
    Application.EnableEvents = False
    Workbooks.Open Filename:="Diva.xls"
    Sheets(8).PrintOut
    ActiveWorkbook.Close False
    Application.EnableEvents = True
End If
End Sub

 

[kavanagh]

Works perfectly Thank you for all your work on this. K

 

[kavanagh]

I was a little premature with perfect it all works great but today a found a little problem with it .
it seems that when I use other macro buttons not related to it,
on that sheet it seems to envoke the calculate event and prints
but it stops my other macros from working. any thoughts .

appreaciated. K

 

[VoG]

In your other macros you will need to disable events like this

Application.EnableEvents = False
'
'your code
'
Application.EnableEvents = True

 

[kavanagh]

Perfect ,

thank you K