Via Macro een copy van een bestand maken

[buckeru]

Hoi allen,

Ik ben bezig met een progje en het lukt me maar niet.
Het volgende;
Ik wil een copy maken van een orgineel bestand en die vervolgens opslaan
onder de naam die in (samen gevoegde) cel(T3:X4)van het orginele bestand staat.
Het lukt me maar niet?? waarschijnlijk omdat de cel "T4:X4") steeds veranderd.

Zover ben ik gekomen.
waar vraagteken staat zit volgens mij probleem?

' test_saven Macro
'

'
    Sheets("blad1").Select
      Sheets("blad1").Copy
    
   ActiveWindow.SmallScroll Down:=-54
          Range("T4:X4").Select
            ActiveCell.FormulaR1C1 = "[B][COLOR="red"]???[/COLOR][/B]"
                   ActiveWorkbook.SaveAs Filename:="C:\Documents\[B][COLOR="red"]???[/COLOR][/B].xls", _
                    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
                     ReadOnlyRecommended:=False, CreateBackup:=False
                         ActiveWindow.Close

    ActiveWindow.SmallScroll Down:=-42
              Range("T4:X4").Select
                 Selection.ClearContents

    ActiveWorkbook.Save

End Sub

grtn ptr

 

[Warme bakkertje]

Waarom cellen samenvoegen ? Als in T4 tot X4 niets staat zal de naam toch doorlopen als je deze in T4 typt. Je bespaart je een hoop ellende als je de cellen niet samenvoegt.

 

[buckeru]

Die cellen zijn samen gevoegd, anders klopt de hele layout van het bestand niet meer.
die cellen veranderen iedere keer, als ik het orginele bestand open wordt er daar wat ingevuld.
als ik met het bestand klaar ben wil ik een kopie opslaan onder de naam die in deze cellen staat.
en daarna wordt het orgineel weer gebruikt.

 

[Warme bakkertje]

Sheets("blad1").Copy
    With ActiveWorkbook
        .SaveAs Filename:="C:\Documents\" & Range("T4:X4") & ".xls", _
            FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False
        .Close
    End With
    Range("T4:X4").ClearContents
    ThisWorkbook.Save

 

[buckeru]

Helaas fout code 13?

Helaas gaat het nog niet goed.
er wordt wel een kopie gemaakt, maar daarna loopt de macro vast.

Code 13 ?

Bekijk bijlage test saven.xls

grtn ptr

 

[Warme bakkertje]

Sheets("blad1").Copy
    With ActiveWorkbook
        .SaveAs Filename:="C:\Documents\" & Range("T4") & ".xls", _
            FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
            ReadOnlyRecommended:=False, CreateBackup:=False
        .Close
    End With
    Range("T4:X4").ClearContents
    ThisWorkbook.Save

 

[buckeru]

Bedank warme bakkertje.
het is gelukt

grtn ptr