Kopier data fra 1 ark til andet ark i ny projektmappe

Findes den nye projektmappe og er de nødvendige ark oprettet?

JA det er en projektmappe med standard arbejdsskema der skal udfyldes
Antal af ark vil ikke komme over 10

Via VBA kan det lade sig gøre...

Kode anbringes i kildefilen ark1

rem Sti tilmodtagerFil tilpasses
Const sti = "C:\Documents and Settings\pb\Skrivebord\2411KopiXLS\"

Dim mXLS
Public Sub kopier()
    With ActiveWorkbook.Sheets(1)
        cb4 = .Range("B4")
        cb5 = .Range("B5")
        cb20 = .Range("B20")
    End With
   
    Set mXLS = CreateObject("Excel.Application")
   
    With mXLS
        .Workbooks.Open sti + "modtager.xls"
               
        For Each sh In mXLS.ActiveWorkbook.Sheets
            If sh.Cells(4, 1) = "" Then
                sh.Cells(4, 1) = cb4
                sh.Cells(4, 3) = cb5
                sh.Cells(32, 2) = cb20
                Exit For
            End If
        Next
       
        .ActiveWorkbook.Save
        .Quit
    End With
   
    Set mXLS = Nothing
End Sub

Hej Supertekst

Har ændret Const sti = "C:\Documents and Settings\pb\Skrivebord\2411KopiXLS\" til
Const sti = "D:\Documents and Settings\Søren\Skrivebord\Tom arbejdsseddel\"

Men når jeg kører run for at afprøve macro skriver den filen ikke fundet eller stavningen forkert

Er der andre steder der skal rettets i koden ????
eller er det noget med at jeg kører med excel 2007

Hej sorjak

JA - filnavnet - herunder........... - ret til det, som din fil hedder
.Workbooks.Open sti + "modtager.xls"

Hej Supertekst
Ja så viker det jo
Rigtig godt
Tusind tak

Hej Supertekst
Ja så viker det jo
Rigtig godt
Tusind tak

Send dit svar så du kan få point

Hej sorjak - Det var godt - så får du et svar.