Need VBA help

[mduntley]

I am just wondering how this is possible. I am working on a project for work to make things automatic, but I am having a struggle to find a way to have the VBA to save it as a name that is on the form. I have show the formula in D2 that is in D3. I want the file name to be what is in D3, but it will be on a xmlx as this vba will live in a different workbook.

[TABLE="class: grid, width: 530"]
<colgroup><col><col><col><col></colgroup><tbody>[TR]
[TD][/TD]
[TD]a[/TD]
[TD]b[/TD]
[TD]c[/TD]
[TD]d[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Name[/TD]
[TD]Tomato[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Product Number[/TD]
[TD]Product 1234[/TD]
[TD][/TD]
[TD]=CONCATENATE(B2," ",B1,TEXT(TODAY(),"yyyy-mm-dd"))


[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD] [/TD]
[TD] [/TD]
[TD][/TD]
[TD]Product 1234 Tomato2019-07-03[/TD]
[/TR]
</tbody>[/TABLE]

 

[MARK858]

Which workbook is Active at the time of the save?

 

[mduntley]

I have the VBA currently open a excel document to paste the data into and i want that document that was open to be saved.

 

[MARK858]

I don't need to know that you have the VBE open or what workbooks are open.
I need to know which workbook is active because if it isn't the one that you are saving then we need to know the workbook name.

 

[mduntley]

How the VBA is set up, the active workbook that the VBA is on is the workbook need to be saved.

if this is helpful, this is my vba so far,

Sub PreferenceCard()
    Range("A6").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Workbooks.Open Filename:= _
        "C:\Users\name\Desktop\FileName.xlsx", _
        UpdateLinks:=0
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("OR Level Sheet").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C7").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A2").Select
End Sub

 

[MARK858]

So just to be clear, the code is in the workbook being saved and the cell D3 is in a workbook called "FileName" on a sheet called "OR Level Sheet".
Correct?
If FileName is not the real name of the workbook please either post it or let us know that you are aware that you will need to change it as it has to be in the code we write.

 

[mduntley]

I am aware that I need to change the red text to match with the file and the document. I have removed it for company reasons.

 

[MARK858]

Maybe..

    Dim fName As String
    fName = Workbooks("Filename").Sheets("TheSheetName").Range("D3").Value

    ActiveWorkbook.SaveAs Filename:="C:\Users\name\Desktop\" & fName & ".xlsm", _
                          FileFormat:=52, CreateBackup:=False