Leggere il numero di righe di un foglio excel ed estendere le formule

excelQuando si lavora con Excel succede spesso che non sappiamo, in fase di estrazione, quante righe estrarremo, per cui saremo poi costretti a copiare le formule per svolgere alcuni calcoli fino all’ultima riga estratta.

Con questa funzione possiamo delegare questa attività ad un macro che automaticamente rileverà quanto sono in totale le righe e copierà le formule su tutte le righe.

Di seguito vi indico la funzione in oggetto.

Sub OpenRp()

Dim massimo As String

 

‘ Con questi comandi leggo l’ultima riga che contiene dei valori esportati e inserisco il valore nella variabile massimo

Sheets(“Foglio1”).Select

Range(“A2”).Select

Selection.AutoFilter

Selection.End(xlDown).Select

massimo = ActiveCell.Row

Range(“A2”).Select

‘ con questi comandi leggendo il numero di righe importate e copio le formule dalla seconda riga

Sheets(“Foglio1”).Select

Range(massimo).Select

massimo = ActiveCell.Value

‘ Di seguito seleziono le colonne dove sono presenti le formule.

Range(“AB2:AL2”).Select

Selection.AutoFill Destination:=Range(“AB2:AL” & massimo)

Range(“A2″).Select

MsgBox ”    Elaborazione Terminata     ”

End Sub

 

 

This entry was posted in Excel, Microsoft Office and tagged , . Bookmark the permalink.

One Response to Leggere il numero di righe di un foglio excel ed estendere le formule

  1. Infoadvice says:

    Bell’articolo,se volete tratto gli stessi argomenti qui http://infoadvice.myblog.it

Lascia un commento

Il tuo indirizzo email non sarà pubblicato. I campi obbligatori sono contrassegnati *