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 |
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 |
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 |
All times are GMT +1. The time now is 08:25 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com