m accoda foglio riepilogo

Attribute VB_Name = "m_accoda_foglio_riepilogo"

'

Option Explicit



'

' vba - excel

' acconta il contenuto de foglio attivo

' ad un foglio denominato riepilogo

'

Sub AccodaFoglioRiepilogo()



Dim quanterighe, contarighe, foglio, contacolonne, quantecolonne

Dim nomefoglio, sfoglio, sriga

nomefoglio = ActiveSheet.Name

Set foglio = Sheets(nomefoglio)

Set sfoglio = Sheets("riepilogo")

'

quanterighe = Range(foglio.UsedRange.Cells(foglio.UsedRange.Rows.Count, 1).Address).Row

quantecolonne = Range(foglio.UsedRange.Cells(1, foglio.UsedRange.Columns.Count).Address).Column

sriga = Range(sfoglio.UsedRange.Cells(sfoglio.UsedRange.Rows.Count, 1).Address).Row

sriga = sriga + 1

'

contarighe = 1

While contarighe <= quanterighe

sriga = sriga + 1

contacolonne = 1

While contacolonne <= quantecolonne

sfoglio.Cells(sriga, contacolonne).Value = foglio.Cells(contarighe, contacolonne).Value

contacolonne = contacolonne + 1

Wend

contarighe = contarighe + 1

Wend

'

sfoglio.Activate

foglio.Delete

'

End Sub