[img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/1-1.png[/img] [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/2.png[/img] [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/3.png[/img] [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/4.png[/img]
Hello Raghu, Your code worked fine for me. I did have to add the following line of code in order...
You can copy the columns using copy method, please see the below code: [code] Sheets("Source").Columns("D:H").Copy Destination:=Sheets("SheetTarget").Range("D1") [/code] Please provide...
Hello,You can add two buttons to choose files and add one more button to open and copy the required information....
Here is one way you can do it with out a macro. 1. Create a table of your data. 2....
All Sheets must be named Sheets1, Sheet2 ect. You must also have a sheet called Master. [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/07/master.png[/img] ...
Hi Jyothi, Here is the link to find more details about ComboBox. Combo Box Regards
Hi, I would like to know more details about your query.
It’s like I got 4 folders (North, South,East, West) in a path and inside each region’s folder We got a folder named after our customers.
Now inside that customers folder we prepare pricing for every month in an excel file.
What I need now is a VBA Code to convert the excel files in these folders and save them to PDF in the same folder.
Kindly help me out with this.
I did not write this code but I think that it may help you. For more information about this code visit : http://www.contextures.com/excelvbapdf.html
‘for Excel 2010 and later
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As String
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), “yyyymmdd\_hhmm”)
‘get active workbook folder, if saved
strPath = wbA.Path
If strPath = “” Then
strPath = Application.DefaultFilePath
strPath = strPath & “\”
‘replace spaces and periods in sheet name
strName = Replace(wsA.Name, ” “, “”)
strName = Replace(strName, “.”, “_”)
‘create default name for savng file
strFile = strName & “_” & strTime & “.pdf”
strPathFile = strPath & strFile
‘use can enter name and
‘ select folder for file
myFile = Application.GetSaveAsFilename _
FileFilter:=”PDF Files (*.pdf), *.pdf”, _
Title:=”Select Folder and FileName to save”)
‘export to PDF if a folder was selected
If myFile <> “False” Then
‘confirmation message with file info
MsgBox “PDF file has been created: ” _
& vbCrLf _
MsgBox “Could not create PDF file”
Thanks!!!! will try it out and let you know
Please try this as well.
Dim Fname As String
Fname = InputBox(“Enter file name to save”, “Save as PDF”)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Please share using the share button above.
If you found the answer is best answer for your question, Please mark as 'best answer' by clicking on the right tick mark icon at the left side of the answer.
Found the answer useful and wants to credit the user, then vote the answer (vote up).