This is the same, but formatted to be more presentable
Posts by royUK
-
-
Here's the best option using a PivotTable based on the data being in a Table so that it is dynamic.
-
-
You don't need a macro for this. Formulas should be enough.
What do you mean by the formulas shouldn't show in cells?
-
Use a file browser
Display MoreCode- Sub SelectFolder()
- Dim sFolder As String
- ' '/// Open the select folder dialog
- With Application.FileDialog(msoFileDialogFolderPicker)
- If .Show = -1 Then ' if OK is pressed
- sFolder = .SelectedItems(1)
- End If
- End With
- If sFolder <> "" Then ' if a file was chosen
- ' *********************
- ''/// put your code in here
- ' *********************
- End If
- End Sub
I don't understand what you are trying to do with your code.
-
My internet went d own for 24 hours and I've just noticed this reply wasn't sent.
You also mentioned that your file was an template fie was xltx. You have provided an xlsx template which will need to be handled differently
-
I get no error using your code. Why are you using Application.ConvertFormula function? What do you think that it does?
In fact why are you using VBA?
-
That's an image. You need to attach the workbook
-
Attach an example workbook
-
I asked for the a sample of the workbook
-
Welcome to the Forum. Please read the Forum Rules to understand how the Forum works and why I have added Code Tags to your post
All VBA code posted in the forum must be wrapped in code tags, which you omitted, including single-line code snippets.Be sure to use them in future posts.
How to use code tags
Just highlight all of the code and press the <> in the post menu above button to add the code tags.
Thanks.
-
Will the workbooks be open. This is some code that combines all open workbooks
Display MoreCode- Sub CombineAllOpenWorkbooks()
- Dim NewFileName As String
- Dim c As Integer
- Dim SheetCount As Integer
- NewFileName = ActiveWorkbook.Name
- c = 1
- Do Until c = 0
- If Windows(c).Visible = True Then
- Windows(c).Activate
- MsgBox ("New file to be created")
- NewFileName = Application.GetSaveAsFilename _
- (, "Microsoft Excel Workbook (*.xl*),*.xl*")
- ActiveWorkbook.SaveAs FileName:=NewFileName, _
- FileFormat:=xlWorkbookNormal
- NewFileName = ActiveWorkbook.Name
- ActiveSheet.Select
- c = 0
- SheetCount = ActiveWorkbook.Sheets.Count
- Else
- c = c + 1
- End If
- Loop
- For c = 1 To Workbooks.Count
- If Windows(c).Parent.Name <> NewFileName And Windows(c).Visible = True Then
- Windows(c).Activate
- ActiveWorkbook.Sheets.Copy after:=Workbooks(NewFileName).Sheets(SheetCount)
- End If
- Next c
- End Sub
-
Why do you need to look up the date? The MIN Function will return the earliest date.
-
This example is taken from a more complex form which is part of a bundle that I created.
You select the column to sort using the ComboBox then click the appropriate sort button
-
The simplest way is to sort the data in the worksheet
-
How can the name be entered in B2? It's already got End Date in it.
-
Attach your workbook
-
Try this
Display MoreCode- Sub CreateWorkBook()
- Dim rCl As Range
- Const sPath As String = "C:\Users\Ak\Documents\Custom Office Templates\"
- sPath = ThisWorkbook.Path
- For Each rCl In Range(" A2:A201").Cells
- Workbooks.Add Template:=sPath & Application.PathSeparator & "Template MultiCharts.xltx"
- With ActiveWorkbook
- .Sheet1.Range("B2").Value = rCl.Value
- .SaveAs ThisWorkbook.Path & Application.PathSeparator & rCl.Value, 51
- .Close True
- End With
- Next rCl
- End Sub
-
Didn't see your last post.
Try this. The template file name will need changing. It will save to the same directory as the file containing the code
Display MoreCode -