filename1

Hi. I got this code (below), that users submitt some text and values, then it saves the file as a .pdf. This works perfect, but, at the line ***foldername = .SelectedItems(1)*** it opens filebox and lets users select a folder to save the pdf file at, but is there a way to show the existing...

Hi everyone, Newbie question here so any help I get I'll be grateful! I tried using the following script to save a spreadsheet onto sharepoint which i've opened with vba on another spreadsheet. Path = "http://sharepoint.com/" filename1 = " Test File" dtt = Format(CStr(Now), "hhmm")...

im getting a path error for somre reason. what is wrong with my path? Sub Autoit() Dim FileName1 As String FileName1 = "C:\Program Files (x86)\AutoIt3\AutoIt3.exe e:\1\glassshatter.au3" runscript = Shell(FileName1) End Sub

Private Sub CommandButton1_Click() Dim path As String Dim filename1 As String path = ThisWorkbook.path filename1 = Range("K2").Text Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=filename1 & ".txt", FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True End Sub...

I have a script that creates a folder (if non already exists) then saves an excel file in this folder and it works great but a new request had come up where I need to create 2 sub folders with in this new folder... 1 called "drawings" and one called "Obsolete" this is my present code: Private...

Dim path1 As String Dim Filename1 As String Application.ScreenUpdating = False path1 = Range("I7").Text Range("A1:f40").Select Selection.Copy Sheets("Laser").Select Sheets.Add After:=ActiveSheet Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone...

This is the same formular I saw work however it continualy gives me run time error. Can anyone help?? Private Sub CommandButton1_Click() Dim path As String Dim filename1 As String path = "C:\driver demo" filename1 = Range("D2").Text Application.DisplayAlerts = False ActiveWorkbook.SaveAs...

I have this and it runs when the workbook is open but it closes after it runs. Any help would be great thanks. Private Sub Workbook_open() Dim path As String Dim filename1 As String ' copy and paste Sheets("Sheet1").Cells.Copy Sheets("Sheet1").Cells.PasteSpecial Paste:=xlPasteValues...

Hello, I have been unable to find a code that allows me to move the current workbook from one folder into another so I thought of the idea of a save as that saves in the desired folder but also kills the file in the current folder. I have gotten the save to work but not the kill. The file is...

Hi all, I'm trying to write a macro that saves a sheet as a unique name, varying upon the value of a specific field. For example a name I would be after would be "JR Export MAR". This is what I have so far, however it is't working. Sub Macro1() ' ' Macro1 Macro ' ' Dim Filename1 As...

Hi, I have a macro which runs when the workbook is closing where I can create the filename. Sub shiftchnage() ' ' shiftchnage Macro ' FileName1 = InputBox("Input filename ", "Filename") ActiveWorkbook.Save ChDir "c:\" ActiveWorkbook.SaveAs Filename:="K:\ESS- 2005\Production Meeting\Daily 6...

Hi Guys. So, I have a new user for the main PC (Logging in with own PC login details), and the Doc that I need all users on the PC to be able to use has the below lines of code that is currently causing a 'Run Time Error 76 - Path not found' error message for debugging. However, I have compared...

I am using following code to refresh the workbook. However, If I have more than one workbook (for example 10) then how do I optimize my code. OR Do I have to repeat code 10 times? Any idea, please. Sub refresh() Application.ScreenUpdating = False Dim filename1 As String filename1 =...

Hi Friends! I'm making my first attempt at VBA, trying to save a file using cell data to a file location. Here's what I have: Private Sub CommandButton1_Click()Dim Path As String Dim FileName1 As String Dim FileName2 As String Path = “H:\Audit Vendor Resources\Quality Review...

Using Excel 2016, I am trying to create a "save as" button and pull data from 3 cells to save the file. The problem is that cell S2 contains a date (which I need in the file name) but I can't seem to get it to work. When I test it and replace the date with text, it works. Can anyone help. Below...

I want to have a button in a workbook that will allow me to save a file name from values in C3 and D3 + add the date and save it to a network drive (eg. o:\customer drawings\ "value B3" \) so to resume 1 I need to check to see if the folder exists, if not create it from value B3... then same...