action når fil bliver åbnet

Du indsætter nedenstående procedure i ThisWorkbook:

Private Sub Workbook_Open()
Call Navnpåprocedure
End Sub

>asol

Skal det skrives:
Call
og derefter ovenstående makro

eller hvordan ?

Du kan godt skrive koden 'direkte' (som nedenfor). Mit eksempel ovenfor kalder en anden procedure.


Private Sub Workbook_Open()

ChDir "J:\prod\forkalkulation\Excel filer til oprettelse"
    Workbooks.Open Filename:= _
        "J:\prod\forkalkulation\Excel filer til oprettelse\arkiv.xls"
    Range("H1").Select
    ActiveCell.FormulaR1C1 = "=R[1]C[-6]+1"
    Range("H1").Select
    Selection.Copy
    Windows("Forkalkulations nr..xls").Activate
    Range("L9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("arkiv.xls").Activate
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close

End Sub

>asol
er prøvet , men når den skal kører automatisk ved åbning kommer der en fejlmelding:
Run-time error "9":
Subscript out of range

Makroen fungerer godt nok når jeg kører den mauel ?

>asol
er prøvet , men når den skal kører automatisk ved åbning kommer der en fejlmelding:
Run-time error "9":
Subscript out of range
den markerer linien :Windows("arkiv.xls").Activate

Hvad skal makroen lave - Kopiere celle H1 fra workbook arkiv.xls til celle L9 i Forkalkulations nr..xls?
I hvilken workbook har du indsat koden?

Ja, kopierer et felt til et andet

I this workbook i arket #forkalkulations nr.

Du skal nok rette arknavnene nedenfor og måske cellereferencerne...

Private Sub Workbook_Open()

Workbooks.Open Filename:="J:\prod\forkalkulation\Excel filer til oprettelse\arkiv.xls"

'Indsætter værdien af i celle H1 fra arkiv.xls i celle L9 i workbook Forkalkulations nr..xls
With Workbooks("Forkalkulations nr..xls")
    .Activate
    .Sheets("ARK1").Cells(1, 8).Value = Workbooks("arkiv.xls").Sheets("ARK1").Cells(9, 12).Value
End With

'Gemmer og lukker arkiv.xls
With Workbooks("arkiv.xls")
    .Save
    .Close
End With

End Sub

>asol

Jeg takker for hjælpen. smider du et svar

Selv tak.