Åbne en excel fil og hent over i skabelon

Glemte lige at skrive at når den har hentet det der ligger mellem celle a21:d45 skal den ligge det over i skabelonen og lukke det excel ark den lige har åbnet.

Jeg kommenterer koden:

Sub rykker_3()
'
' rykker_3 Makro
      Dim nummer
    Dim kunde
nummer = ActiveWorkbook.Sheets(2).Cells(8, 4)  'skal tilpasses
  kunde = ActiveWorkbook.Sheets(2).Cells(8, 2)
Workbooks.Open ("c:\Faktura\excelfakturaDB\" & kunde & "\faktura_" & nummer & ".xls") ' ret til den fil du åbner ved ny faktura

    Range("A21:C45").Select' du har åbnet et anden mappe, det er der du vælger nu, er der kun et ark ??

    Selection.Copy
    ActiveWindow.WindowState = xlMinimized
    ActiveWindow.SmallScroll Down:=-15

    Range("A21").Select' du er stadig i det nye åbnede ark, jeg tror du vil ind i skabelonen ??

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.Run "Backup" ' hvad er det for en fætter
    Windows("faktura_" & nummer & ".xls").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.Close
End Sub


jeg tror at den skal se sådan ud:

Sub rykker_3()
'
' rykker_3 Makro
      Dim nummer
    Dim kunde
nummer = ActiveWorkbook.Sheets(2).Cells(8, 4)  'skal tilpasses
  kunde = ActiveWorkbook.Sheets(2).Cells(8, 2)
' Åbner ny mappe
Workbooks.Open ("c:\Faktura\excelfakturaDB\" & kunde & "\faktura_" & nummer & ".xls") ' ret til den fil du åbner ved ny faktura 
Range("A21:C45").Copy ' kopierer fra ny mappe
ActiveWorkbook.Close False
' lukker ny mappe

    Range("A21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.Run "Backup"
 
End Sub

Det var også min plan at når jeg havde skabelonen åben, at jeg så skulle kunne åbne et excel ark med kun et ark i. kopier det der står i det og lukke den ned igen, og lægge det over i skabelonen.

Men prøvede mig frem med at optage en makro, men kunne ikke lige få det til at fungere som jeg ville.Men prøver lige at ligge det ind du forslog og vender så lige tilbage.

Den melder at der skulle være en fejl i denne linje :

Workbooks.Open ("c:\Faktura\excelfakturaDB\" & kunde & "\faktura_" & nummer & ".xls") ' ret til den fil du åbner ved ny faktura

Jeg kan nu ikke lige få øje på hvad det skulle være at den ikke kan udføre her.

den ser rigtig ud, har du husket at udfylde nummer og kunde

Det er også rigtig. :-)

Jeg havde også på et andet ark hvor på der var brugt benævnelserne kunde og nummer. Det var der det gik galt. Da jeg ændrede det til noget andet gik det meget bedre. Og det kom til at fungere.

Så hvis du ligger et svar er der point til dig.

Forsat god søndag og tak for hjælpen.

Hilsen Kenneth

Et svar ;-))