Hello, I am in need of assistance with a spreadsheet I've been working on (with help from MREXCEL, ty).
Firstly I'm trying to link three macros which I had set up seperately but realise they can run together with one prompt, how do I do this?
Secondly I have been trying to get the DatedSaveData macro (that I tried my first record macro shortcut as I know very little VB) to paste a range of copied values into the first empty column on a sheet I have called "Saved" but so far I am chasing my tail, please help!
Firstly I'm trying to link three macros which I had set up seperately but realise they can run together with one prompt, how do I do this?
Secondly I have been trying to get the DatedSaveData macro (that I tried my first record macro shortcut as I know very little VB) to paste a range of copied values into the first empty column on a sheet I have called "Saved" but so far I am chasing my tail, please help!
Code:
Sub ViewData_Click()
'Unhide cells
Sheet3.Columns("H:J").EntireColumn.Hidden = _
Not Sheet3.Columns("H:J").EntireColumn.Hidden
End Sub
Private Sub CommandButton1_Click()
' Clear cells in a range
Sheets("Sheet1").Range("J10:L56").ClearContents
End Sub
Sub DatedSaveData2()
'
Sheets("Saved").Select
' Insert Date at the top of the first empty column
ActiveCell.FormulaR1C1 = "=NOW()"
' Copy data from sheet "All"
Sheets("All").Select
Range("K11:K39").Select
Selection.Copy
' Paste to first empty cell below date on sheet "saved"
Sheets("Saved").Select
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
'Copy data from sheet "Hoodies"
Sheets("Hoodies").Select
Range("K40:K56").Select
Application.CutCopyMode = False
Selection.Copy
' Paste to first empty cell below last paste
Sheets("Saved").Select
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
' Select sheet "Hoodies"
Sheets("Hoodies").Select
End Sub