Excel incrementare valore presente nella cella A2 del foglio 1 nella cella A2 del foglio 2

Question

Buona sera a tutti

..... Ho la necessita'  numerare progressivamente la cella A2 presente in  c.a 200 fogli di lavoro di  una cartella .

Il numero di partenza e' 100 ed e' nella cella A2 del Foglio 1

nella cella A2 del Foglio 2   deve diventare  101

 """    """   ""   "   Foglio 3     """    """"""       102

................... fino al foglio 200

Io  ho provato con il passaggio rustico  .... , numerata cella  A2  Foglio 1 ,.poi nel Foglio2 ... cella A2 ho scritto   ='Foglio1'!A2+1     ...................

con questo sistema bisogna ripetere N volte =Foglio ...., modificando ogni volta con il numero del foglio  precedente (altrimenti riporta sempre valore del Foglio1 +1 )

Esiste una scorciatoia ..........................??      Grazie                     Claudio P

Answer 1

Ciao Claudio,

Prova qualcosa del genere:

• Alt-F11 per aprire l'editor di VBA
• Alt-IM per inserire un nuovo modulo di codice
• Nel nuovo modulo vuoto, incolla il seguente codice:

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

Option Explicit

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

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim iVal As Long

    Const myCell As String = "A2"

    Const MyValue As Long = 100

    Set WB = ThisWorkbook

    iVal = MyValue

    For Each SH In WB.Worksheets

        SH.Range(myCell).Value = iVal

        iVal = iVal + 1

    Next SH

End Sub
'<<=========

• Alt-Q per chiudere l'editor di VBA e tornare a Excel.
• Alt-F8 per aprire  la finestra di gestione delle macro
• Seleziona Tester | Esegui

===

Regards,

Norman

Answer 2

Ciao Claudio,

In inglese, si potrebbe dire: absolutely superlative, ma, qualunque sia la lingua di scelta, ti ringrazio per il cortese riscontro che è molto apprezzato. 

Alla prossima.

===

Regards,

Norman

Answer 3

Grazie Norman

Questa e' PERFETTISSIMA !!!!!  superlativo assoluto (come si dice in Inglese ...?? )

GRAZIE   GRAZIE    GRAZIE

                                          Ciao   Claudio P

Answer 4

Grazie  e Buon giorno  Norman

Adesso provo il codice e poi ti faccio sapere come va'

                               GRAZIE                 Claudio P

Answer 5

Ciao Claudio,

In alternativa, potresti provare la seguente UDF (funzione utente):

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

Option Explicit

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

Public Function ValoreIncrementato(Optional firstValue As Long = 100)

    Dim SH As Worksheet, SH2 As Worksheet

    Dim Rng As Range

    Application.Volatile

    If Not TypeName(Application.Caller) = "Range" Then

        Exit Function

    Else

        Set Rng = Application.Caller

    End If

    Set SH = Rng.Parent

    If SH.Index = 1 Then

        ValoreIncrementato = firstValue

    Else

        Set SH2 = SH.Previous

        ValoreIncrementato = SH2.Range(Rng.Address).Value + 1

    End If

End Function

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

Questa funzione ha un parametro facoltativo, FirstValue; se nessun valore sia specificato per questo parametro, il valore di default (100) verrà utilizzato quando la funzione viene inserita sul primo foglio. Altrimenti, il valore specificato verrà utilizzato sul primo foglio. Per utilizzare la funzione su tutti i fogli, fai clic sulla linguetta di un foglio, sceglie l'opzione Selezionare tutti fogli, e immetti la funzione nella cella desiderata.

===

Regards,

Norman