K
Kenny
I allow the user to select the begining 2 cells, the over all range,
starting date, and pattern date. however when I try to apply the
autofill statement I'm getting an error... ":="
code...
Sub CashFlows()
Dim rRange1 As Range
Dim rRange2 As Range
Dim dDueDate As String
Dim dPatternDate As String
Set rRange1 = Application.InputBox("Enter Begining 2 Cell Range: ", , ,
, , , , 8)
Set rRange2 = Application.InputBox("Enter Destination Cell: ",
Type:=8)
dDueDate = Application.InputBox("Enter due date... mm/dd/yyyy", , , , ,
, , 2)
dPatternDate = Application.InputBox("Enter pattern date... mm/dd/yyyy",
, , , , , , 2)
[rRange1] = Array(dDueDate, dPatternDate)
RRANGE1.AUTOFILL(RRANGE2,XLFILLFORMATS AND XLFILLSERIES)
End Sub
.........
I know this is trival....but thank you to anyone who has time. The
book I have is not as descriptive as I would like.
starting date, and pattern date. however when I try to apply the
autofill statement I'm getting an error... ":="
code...
Sub CashFlows()
Dim rRange1 As Range
Dim rRange2 As Range
Dim dDueDate As String
Dim dPatternDate As String
Set rRange1 = Application.InputBox("Enter Begining 2 Cell Range: ", , ,
, , , , 8)
Set rRange2 = Application.InputBox("Enter Destination Cell: ",
Type:=8)
dDueDate = Application.InputBox("Enter due date... mm/dd/yyyy", , , , ,
, , 2)
dPatternDate = Application.InputBox("Enter pattern date... mm/dd/yyyy",
, , , , , , 2)
[rRange1] = Array(dDueDate, dPatternDate)
RRANGE1.AUTOFILL(RRANGE2,XLFILLFORMATS AND XLFILLSERIES)
End Sub
.........
I know this is trival....but thank you to anyone who has time. The
book I have is not as descriptive as I would like.