AutoFill to start with Selected Cell

H

Hilvert Scheper

My VBA looks for a cell first, then Selects another Cell in the same Row, and
then puts a Formula in the Active Cell,
and then I have a Problem trying to Auto-Fill this formula;
When dragging the Formula down I need to define a Range starting with the
Active Cell, and I can't seem to get this to work.
What do I put instead of "ActiveCell" in my Macro here below:

Columns("C:C").Select
Selection.Find(What:="NO", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Select
Cells(Selection.Row, "G").Select
ActiveCell.FormulaR1C1 = _

"=IF(COUNTIF(RC[-2],""*"")>0,IF(RC[-2]=RC[-6],""OK"",""WRONG!!!""),""@"")"
Selection.AutoFill Destination:=Range("ActiveCell:G7200"),
Type:=xlFillDefault

I would really appreciate any help on this, for which Many Thanks in advance!!
Hilvert
 
M

Mike Fogleman

Destination:=Range(ActiveCell.Address & ":G7200")

Assuming the Active cell is in column G.

The following code will filldown the formula in E1 as far down column E as
there is data in column D.
Range("E1", Range("D1").End(xlDown)).Offset(0, 1).FillDown

Mike F
 
H

Hilvert Scheper

Brilliant, Just what I needed. Thank You very much indeed Mike!!

Mike Fogleman said:
Destination:=Range(ActiveCell.Address & ":G7200")

Assuming the Active cell is in column G.

The following code will filldown the formula in E1 as far down column E as
there is data in column D.
Range("E1", Range("D1").End(xlDown)).Offset(0, 1).FillDown

Mike F
Hilvert Scheper said:
My VBA looks for a cell first, then Selects another Cell in the same Row,
and
then puts a Formula in the Active Cell,
and then I have a Problem trying to Auto-Fill this formula;
When dragging the Formula down I need to define a Range starting with the
Active Cell, and I can't seem to get this to work.
What do I put instead of "ActiveCell" in my Macro here below:

Columns("C:C").Select
Selection.Find(What:="NO", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Select
Cells(Selection.Row, "G").Select
ActiveCell.FormulaR1C1 = _

"=IF(COUNTIF(RC[-2],""*"")>0,IF(RC[-2]=RC[-6],""OK"",""WRONG!!!""),""@"")"
Selection.AutoFill Destination:=Range("ActiveCell:G7200"),
Type:=xlFillDefault

I would really appreciate any help on this, for which Many Thanks in
advance!!
Hilvert
 
M

Mike Fogleman

That code was actually given to me by Tom Olgivy a few years ago, and I
thought it was brilliant then.

Mike F
Hilvert Scheper said:
Brilliant, Just what I needed. Thank You very much indeed Mike!!

Mike Fogleman said:
Destination:=Range(ActiveCell.Address & ":G7200")

Assuming the Active cell is in column G.

The following code will filldown the formula in E1 as far down column E
as
there is data in column D.
Range("E1", Range("D1").End(xlDown)).Offset(0, 1).FillDown

Mike F
Hilvert Scheper said:
My VBA looks for a cell first, then Selects another Cell in the same
Row,
and
then puts a Formula in the Active Cell,
and then I have a Problem trying to Auto-Fill this formula;
When dragging the Formula down I need to define a Range starting with
the
Active Cell, and I can't seem to get this to work.
What do I put instead of "ActiveCell" in my Macro here below:

Columns("C:C").Select
Selection.Find(What:="NO", After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Select
Cells(Selection.Row, "G").Select
ActiveCell.FormulaR1C1 = _

"=IF(COUNTIF(RC[-2],""*"")>0,IF(RC[-2]=RC[-6],""OK"",""WRONG!!!""),""@"")"
Selection.AutoFill Destination:=Range("ActiveCell:G7200"),
Type:=xlFillDefault

I would really appreciate any help on this, for which Many Thanks in
advance!!
Hilvert
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top