Automatisk opdatering af regneark

Prøv:
Kode på: Denne_projektmappe



Hvor Ark1.test erstattes med det ark og makro navn du vil kører.

Det er en vba kode som laver en formel jeg kan bruge. Det er som sårn ikke en makro jeg givet noget navn.

VBA koden starter med linie:


Og ligge denne på Ark1:

Kode på: Denne_projektmappe


Så vil din VBA kode køres når Arket åbnes.

Se koden neden for, den ligger i modul 1 - 8.


Rem ===========================================================
Const stiTilKildeFil = "f:\produktion\driftskontrol\sauce\sauce 2012.xls"
Dim kildeFil As Object
Public Function hentUgeDatasauce(ugeNr As String, celleId As String)
On Error GoTo fejl
    Set kildeFil = CreateObject("Excel.Application")
   
    With kildeFil
        .Workbooks.Open stiTilKildeFil
   
        hentUgeDatasauce = .ActiveWorkbook.Sheets(ugeNr).Range(celleId)
    End With
   
fejl:
    kildeFil.Application.Quit
    Set kildeFil = Nothing
End Function

Det er en "Funktion"

Melder pas :-(

Hejsa,

Prøv lige følgende

I VBA vælger du det ark du skal have til at opdatere, og skriver:

Private Sub Worksheet_Activate()
ActiveSheet.Calculate
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Calculate
End Sub

...hvis det er når arket aktiveres eller ændres. Er det når hele excel-arket åbnes, så kan du skrive i modulet "ThisWorkbook":

Private Sub Workbook_Open()
Application.Calculation = xlCalculationAutomatic
ActiveWorkbook.Calculate
End Sub

Hej PB

Den melder en fejl ud for linjen:

Activeworkbook.Calculate

/Lars

Så prøv lige, om dette virker hos dig:

Private Sub Workbook_Open()
Application.Calculation = xlCalculationAutomatic
ThisWorkbook.RefreshAll
End Sub

Hej PB

Undskyld den lange ventetid - nu melder den ingen fejl, jeg kan først senere på uge se om det virker så skal jeg nok lige give lyd fra mig igen.

Men tak for det fremsendte.

/Lars

Virker det?

Hej PB

Arbejdet tog lige overhånd :)
så har først lige fået set på det nu.

Det virker stadig ikke. Den melder dog ingen fejl.

Kan det skyldes at den skal opdatere fra en celle som er lavet som dropdown?

/Lars

Jeg kan ikke umiddelbart se, hvad det er der er galt...

Håber, at jeg har hjulpet dig lidt på vej :)