Combine Multiple Macros

Why dont you post them here ?

Oh Yea, it might help eh XD

1st i want it to save using cell value.

Public Sub SaveAsD1()
    ThisFile = Range("D1").Value
    ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub

2nd i want it to replace all the formula on sheet2 with there actual values.

Sub Replace_Value()
With Range("Print_Area")
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False
End Sub

Then i want it to save sheet 2 on its own. (i just replaced this one with the code you helped me with before the one i was using was saving all the sheets individually, i only needed sheet2)

Sub Split2()
Dim fn As String
fn = Range("FINAL SOLIDS'!C1").Value & ".xls"
Sheets("FINAL_SOLIDS").Copy

ActiveWorkbook.SaveAs Filename:= _
    "C:\Users\BOI\Desktop\AUTO EMAIL\FILES TO EMAIL" & fn
End Sub

Would this be possible to combine?

Since we are saving the file twice with 2 different names, whenever we use the range or sheet comments, its better to name the workbook and the sheet along with it. For e.g. if we are referring to a worksheet, we name the workbook as well. If we are referring to a range, we name the workbook and the sheet to which it pertains. This ensures that the macro works correctly and only on the workbooks we need.

So please provide the workbook names for each code.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. In order to put code tags, either type [CODE] before your code and [/CODE] at the end of it, OR you can highlight your code and click the # icon at the top of your post window.

Run the code for copying Sheet2 first, do the copy and paste special on the worksheet in the newly created workbook, save the new workbook and add code to close it.

Then run the code to save the original workbook.

I meant to add the names in the code.

Why does it need to get done in a specific order?

If you do it the way I suggest you'll end up with the exact same result.

Sean

Everything would be done from the original workbook with something like this.

Sub SplitReplaceSave()
Dim fn As String
Dim wbNew As Workbook
Dim ThisFile As String

    fn = Worksheets("FINAL SOLIDS").Range("C1").Value & ".xls"
    
    Sheets("FINAL_SOLIDS").Copy

    Set wbNew = ActiveWorkbook

    With wbNew.Worksheets(1).UsedRange
        .Copy
        .Range("A1").PasteSpecial xlPasteValues
    End With

    wbNew.SaveAs Filename:= _
                 "C:\Users\BOI\Desktop\AUTO EMAIL\FILES TO EMAIL" & fn

    wbNew.Close SaveChanges:=True

    ' need worksheet reference for D1 to make sure getting correct value
    ThisFile = Range("D1").Value
    
    ThisWorkbook.SaveAs Filename:=ThisFile
    
End Sub

Hello i have similar question, I have a workbook with 8 different sheets. Cuz i dont know hot to write code in VBA, I recorded 8 macros for each individual sheet. What the macro does is gathers the wanted data from that sheets and prints it. And it works great individually. But i have to press 8 buttons to get 8 different .pdf files and then combine them, and there is a lot of the code that is the same in every macro.
Is any of you willing to take a look at my code and rearrange it so that it will took only one press of a button to print the wanted data from all the sheets?
Here is a link to my word.doc that contains all 8 macros: https://dl.dropboxusercontent.com/u/...%20Makro1.docx

Welcome to the Forum.

Unfortunately your post does not comply with Rule 2 of our Forum RULES. Do not post a question in the thread of another member -- start your own thread.

If you feel an existing thread is particularly relevant to your need, provide a link to the other thread in your new thread.

Old threads are often only monitored by the original participants. New threads not only open you up to all possible participants again, they typically get faster response, too.