In het actieve werkmap wil ik alleen de koppelingen naar 1 bestand (mbv een variabele) vernieuwen. Uit tips heb ik onderstaande samengesteld die ik vlgs mij in blad1 moet zetten. Vlgs mij heb ik alle ingredienten maar nog niet het geheel. Wie kan mij als starter verder helpen?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "code" Then
ActiveWorkbook.UpdateLink Name:="C:\kanweg\Projectreminder_2012\" & ActiveCell.Offset(1, 0) & "\[Projectplan_" & ActiveCell.Offset(1, 0) & ".xlsm]Projectplan!a6", Type:=xlExcelLinks
MsgBox "Dit project is bijgewerkt"
Else MsgBox "Dit project is niet bijgewerkt"
End If
Cancel=True
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "code" Then
ActiveWorkbook.UpdateLink Name:="C:\kanweg\Projectreminder_2012\" & ActiveCell.Offset(1, 0) & "\[Projectplan_" & ActiveCell.Offset(1, 0) & ".xlsm]Projectplan!a6", Type:=xlExcelLinks
MsgBox "Dit project is bijgewerkt"
Else MsgBox "Dit project is niet bijgewerkt"
End If
Cancel=True
