vba Excel Copia Righe con formula Non In Errore

‘

Option Explicit

'

' vba Excel Copia Righe con formula Non In Errore

'

‘

Sub CopiaRigheNonInErrore()

Dim quanterighe, contarighe, foglio, contacolonne, quantecolonne, contenuto

Dim sfoglio, sriga

Set foglio = Sheets(ActiveSheet.Name)

Dim colonnainerrore

colonnainerrore = ActiveCell.Column ' cella attiva

Sheets.Add

Set sfoglio = Sheets(ActiveSheet.Name)

foglio.Activate

'

'

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

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

contacolonne = 1

contarighe = 1

sriga = 0

'

While contarighe <= quanterighe

   If IsError(foglio.Cells(contarighe, colonnainerrore).Value) = False Then

      contacolonne = 1

      sriga = sriga + 1

      foglio.Cells(contarighe, colonnainerrore).Select

      While contacolonne <= quantecolonne

         contenuto = foglio.Cells(contarighe, contacolonne).Value

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

         contacolonne = contacolonne + 1

      Wend

   End If

   contarighe = contarighe + 1

Wend

'

End Sub

'