[Helenahatropu]

Hej
Jag är ny på makro och jag vill ha hjälp med att få till det första; att makrot ska spara ner filen med namnet som finns i mitt fil kolumn V rad 87samt spara ner den under rätt folder på nätverket. Kan ni hjälpa mig för det fungerar inte, den sparar inte ner den rätt.

Tack på förhand/ Helena


Public Sub test()
ThisFile = Range("V87").Value
ActiveWorkbook.SaveAs Filename:="N:\SE_Shared\Affarsutveckling\Master Data\Cust Master\KUNDUPPGIFTER\kundnummer"
ThisFile

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


If ActiveWorkbook.Path <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "<font size=""3"" face=""Calibri"">" & _
"Hej!<br><br>" & _
"Ny kunduppgift, vänligen fyll i data och skicka vidare inom ledtid! :<br><B>" & _
ActiveWorkbook.Name & "</B> is created.<br>" & _
"klicka på länken : " & _
"<A HREF=""file://" & ActiveWorkbook.FullName & _
""">Klicka på länk</A>" & _
"<br><br>Hälsningar," & _
"<br><br>NPD ansvarig</font>"


On Error Resume Next
With OutMail
.To = "helena.frejd@carlsberg.se"
.CC = ""
.BCC = ""
.Subject = Range("A78" Or "F31")

.HTMLBody = strbody
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
Else
MsgBox "The ActiveWorkbook does not have a path, Save the file first."


End If

End Sub

[Monshi]

Du menar kanske att skriva
ActiveWorkbook.SaveAs Filename:="N:\SE_Shared\Affarsutveckling\Master Data\Cust Master\KUNDUPPGIFTER\kundnummer" & ThisFile

?
om då filnamnet/del av namnet finns i variabeln ThisFile.

Ett litet tips:
Öppna VBA editorn, klicka menyn Verktyg - > Inställningar
Bocka för att variabler måste deklareras.
Ger att alla i alla framtida moduler/böcker du skapar kommer
Option Explicit
skrivas in och du blir tvungen att deklarera allt.

[Helenahatropu]

Hej
Jag får inte till detta ändå, "Compile error" expected expression

nedan rad blir rödmarkerad:
ActiveWorkbook.SaveAs Filename:= "N:\SE_Shared\Affarsutveckling\Master Data\Cust Master\KUNDUPPGIFTER\ "&

hela koden som jag har i makrot:

Public Sub test()

Dim sFile As String
sFile = Range("v87").xls
ActiveWorkbook.SaveAs Filename:= "N:\SE_Shared\Affarsutveckling\Master Data\Cust Master\KUNDUPPGIFTER\ "&
sFile


Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String


If ActiveWorkbook.Path <> "" Then
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "<font size=""3"" face=""Calibri"">" & _
"Hej!<br><br>" & _
"Ny kunduppgift, vänligen fyll i er funktions fält och skicka vidare inom ledtid! :<br><B>" & _
ActiveWorkbook.Name & "</B> is created.<br>" & _
"klicka på länken : " & _
"<A HREF=""file://" & ActiveWorkbook.FullName & _
""">Klicka på länk</A>" & _
"<br><br>Hälsningar," & _
"<br><br>NPD ansvarig</font>"


On Error Resume Next
With OutMail
.To = "helena.frejd@carlsberg.se"
.CC = ""
.BCC = ""
.Subject = Range("v87")

.HTMLBody = strbody
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
Else
MsgBox "The ActiveWorkbook does not have a path, Save the file first."


End If

End Sub

[Monshi]

kan problemet vara så enkelt att du har en radbrytning där som inte ska vara där?

Test att skriv
Dim fName As String
fName = "N:\SE_Shared\Affarsutveckling\Master Data\Cust Master\KUNDUPPGIFTER\" & Range("v87") &".xls"

Ha, nu såg jag.
&-tecknet klistrar ihop strängar. Du hämtar ett värde från Range("V87") och använder det som del i filnamnet.

En detalj, du bör även ange vilket blad du hämtar värdet ifrån, exempelvis genom att skriva
Blad1.Range("V87")
eller än hellre namnge cellen men det kanske är överkurs.

Samt ActiveWorkbook? Ofta bättre att använda ThisWorkbook.