It runs flawlessly for me, no errors?
Have you put the code in the Sheet1 worksheet object, like shown below or in a code module?
It needs to be in the Worksheet object
On the capacity Summary Sheet
Cell B2: Type 1/9/2021 ie: A date
You can apply a Custom Number format of DDDD
Cell B4:
=SUMPRODUCT(('Capacity Tracker Total'!$D$12:$R$100) * ('Capacity Tracker Total'!$B$12:$B$100="Total Number of Users Servicing") * (MONTH('Capacity Tracker...
Mark
Firstly, Welcome to the Chandoo.org Forums
Next, When learning Excel ensure that you use the correct nomenclature/names for various objects
eg: Your question says:
I create a display using data in Row a:
Row to use: A
But you actually mean
I create a display using data in Row 2...
I think this does what you want ?
=SUM(INDIRECT("'"& SEQUENCE(A5,A1) & "'" & "!A1")) Ctrl+Enter
If you wanted the whole column
=SUM(INDIRECT("'"& SEQUENCE(A5,A1) & "'" & "!A1:A5")) Ctrl+Enter
Select Cells G10:G18
Select Conditional Formatting, New Rule, Use a Formula
use: =$H$7=1 and select White Font Color
The repeat the process
using =and($H$7=2,G10<0) as the formula
and apply the Red color
enjoy
You do realise that this can't be solved using a linear distribution?
Firstly there are 35 records with a value less than 123.9, that is records whose value is less than a value to get 150 points
That uses up 5,250 points leaving 10,000-5,250=4,750 to be distributed to the remaining 13 values...
You may want to try
=Sum(INDIRECT(H2#&"!$A$1") ) Ctrl+Shift+Enter
or
=Sumproduct(INDIRECT(H2#&"!$A$1") )
Also supplying a sample file is the fastest way to get an accurate solution
Have a look at teh following code
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Intersect(Range("B3:B35000"), Target) Is Nothing Then Exit Sub
Dim break As Boolean
break = False
Dim myString As String
myString = ""
Dim i As Integer
i = 1
Do
If...
Add a field to your data called Date2 or anything else
Make that field =A2+B2
Then in the 3D map
Refresh data
Then drag the new field name from the Field Picker into the Time dropdown
Enjoy
Time without a date assumes that the year is 0
CStr() is Convert String
so CStr(lRow1) converts the number lRow1 froma Number to a Text value for us in the remainder of the formula
In VBA click on CStr and press F1 for an explanation of the function
You are trying to execute the VLookup function in VBA by using Application.Worksheetfunction
What you need to do is save the Formula as a text string representing the formula into the cells
Change the line to read as below
Range("C2:C" & lRow).Formula = "=VLookup($B2, $K$2:$L$" + CStr(lRow1)...
I have changed the Worksheet event that is used to trigger the code and added a few tweaks
Replace the existing code with the code below:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(ActiveCell, Range("A:A")) Is Nothing Then Exit Sub
Application.EnableEvents = False
On...