hvis-funktion og opdatering af dokumentkæder
Hej EksperterPå min arbejdsplads har jeg i Excel lavet et "genvejsark" hvor jeg har lavet knapper til alle de funktioner som vi anvender mest. Det sparer meget på tiden eftersom vores forskellige regneark er placeret i et stort virvar på vores fælles-drev. Jeg vil dog gerne gøre brugerfladen lidt bedre eftersom jeg er den eneste der forstår mig bare en lille smule på VBA. De problemer jeg gerne vil have løst er flg.:
- hvis man trykker på en knap der åbner et regneark som man allerede har åbent i forvejen kommer end/debug dialogen frem - hvordan undgår jeg det?
Vi har et ark som samler op på nogle underark som vi bruger løbende. Opsamlingsarket indeholder kæder til underarkene og kan opdateres på normal vis via makro:
ActiveWorkbook.UpdateLink Name:="O:\akp\EXCEL\bord\akp.xls", Type:= _
xlExcelLinks
ActiveWorkbook.UpdateLink Name:="O:\akp\EXCEL\bord\dahl.xls", Type:= _
xlExcelLinks
ETC.
Et problem her er, at jeg gerne vil lave en makro der opdaterer kæderne i hovedarket, men at den melder fejl hvis man har et af underarkene åbent på sin egen computer. Det jeg gerne vil er at lave en hvis-funktion der undersøger om man har 1 ud af 6 dokumentnavne åben, og i så fald, lukker og gemmer det pågældende dokument så der kan opdateres, hvorefter det bliver åbnet igen. Hvordan vil hvis-funktionen komme til at se ud? Altså bare linjen der afgør om et dokument er åbent eller lukket.
