I6: =SUMPRODUCT(($D$3:$D$12>=I$5)*($D$3:$D$12<J$5)*($C$3:$C$12))
copy across
NB: adding an image makes it harder for us to reproduce the problems
To get a quicker, nmore accurate solution make a sample file with the key data you need ie: Column C&D and Rows 5&6
I generally prefer to get one range correct, typically the X Axis values ie: Weeksbb
then offset the rest from that
so
YBB: =OFFSET(weeksbb,,4)
I suspect the error in your existing formula is due to the 2 blank rows 13 & 15 in the YBB Data
Variable Obfuscation is my favorite technique for securing code
It scrambles variable and sub/function names names making the code nearly unreadable
have a look at it here
https://www.spreadsheet1.com/excel-vba-code-obfuscation.html
Make sure the workbook is selected
In the Immediate windows type
Worksheets("Sheet091").Delete
But better to do it from the Workbook rather than VBA
If you have the wrong file active, you may inadvertantly delete worksheets you didn't intend to
2 errors
see code below
Private Const ciMaxLenSheetName As Integer = 31
Sub AddNewWorksheet()
Const cstrTitle As String = "Add new worksheet"
Const cstrPrompt As String = "Give the name for the new worksheet." & vbCrLf & "Not allowed are the characters: : \ / ? * [ and ]"
Dim strInput As...
The line
If SheetExists(strSheetName:=strInput) Then
is looking for a function called SheetExists()
and also later it looks for IsValidSheetName()
So add the following code after the end of the existing Sub
Public Function SheetExists(strSheetName As String, Optional wbWorkbook As...
Not directly an asnwer to the post but I use a small app Better File Rename
https://www.publicspace.net/windows/BetterFileRename/
It is awesome and fully integrates into Windows
Goto File, Options, Add-ins
Check the Analysis Toolpak option
Go to the file and then goto the Data Tab and Select the Data Analysis button
Scroll down and select Regression
Complete the dialog as below
Note if you include the labels Row Row 3, you need to Tick Labels
Click OK
Then...
Go into VBA and add this code to the SAVE Button
ie: Double click the Save button and add this code
Private Sub CommandButton1_Click()
Dim lr As Integer
If CheckBox1 Then
lr = Range("H" & Rows.Count).End(xlUp).Row
Cells(lr + 1, 8).Value = TextBox2.Value
Cells(lr + 1, 9).Value =...
Grah
This is a limitation of the Xenforo blog software
Have a read of this article
https://xenforo.com/community/help/bb-codes/
I can’t find any addins that support M
also Mr Excel uses a different blogging platform
have a look at these two posts
Advanced Filter:
Move Data to other Sheets
http://chandoo.org/wp/2012/05/14/vba-move-data-from-one-sheet-to-multiple-sheets/
Advanced Filter Move Data to other Files
http://chandoo.org/wp/2011/10/19/split-excel-file-into-many/
Try this
Private Sub ListBox1_Click()
Dim var1 As Variant
var1 = Range("Name").Value
Dim var2 As Variant
var2 = Range("Period").Value
Dim i As Integer, mySel As Variant
For i = 1 To UBound(var1)
' Debug.Print i, var1(i, 1)
If var1(i, 1) = ListBox1.Value Then mySel = i
Next...
Please have a read of the forum rules
https://chandoo.org/forum/threads/site-rules-new-users-please-read.294/
Then read this solution
https://chandoo.org/wp/hui%e2%80%99s-excel-report-printer/