Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
AutoFill to start with Selected Cell
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
AutoFill to start with Selected Cell
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" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
AutoFill to start with Selected Cell
Brilliant, Just what I needed. Thank You very much indeed Mike!!
"Mike Fogleman" wrote: 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" wrote in message ... 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
AutoFill to start with Selected Cell
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" wrote in message ... Brilliant, Just what I needed. Thank You very much indeed Mike!! "Mike Fogleman" wrote: 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" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Autofill cell/sets of cells based upon value selected from a list. | Excel Discussion (Misc queries) | |||
formula or VBA - would like to autofill cells based on start date and # of months | Excel Programming | |||
Macro to start when cell selected | Excel Discussion (Misc queries) | |||
Determine currently selected cells at start of macro | Excel Programming | |||
Determining Start & End Points in Selected Cells | Excel Programming |