PDA

View Full Version : Dbl Click in cell(dot) ?



omnibuster
03-21-2010, 04:30 PM
Hi.
Can this do?
Double Click with VBA in the CELL-dot?
See attachment.

Aussiebear
03-22-2010, 12:16 AM
and this will allow you to do what?

omnibuster
03-22-2010, 02:13 AM
Fill down Formula.
If i use fill down formula 12 000 or more cells my codes very slow:20..50sec.

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

mdmackillop
03-22-2010, 02:18 AM
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

omnibuster
03-22-2010, 02:47 AM
Thanks mdamackillop.
But my formula : =SUMIF('2'!A:A;C1;'2'!B:B)
You variant not faster.
Sry.
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

mdmackillop
03-22-2010, 03:59 AM
I was answering your original post, not the later question.