Flytte ark til ny projektmappe med formler

Prøve denne kode:


Sub importer_data()
If MsgBox("Er du sikker på at du vil importere data?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub

    Application.EnableEvents = False
    On Error Resume Next

    Dim wb As Workbook
    Set wb = Workbooks.Open("C:\DOKUMENTER\Stamdata.xls", True, True) ' RET SELV STIEN TIL
    Application.StatusBar = "Importerer data"

    With ThisWorkbook.Worksheets("Årsopgørelse")
        .Range("A1:Q100").Formula = wb.Worksheets("Årsopgørelse").Range("A1:Q100").Formula ' RET SELV OMRÅDET TIL
    End With

    wb.Close False
    Set wb = Nothing
    Application.ScreenUpdating = True

    Application.EnableEvents = True
    Application.StatusBar = "Importen er færdig!"

    MsgBox "Importen er færdig!"
    Application.StatusBar = ""
End Sub

Der bliver ikke kopieret noget over i projektmappen, som makroen køres fra. Projektmappen hedder Skat.xls. Jeg går ud fra at det burde dette stykke program gøre:

With ThisWorkbook.Worksheets("Årsopgørelse")
        .Range("A1:Q100").Formula = wb.Worksheets("Årsopgørelse").Range("A1:Q100").Formula ' RET SELV OMRÅDET TIL
    End With

mærkeligt. Den virker hos mig.
Jeg har antaget følgende:
A. Der er et ark der hedder Årsopgørelse i begge filer.
B. Det er de data /formler der står i ark årsopgørelser der skal flyttes.

Prøv følgende:
1.
SLET DENNE LINJE:
On Error Resume Next

2.
SØRG FOR AT DET ER DEN HELT RIGTIGE STI DER STÅR I KODEN I FORHOLD TIL HVOR DIN FIL LIGGER
Set wb = Workbooks.Open("C:\DOKUMENTER\Stamdata.xls", True, True)

Hvis det er dataene fra stam der skal kopieres skal du ændre ("årsopgørelse") til ("stam")

Jeg tror jeg har fundet fejlen.
Der er ikke et ark der hedder Årsopgørelse i skat.xls i forvejen. Det skal også oprettes. Kan du putte det ind i makroen?

Det er fejlen :-)
Det kunne også være dejligt med lidt kommentarer - der er en del udtryk jeg ikke har set før - Det kan jeg fo lære af...

prøve denne:

Sub importer_data()
If MsgBox("Er du sikker på at du vil importere data?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub

    Application.EnableEvents = False            ' sørger for at andre makroer ikke køres imens importen køres
    On Error Resume Next                        ' hvis der er fejl fortsætter koden uden at komme med en "debug"

    Sheets.Add                                  ' indsæt ark med navnet årsopgørelse
    ActiveSheet.Name = "årsopgørelse"
   
    Dim wb As Workbook                          ' sætter den udpegede fil til at være "wb"
    Set wb = Workbooks.Open("C:\DOKUMENTER\Stamdata.xls", True, True) ' RET SELV STIEN TIL
    Application.StatusBar = "Importerer data"  ' skriver nederst på skærmen hvad der sker

    With ThisWorkbook.Worksheets("Årsopgørelse") '
        .Range("A1:Q100").Formula = wb.Worksheets("Årsopgørelse").Range("A1:Q100").Formula ' RET SELV OMRÅDET TIL
    End With

    wb.Close False                              'lukker filen der imprteres fra
    Set wb = Nothing
    Application.ScreenUpdating = True          'opdaterer skærmen igen

    Application.EnableEvents = True            'sørger for at andre makroer kan køre igen
    Application.StatusBar = "Importen er færdig!"

    MsgBox "Importen er færdig!"
    Application.StatusBar = ""
End Sub

det er ikke sikkert at du skal have disse linjer med:
Application.EnableEvents = False
Application.EnableEvents = true

De sikrer blot at der ikke køres andre makroer imens denne kører.

Du får lige et svar :-)

mrkr> Tak for hjælpen!
Lige et lille tillægsspørgsmål: Hvordan får jeg Arket placeret mellem du bestemte ark. Er det navn eller placering der bestemmer det?

Det sidste forstår jeg ikke lige.
Kan du evt. uddybe lidt?

Et eksempel:

Jeg har i forvejen 3 ark i min projektmappe:

1. ark = Ark1
2. ark = Ark2
3. ark = ARk3

Det nye ark, Årsopgørelse kommer til at ligge som det første:

1. ark = Årsopgørelse
2. ark = Ark1
3. ark = Ark2
4. ark = Ark3

Jeg vil gerne have det ind som nummer 2:

1. ark = Ark1
2. ark = Årsopgørelse
3. ark = Ark2
4. ark = Ark3

Prøv denne:

Sub importer_data()
If MsgBox("Er du sikker på at du vil importere data?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub

    Application.EnableEvents = False            ' sørger for at andre makroer ikke køres imens importen køres
    On Error Resume Next                        ' hvis der er fejl fortsætter koden uden at komme med en "debug"

    Sheets.Add                                  ' indsæt ark med navnet årsopgørelse
    ActiveSheet.Name = "årsopgørelse"
    Sheets("Årsopgørelse").Move After:=Sheets(2)
   
    Dim wb As Workbook                          ' sætter den udpegede fil til at være "wb"
    Set wb = Workbooks.Open("C:\DOKUMENTER\Stamdata.xls", True, True) ' RET SELV STIEN TIL
    Application.StatusBar = "Importerer data"  ' skriver nederst på skærmen hvad der sker

    With ThisWorkbook.Worksheets("Årsopgørelse") '
        .Range("A1:Q100").Formula = wb.Worksheets("Årsopgørelse").Range("A1:Q100").Formula ' RET SELV OMRÅDET TIL
    End With

    wb.Close False                              'lukker filen der imprteres fra
    Set wb = Nothing
    Application.ScreenUpdating = True          'opdaterer skærmen igen

    Application.EnableEvents = True            'sørger for at andre makroer kan køre igen
    Application.StatusBar = "Importen er færdig!"

    MsgBox "Importen er færdig!"
    Application.StatusBar = ""
End Sub