gemme data i celle i variabel og bruge variablen

Sub test()
Sti = "C:\"
Navn = Range("A6").Value
ChDir Sti

ActiveWorkbook.SaveAs Filename:= _
Sti & Navn, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Og med lidt sikkerhed:

Sub test()
Sti = "C:\"
Navn = Range("A6").Value
If Right(Navn, 4) <> ".xls" Then
    MsgBox "Fejl i filnavnet"
    Exit Sub
End If

On Error Resume Next
ChDir Sti
If Err.Number = 76 Then
    Err.Clear
    MsgBox "fejl i stien"
    Exit Sub
End If

ActiveWorkbook.SaveAs Filename:= _
Sti & Navn, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub

Eller med den aktuelle sti:

Sub test()
Sti = ThisWorkbook.Path & "\"
Navn = Range("A6").Value
If Right(Navn, 4) <> ".xls" Then
    MsgBox "Fejl i filnavnet"
    Exit Sub
End If


ActiveWorkbook.SaveAs Filename:= _
Sti & Navn, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub

Jeg er ikke med på hvordan Sikkerheds IF løkken virker, jeg har lige undladt så virker det fint, bortset fra at filen ikke får .xls format.

Ok, du skrev bare: gem worksheet som "Navn.xls"

fandt ud af at filnavnet ikke gik fordi der var et "." i cellen eks. "hansen % Co.", der vil også kunne forekomme "," og "/" kan man lave et tjek som erstatter eller fjerne de tegn som windows ik vil godtage i filnavne?

En fil kan ikke have et slash (/) i navnet. Punktum skulle ikke være noget problem.

Hvordan ser din kode ud nu?

Og hvorfor skal du ikke gemme som .xls?

Navn = Replace(Navn, "/", "_") 'Erstatter slash med underscore

Sub celleværdi2()

Sti = ThisWorkbook.Path & "\"
Navn = Range("A6").Value
'If Right(Navn, 4) <> ".xls" Then
'    MsgBox "Fejl i filnavnet"
'    Exit Sub
'End If


ActiveWorkbook.SaveAs Filename:= _
Sti & Navn, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False


End Sub


jeg fjernede "." efter "Co" i cellen og så kunne den godt gemme som .xls og ja "/" bliver et problem. Har fjernet sikkerheds tjekket, for den poppede op.

Sikkerhedschecket popper op, fordi stien ikke eksisterer. Ellers bliver filen ikke gemt, og du får en error. Men hvorfor vil du skrive / i filnavnet?

Sub celleværdi2()

Sti = ThisWorkbook.Path & "\"
Navn = Range("A6").Value
Navn = Replace(Navn, "/", "_") 'Erstatter slash med underscore

'If Right(Navn, 4) <> ".xls" Then
'    MsgBox "Fejl i filnavnet"
'    Exit Sub
'End If


ActiveWorkbook.SaveAs Filename:= _
Sti & Navn, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False


End Sub

Det vil jeg heller ikke men der vil forekomme navne hvor der er "/" med i, trukket fra en database, så der skal tages forbehold for det :)

Ok, det gør 17/09-2007 14:41:07

Sådan her ser det ud pt.

Sub celleværdi()

Sti = ThisWorkbook.Path & "\"  ' definer sti hvor skabelon skal gemmes som anden fil
Workbooks.Open Filename:= _
"C:\navneholder.xls" ' åben listen over filnavne
Navn = Range("A3").Value    ' sæt variablen NAVN lig værdien i cellen A3
'If Right(Navn, 4) <> ".xls" Then
'    MsgBox "Fejl i filnavnet"
'    Exit Sub
'End If

Navn = Replace(Navn, "/", "_") 'Erstatter slash med underscore
Navn = Replace(Navn, ".", " ") 'Erstatter slash med underscore
Navn = Replace(Navn, ",", " ") 'Erstatter slash med underscore

ActiveWindow.Close        ' luk navne listen
ActiveWindow.ActivateNext ' aktiver skabelon filen

' Gem filen med navnet fra navne listen
ActiveWorkbook.SaveAs Filename:= _
Sti & Navn, FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

End Sub

Ok, tak for point.