Do I have to create each month

[pulary]

Hi all,

I am trying to make an interactive dashboard where the end user can select the year, month, entity name, and project or a combination of all these, that will display a data table and graph accordingly. The problem I am having is the data is not done by month, but rather I am given a total revenue and a length of time (duration). What I am trying to figure out is do I have to create data for each month. My guess is that I will need to break down by month, which is fine, but I am hopeful there is an easier way to do it versus a manual process.

Thanks!

Financial Analyst Excel Test.xlsx
	A	B	C	D	E
1	Entity	Project Name	Estimated Start	Estimated Revenue	Duration (months)
2	BCR	Solar 1	7/1/22	$28,500,000	25
3	BCR	Solar 2	6/1/22	$3,600,000	4
4	BE	Solar 3	6/1/22	$4,200,000	5
5	BCR	Solar 4	7/1/22	$40,000,000	24
6	BCR	Solar 6	8/1/22	$20,000,000	12
7	BCR	Solar 7	1/1/23	$21,000,000	23
8	BCR	Solar 8	8/1/22	$42,000,000	24
9	BE	Solar 9	11/1/22	$11,200,000	8
10	BCR	Solar 10	6/1/22	$4,000,000	13
11	BCR	Solar 11	5/1/22	$11,000,000	12
12	BE	Solar 12	7/1/22	$11,000,000	5
13	BE	Solar 13	6/1/22	$2,200,000	5
14	BE	Solar 14	8/1/22	$95,000,000	12
15	BE	Solar 15	6/1/22	$110,000,000	8
16	BE	Solar 16	8/1/22	$15,000,000	6
17	IME	Solar 17	7/1/22	$330,000,000	16
18	BE	Solar 18	8/1/22	$23,000,000	3
19	IME	Solar 19	8/1/22	$62,000,000	6
20	IME	Solar 20	2/1/23	$1,121,000,000	36
21	IME	Solar 21	8/1/22	$90,000,000	15
22	BE	Solar 22	8/1/22	$32,000,000	12
23	BE	Solar 23	11/1/22	$30,000,000	12
24	BE	Solar 24	11/1/22	$30,000,000	12
Original Inputs

 

[Joe4]

Run-Time error 13 is a data mismatch.
"MyDate1" is declared to be a date:

Dim MyDate1 As Date

If the value that is trying to be returned by this line:

MyDate1=Sheets("Original").Cells(Row1,3)

is not a date (i.e. if it is text), it will return that error.

So make sure that the value is actually a date (and not a text string).

 

[pulary]

Run-Time error 13 is a data mismatch.
"MyDate1" is declared to be a date:

Dim MyDate1 As Date

If the value that is trying to be returned by this line:

MyDate1=Sheets("Original").Cells(Row1,3)

is not a date (i.e. if it is text), it will return that error.

So make sure that the value is actually a date (and not a text string).

Thank you so much for the help. When you said data mismatch, I was quickly able to find the issue.

Works perfectly now.

Phillip

 

[Joe4]

You are welcome.
Glad I was able to help.