Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Saves as button
Hi
I have a small problem. I have made a button where when the user pess it saves the current excel shetet in a specific file location. The current code I use is. Private Sub CommandButton1_Click() With ActiveSheet ..Parent.SaveAs Filename:="N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\1 Sprøjtestøbemaskiner\190112\" & "Checkliste Sprøjtestøbemaskine" & " " & ..Range("C2").Value & ".xls", _ FileFormat:=xlWorkbookNormal End With ' End Sub As the directory folder changes according to a specific cell value I want to automate this. In the example above the directory path is N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\1 Sprøjtestøbemaskiner\190112\ 190112 should change according to a specific celle value. How do I co this? I've been trying something like this ..Parent.SaveAs Filename:="N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\1 Sprøjtestøbemaskiner\" & .Range("C2").Value & "\" & "Checkliste Sprøjtestøbemaskine" & ".xls", _ Can you help? Ticotion |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Saves as button
Private Sub CommandButton1_Click()
Const FILE_ROOT As String = _ "N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\" & _ "1 Sprøjtestøbemaskiner\<dir\Checkliste Sprøjtestøbemaskine" With ActiveSheet .Parent.SaveAs _ Filename:=Replace(FILE_ROOT, "<dir", .Range("C2").Value) & ".xls", _ FileFormat:=xlWorkbookNormal End With End Sub -- __________________________________ HTH Bob "Ticotion" wrote in message ... Hi I have a small problem. I have made a button where when the user pess it saves the current excel shetet in a specific file location. The current code I use is. Private Sub CommandButton1_Click() With ActiveSheet .Parent.SaveAs Filename:="N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\1 Sprøjtestøbemaskiner\190112\" & "Checkliste Sprøjtestøbemaskine" & " " & .Range("C2").Value & ".xls", _ FileFormat:=xlWorkbookNormal End With ' End Sub As the directory folder changes according to a specific cell value I want to automate this. In the example above the directory path is N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\1 Sprøjtestøbemaskiner\190112\ 190112 should change according to a specific celle value. How do I co this? I've been trying something like this .Parent.SaveAs Filename:="N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\1 Sprøjtestøbemaskiner\" & .Range("C2").Value & "\" & "Checkliste Sprøjtestøbemaskine" & ".xls", _ Can you help? Ticotion |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Saves as button
That works. Thank you for your quick reply "Bob Phillips" wrote: Private Sub CommandButton1_Click() Const FILE_ROOT As String = _ "N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\" & _ "1 Sprøjtestøbemaskiner\<dir\Checkliste Sprøjtestøbemaskine" With ActiveSheet .Parent.SaveAs _ Filename:=Replace(FILE_ROOT, "<dir", .Range("C2").Value) & ".xls", _ FileFormat:=xlWorkbookNormal End With End Sub -- __________________________________ HTH Bob "Ticotion" wrote in message ... Hi I have a small problem. I have made a button where when the user pess it saves the current excel shetet in a specific file location. The current code I use is. Private Sub CommandButton1_Click() With ActiveSheet .Parent.SaveAs Filename:="N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\1 Sprøjtestøbemaskiner\190112\" & "Checkliste Sprøjtestøbemaskine" & " " & .Range("C2").Value & ".xls", _ FileFormat:=xlWorkbookNormal End With ' End Sub As the directory folder changes according to a specific cell value I want to automate this. In the example above the directory path is N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\1 Sprøjtestøbemaskiner\190112\ 190112 should change according to a specific celle value. How do I co this? I've been trying something like this .Parent.SaveAs Filename:="N:\3 PTA & Vedligehold\6 Dokumentation\4 Plast\1 Sprøjtestøbemaskiner\" & .Range("C2").Value & "\" & "Checkliste Sprøjtestøbemaskine" & ".xls", _ Can you help? Ticotion |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
What happens when Excel 07 saves? | Excel Discussion (Misc queries) | |||
Are two Saves the same? | Excel Programming | |||
A Button that saves a workbook in the background | Excel Programming | |||
button that opens open dialogs but saves path to sheet | Excel Programming | |||
counting saves | Excel Discussion (Misc queries) |