Dbl Click in cell(dot) ?

[omnibuster]

Hi.
Can this do?
Double Click with VBA in the CELL-dot?
See attachment.

[Aussiebear]

and this will allow you to do what?

[omnibuster]

Fill down Formula.
If i use fill down formula 12 000 or more cells my codes very slow:20..50sec.

[VBA]Sub FillFO() ''
Dim LastRow As Long
Range("B1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]*2)"
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
Range("B1:B" & LastRow).FillDown
End With
End Sub
[/VBA]

[mdmackillop]

[VBA] Dim rng As Range
Set rng = Range(Selection.Offset(, -1), Selection.Offset(, -1).End(xlDown))
If Not rng(1).Offset(1) = "" Then
Selection.AutoFill Destination:=rng.Offset(, 1)
End If
[/VBA]

[omnibuster]

Thanks mdamackillop.
But my formula : =SUMIF('2'!A:A;C1;'2'!B:B)
You variant not faster.
Sry.
[VBA]With ActiveSheet
Range("A1").Activate
ActiveCell.Offset(0, 3).FormulaR1C1 = "=SUMIF(2!C[-3],RC[-1],2!C[-2])"
Range("D1").Activate
Set rng = Range(Selection.Offset(, -1), Selection.Offset(, -1).End(xlDown))
If Not rng(1).Offset(1) = "" Then
Selection.AutoFill Destination:=rng.Offset(, 1)
End If
End With
[/VBA]

[mdmackillop]

I was answering your original post, not the later question.