Numerazione progressiva

Question

Salve ragazzi,  avrei bisogno di un aiuto con Excel. In una cella A1 inserisco la data, nella cella cella A2 vorrei che in automatico aumenti il numero progressivo a ogni inserimento data.

Answer 1

Ciao Danilo,

• Fai clic dx sulla linguetta del foglio
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Rng As Range

    Const sCella As String = "A1"

    Set Rng = Me.Range(sCella)

    With Rng

        If IsDate(.Value) Then

        On Error GoTo XIT

        Application.EnableEvents = False

            With .Offset(1, 0)

                .Value = .Value + 1

            End With

        End If

    End With

XIT:

Application.EnableEvents = True

End Sub

'<<========= 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.

===

Regards,

Norman