Hello,
I am pretty new to excel vba, so please bare with me. Thank you.
I just learned how to enter a function Sumifs into vba excel, and it worked fine until I entered my 3rd criteria, which is an alphanumeric character (including zeros), and it would not complete the full sum function for that last criteria. Here is the code I entered, and the highlighted blue data is the criteria it would not enter:
*Note: I am using very large data, 23 columns, +11k rows.
Dim oblRangePLL1 As Range
Dim oblRangeLO1 As Range
Dim oblRangeFP1 As Range
Dim oblRangeMNAmt1 As Range
Set oblRangePLL1 = Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("A2", Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("A2").End(<wbr>xlDown))
Set oblRangeLO1 = Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("B2", Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("B2").End(<wbr>xlDown))
Set oblRangeFP1 = Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("G2", Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("G2").End(<wbr>xlDown))
Set oblRangeMNAmt1 = Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("J2", Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("J2").End(<wbr>xlDown))
Range("H26").Formula = WorksheetFunction.SumIfs(<wbr>oblRangeMNAmt1, oblRangePLL1, "0968A1", oblRangeLO1, "15", oblRangeFP1, "QSQ0P00Y11")
Thank you for your help in this matter.
mskip
I am pretty new to excel vba, so please bare with me. Thank you.
I just learned how to enter a function Sumifs into vba excel, and it worked fine until I entered my 3rd criteria, which is an alphanumeric character (including zeros), and it would not complete the full sum function for that last criteria. Here is the code I entered, and the highlighted blue data is the criteria it would not enter:
*Note: I am using very large data, 23 columns, +11k rows.
Dim oblRangePLL1 As Range
Dim oblRangeLO1 As Range
Dim oblRangeFP1 As Range
Dim oblRangeMNAmt1 As Range
Set oblRangePLL1 = Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("A2", Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("A2").End(<wbr>xlDown))
Set oblRangeLO1 = Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("B2", Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("B2").End(<wbr>xlDown))
Set oblRangeFP1 = Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("G2", Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("G2").End(<wbr>xlDown))
Set oblRangeMNAmt1 = Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("J2", Workbooks("S_DATA.xlsx").<wbr>Sheets("OBL").Range("J2").End(<wbr>xlDown))
Range("H26").Formula = WorksheetFunction.SumIfs(<wbr>oblRangeMNAmt1, oblRangePLL1, "0968A1", oblRangeLO1, "15", oblRangeFP1, "QSQ0P00Y11")
Thank you for your help in this matter.
mskip