Hi I found something like this works for me. will have to change the forumula to work with this spreadsheet. I have another one with different pont of referenaces..... it works going back 5 days with today being -2 days. =IFERROR(GETPIVOTDATA("Incident...
In htr epivot table example A5 to A28 this could become more dates A5 to A31 also it could be come less. Column B would have the totals.
I want to be able to state =Today()-2 will be 06/04 as 08/04 is today. and then will count the numbers for the the date and previous and place the total...
Hi.
I have a pivot table that updates each day. It has various dates showing when a task is due e.g 23/03/2015 or 08/04/2015 Also I have a Cell at the top of the Spreadsheet where I would like to enter a formula that will lookup if the date in the pivot table and enter in the cell box. THis is...
Hi Naray, Thanks for the feedback. I have my solution and also I have now learnt about Application.Callerwhich will be usful for another project I am working on. many thanks once again.
My Final Attempt !!!!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim UserChoice As Date
On Error Resume Next
UserChoice = Range("A1").Value
On Error GoTo 0
'Setup the select.
Select Case UserChoice
Case 1
Application.Run "macro1"
Case 2
Application.Run "macro2"
Case 3...
This is where I am up to at present. A1 has Today() in format mmmm = August
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CheckMon As Date
CheckMon = Range("A1").Value
If CheckMon = August Then
Call macro1
Else
If CheckMon = September Then
Call macro2
Else
If CheckMon = October...
Hi All,
I have a VBA program with 12 Buttons. each button is linked to showing a month in a spreasheet with various data...
e.g. 1 = November
2= December
3= January
I would like to when the spreadsheet is opened to :
select the button for THIS MONTH.
Each button is linked to a macro so...
Hi, I have solved it. it was the location of my coding. I placed within the email code and not calling the code and it has worked. many thanks Shriva.....
Dim strFile As String
strFile = "C:\Test\" & Format(Now, "yyyymmm") & "\Banqueting Report " & Format(Now, "ddmmyy") & ".xlsx"
If...