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...
Hi, Thank you for your response. I have placed this code into my program and it works in not finding the file yet when it does find the file it produces an error object code 424 on the line Attachments.Add strFile do you have any ideas why ?
Public Sub FileNfolder()
Dim strFile As String...
I would like to attach the file in an email to send.
I have the coding for sendng an email to a user. it is the arrchment part on this critieria using wildcard for the folder and file name.
Hi,
It will be a wildcard in the coding :
1. I would like to search in a given folder e.g. T:\Audit\Data
2. I would like to select current year and month.
a)
T:\Audit\Data\2014Aug
T:\Audit\Data\2014Sep
T:\Audit\Data\2014Oct
The answer Excel VBA will give is that it will select...
Wonderful web site. I will read with great interest on Edison.
My solution did evolve. I have found that Setting pivot tables you can then set the filters for each of the pivot tables via VBA recording macro as some times just selecting filters does not show the data. if any one has found they...
HI All,
Does any one have a solution to this please.
I would like to search in a given folder e.g. T:\Audit\Data
Within this folder I will have various subfolders e.g.
T:\Audit\Data\2014Aug
T:\Audit\Data\2014Sep
T:\Audit\Data\2014Oct
I would like to select current year and month.
Then I...
I think I have solved it. The Pivot table I used on another sheet had a query built in (Pivot table 7 is a copy. yet when I have used an open pivot table (No MS Query) it has worked ok. must be conflicting MS Query and setting field. the other pivot table does have MS Query and yet I can set the...
Hi, they are using differnet connections.
I just tried one called Pivot Table 7 on the same connection and it has worked.
Do you know why it is not working for different connections.