Unisci Dati di Bilancio Di Due Esercizi

‘ Unisci Dati di Bilancio Di Due Esercizi

Sub UnisciDatidiBilancioDiDueEsercizi()

Dim nomeFoglioInput, nomeFoglioOutput, esercizio, azione As String

'

esercizio = 2018

nomeFoglioOutput = "dati"

' primo esercizio

nomeFoglioInput = "aperture"

azione = "pulisciDestinazione"

Call copiadatifoglio(nomeFoglioInput, nomeFoglioOutput, esercizio, azione)

' secondo esercizio

esercizio = esercizio - 1

nomeFoglioInput = "esercizi"

azione = "LasciaPerdere"

Call copiadatifoglio("esercizi", nomeFoglioOutput, esercizio, azione)

'

End Sub

'

Sub copiadatifoglio(nomeFoglioInput, nomeFoglioOutput, esercizio, azione As String)

Dim icontar, icontac, irighe, icolonne, lesercizio

Dim ColonnaAnnoEsercizio

ColonnaAnnoEsercizio = "E"

Dim ifoglio, ofoglio, sriga

Set ifoglio = Sheets(nomeFoglioInput)

Set ofoglio = Sheets(nomeFoglioOutput)

 

'

If azione = "pulisciDestinazione" Then

   ofoglio.Activate

   ofoglio.Range("A2", Cells(ofoglio.UsedRange.Rows.Count, ofoglio.UsedRange.Columns.Count)).ClearContents

End If

sriga = 1

'

irighe = ifoglio.UsedRange.Rows.Count

icolonne = ifoglio.UsedRange.Columns.Count

sriga = ofoglio.UsedRange.Rows.Count

 

'

For icontar = 2 To irighe

    lesercizio = ifoglio.Cells(icontar, ColonnaAnnoEsercizio).Value

    If lesercizio = esercizio Then

       sriga = sriga + 1

       For icontac = 1 To icolonne

           ofoglio.Cells(sriga, icontac) = ifoglio.Cells(icontar, icontac)

       Next icontac

    End If

Next icontar

'

End Sub