引用单元格以求和

Question

I am producing a spreadsheet in which some costs are being assigned either 0 or 1 based on a condition, as below;

Range("V12").Select
ActiveCell.Formula = "=IF(T12 < 50000000, 1, 0)"
Range("V12").Select
Selection.AutoFill Destination:=Range("V12:V511"), Type:=xlFillDefault
Range("V12:V511").Select
Calculate

The line Range("V12:V511").Select starts at V12 but I need the final cell to change based on the number placed in cell U3. I'm not sure how to do this, but in essence I want to be able to write something along the lines of Range("V12:VRange("U3").Value - 1").Select so that the value of cell U3 is used in this range.

Also, I want to sum these 0s and 1s over that range but am not sure how to dynamically change the limits of a sum.

Answer 1

Range expects a string so we just need to concatenate the value from U3 with the rest of the address string.

All those line can be replaced with:

ActiveSheet.Range("V12:V" & ActiveSheet.Range("U3")-1).Formula = "=IF(T12 < 50000000, 1, 0)"

Or if your prefer R1C1 notation:

ActiveSheet.Range("V12:V" & ActiveSheet.Range("U3")-1).FormulaR1C1 = "=IF(RC[2] < 50000000, 1, 0)"