Autofill selezione intervallo variabile

Hai un problema con Excel?

Nuova discussione

Autofill - selezione intervallo variabile
di maxp72 data: 18/02/2014 14:46:03
Salve ho una richiesta sono in una cella tipo Z3 devo selezionare tutte le colonne a destra ,fino all'ultima, e poi riportare le formule finno all'ultima riga occupata in fondo.
l'utlima riga so' cme trovarla, non so' come fare per rilevare l'ultima cella a destra dato che puo' essere variabile.
Mi date una mano?
grazie

Dim lastrow As Long

Range("z3").Select
lastrow = ActiveSheet.Range("A1").End(xlDown).Row - 1   
 ActiveCell.Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    
INTERVALLO_FORMULE = "A1:" & ULTIMAColonnaDESTRA & lastrow & ""

        Selection.AutoFill Destination:=ActiveCell.Range(INTERVALLO_FORMULE), Type:= _
        xlFillDefault

di patel data: 19/02/2014 07:51:44
ci son vari modi per trovare l'ultima cella a destra, scegli quello che ti funziona meglio

LastCol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Lastcol = ActiveSheet.UsedRange.Columns.Count
Lastcol = Cells.Find("*", after:=[a1], searchdirection:=xlPrevious).Column

risolto
di maxp72 data: 19/02/2014 12:21:54
ok ho risolto grazie.
sotto il codice completo

Dim lastrow As Long
Dim Colonna As String
Dim Lastcol As Long
Dim LetteraCol As String

Range("C6").Select

 lastrow = ActiveSheet.UsedRange.Rows.Count
 Lastcol = ActiveSheet.UsedRange.Columns.Count

Colonna = Replace(Columns(Lastcol).Address(False, False), "1", "")
LetteraCol = Left(Colonna, 1)
Dim INTERVALLO_FORMULE As String

INTERVALLO_FORMULE = "A1:" & LetteraCol & lastrow & ""
Range(Selection, Selection.End(xlToRight)).Select
        Selection.AutoFill Destination:=ActiveCell.Range(INTERVALLO_FORMULE), Type:= _
        xlFillDefault

Vuoi Approfondire?