Hi,
I was wondering if anyone can tell me what ive done wrong in this VB code im using.(ill post below) Im trying to use it to place formulas in a column that wont expand down the column if I try manually. Please let me know what you all think
Thanks Casey
Sub FormulaExpansion()
'
' FormulaExpansion Macro
' Macro recorded 10/8/2002 by cfrank
'
Dim counter
Dim i As Integer
' Input box to determine the total number of rows in the worksheet.
counter = 384
ActiveCell.Select
' Loops through the desired number of rows.
For i = 1 To counter
' Checks to see if the active cell is blank.
Selection.Formula = "=IF(C4<A" & i + 11 & ",B" & i + 11 & "-(((A" & i + 11 + "-C3)/D4)+B3),0)"
ActiveCell.Offset(1, 0).Select
Next i
'
End Sub
I was wondering if anyone can tell me what ive done wrong in this VB code im using.(ill post below) Im trying to use it to place formulas in a column that wont expand down the column if I try manually. Please let me know what you all think
Thanks Casey
Sub FormulaExpansion()
'
' FormulaExpansion Macro
' Macro recorded 10/8/2002 by cfrank
'
Dim counter
Dim i As Integer
' Input box to determine the total number of rows in the worksheet.
counter = 384
ActiveCell.Select
' Loops through the desired number of rows.
For i = 1 To counter
' Checks to see if the active cell is blank.
Selection.Formula = "=IF(C4<A" & i + 11 & ",B" & i + 11 & "-(((A" & i + 11 + "-C3)/D4)+B3),0)"
ActiveCell.Offset(1, 0).Select
Next i
'
End Sub
