simulare doppio click su croce

[ale]

Scusate per l'oggetto. Esiste un comando vba per simulare ciò che
avviene quando faccio doppio click sulla croce (per intenderci quando
devo magari ricopiarmi formule su una colonna intera e così mi
posiziono al vertice dx e faccio doppio click sulla croce nera)?Ho
provato con il registratore ma ovviamente lui prende il range
specifico, vorrei poter avere un comando generico valido per tutto.
Grazie e ciao
Ale

[r]

Sub AutoFill_Macro()
Dim Rng As Excel.Range
Dim RngD As Excel.Range
Dim i As Long
Set Rng = ActiveCell

If Rng.Column > 1 Then
Set RngD = Rng.Offset(, -1)
i = 1
Do While VarType(RngD.Offset(i).Value) Xor
(VarType(Rng.Offset(i)))
i = i + 1
Loop
If i > 1 Then
Rng.AutoFill Rng.Resize(i)
Rng.Resize.Select
End If
End If
End Sub

saluti
r

[r]

scusa mancava una i
riposto:

Sub AUTOFILL_MACRO()

Dim Rng As Excel.Range
Dim RngD As Excel.Range
Dim i As Long
Set Rng = ActiveCell

If Rng.Column > 1 Then
Set RngD = Rng.Offset(, -1)
i = 1

Do While VarType(RngD.Offset(i).Value) Xor _

(VarType(Rng.Offset(i)))
i = i + 1
Loop
If i > 1 Then
Rng.AutoFill Rng.Resize(i)

Rng.Resize(i).Select

[ale]

> r- Nascondi testo citato
>
> - Mostra testo citato -

E' perfetta...grazie infinite.
ciao
ale