Combine 3 Macros into one

[Livin404]

Hello,

I am hoping I can combine three macros into one. The macros are to save data after it is entered in to database (User Form) , the second will re-sequence the database in ascending order, and lastly since these are all fed into a Pivot Table - the last macro is the refresh. This will all be done when the Command Button "Save". If I could only get two then it would definitely be the first two. I cannot have people going to the database and trying to manually re-sequence them.

Private Sub CMDSAVE_Click()
Dim msgValue As VbMsgBoxResult
msgValue = MsgBox("Do you want to save Mission?", vbYesNo + vbInformation, "Confirmation")
If msgValue = vbNo Then Exit Sub
Call Submit
Call RESET
End Sub

Private Sub CMDSAVE_Click()
Dim xlSort As XlSortOrder
Dim LastRow As Long
With Sheets("ACTIVITY")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1") = "Date"
.Columns("A:F").Sort key1:=.Range("A2"), order1:=xlAscending, Header:=xlYes
End With
End Sub

Sub RefreshPivotsOnly()
  Dim tblPivot As PivotTable
  For Each tblPivot In ActiveWorkbook.PivotTables
     tblPivot.RefreshTable
  Next tblPivot
End Sub

 

[Colo]

Hi,
Why not use the CALL statement to run those three procedures in sequence, as you have already done in your code? Is there any problem with that?

 

[Livin404]

Hi,
Why not use the CALL statement to run those three procedures in sequence, as you have already done in your code? Is there any problem with that?

Hi thank you, I'm quite familiar with what you're speaking about. I guess it is because it is on a User Form triggered by the “CmdSave” button. For now everything gets put in ascending order by date. I meant to say in descending (most recent dates on top) in my original post. Since the first two are “Private Sub” it may be easier to get a least two in one under the same button. The other one is the refresh button. I can accept one extra button. I'm just trying to prevent people from going to "Data" to refresh the Pivot Table.

Yes this is the User Form which places everything in a Database then ultimately a Pivot table. It's quite beautiful really, just trying to add the cherry on top.

 

[Livin404]

Hi,
Why not use the CALL statement to run those three procedures in sequence, as you have already done in your code? Is there any problem with tha

Hi,
Why not use the CALL statement to run those three procedures in sequence, as you have already done in your code? Is there any problem with that?

Not sure if you were still looking into this. I found someything that I can live with, while I did combine formulas I got what I needed another way. Thank you so much for your consideration.

 

[Colo]

I couldn't help you out but glad it seems that you could solve your problem.