PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBAspara utan att makro och länkar finns med i den nya filenspara utan att makro och länkar finns med i den nya filen
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2013-04-10 10:29
 

jag har fått till det nästan som jag vill, hur lyder koden för att spara den nya filen utan makro, länkar mm.
allrså den skall bara sparas med format och värden.

Filen är en mall för fakrutering
Filen har på blad 1 min commandoknapp, blad 2 en kopia av blad 1 utan kombinationslister för val av kunder och kommandoknapp
jag har gjort kod så den bara sparar ned blad 2, själva fakturan, men jag vill inte ha med makro/länkar när den öppnas....

Private Sub CommandButton1_Click()
FakturaNr = Range("E7")
Range("E7") = FakturaNr + 1
Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
Path = "C:\Users\Ulla\Desktop\Fakturor\"
FileName1 = Range("A11")
FileName2 = Range("E7")

Dim wb As Workbook
Worksheets("Blad2").Copy
Set wb = ActiveWorkbook
wb.SaveCopyAs Filename:=Path & FileName2 & "-" & FileName1 & ".xls"
wb.Close SaveChanges:=False

End Sub

Nytt inlägg
 2013-04-11 13:42
 

Pröva dessa tillägg till koden i fetstil:

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
FakturaNr = Range("E7")
Range("E7") = FakturaNr + 1
Dim Path As String
Dim FileName1 As String
Dim FileName2 As String
Path = "C:\Users\Ulla\Desktop\Fakturor\"
FileName1 = Range("A11")
FileName2 = Range("E7")
Dim wb As Workbook
Worksheets("Blad2").Copy
Set wb = ActiveWorkbook
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("E7").Select
wb.SaveCopyAs Filename:=Path & FileName2 & "-" & FileName1 & ".xls"
wb.Close SaveChanges:=False
End Sub

Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAspara utan att makro och länkar finns med i den nya filenspara utan att makro och länkar finns med i den nya filen

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter