vba Excel – allinea valori sulla colonna attiva

' vba Excel – allinea valori sulla colonna attiva

 

Option Explicit

'

'

Sub allineasuColonnaAttiva()

'

Dim rigaattiva, colonnaattiva, secondacolonna, contale, valoreAttivo, valoresx, contacolonne

Dim quanter, contar, foglio

Set foglio = Sheets(ActiveSheet.Name)

rigaattiva = ActiveCell.Row

colonnaattiva = ActiveCell.Column

secondacolonna = colonnaattiva - 1

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

 

For contale = colonnaattiva To secondacolonna Step -1

    contar = 1

    While contar <= quanter

          valoreAttivo = Trim(foglio.Cells(contar, contale).Value)

          If Len(valoreAttivo) = 0 Then

              For contacolonne = secondacolonna To 1 Step -1

                  valoresx = Trim(foglio.Cells(contar, contacolonne).Value)

                  If Len(valoresx) > 0 Then

                     If IsNumeric(valoresx) = True Then

                        foglio.Cells(contar, contale).Value = CDbl(valoresx)

                     Else

                        foglio.Cells(contar, contale).Value = valoresx

                     End If

                        foglio.Cells(contar, contacolonne).ClearContents

                     Exit For

                  End If

              Next contacolonne

          End If

          contar = contar + 1

    Wend

 

 

Next contale

'

'

End Sub