excel bestand openen als in een cel iets ingevuld is

[bjornesto]

Beste

ik zou graag hebben in volgende cellen dat als je daar iets invult hij dan een bestand opent.
Ik heb zoiets al is gevraagd voor word. Kan je dit gewoon aanpassen of is dat een andere code

De cellen zouden zijn van A204 tot 215
de samengestelde cellen waarbij dit ook moet gebeuren zijn
samengesteldekolom E en F 204 tot 215
samengesteldekolom G,H,I,J 204 tot 215
(die zijn gewoon samengevoegd voor de estetische waarde)

bestand dat moet geopend worden is op de P:\Share\Traffic Violators 2013.xls

en hoe moet je dat aanpassen als je op delete drukt dat dit niet opent?

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Union(Range("D219"), Range("D220"), Range("D221"))) Is Nothing And Target <> "" Then
        With CreateObject("Word.Application")
            .Visible = True
            .Documents.Open ("g:\mijn documenten\Incidentenformulier blanco.doc")
        End With
        SetForegroundWindow (FindWindow(vbNullString, "Incidentenformulier blanco.doc - Microsoft Word"))
    End If
End Sub

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Union(Range("A204:A215"), Range("E204:E215"), Range("G204:G215"))) Is Nothing Then
        If Target.Cells(1).Value = vbNullString Then Exit Sub
        Workbooks.Open "P:\Share\Traffic Violators 2013.xls"
    End If
End Sub