Numerazione progressiva su cella

Hai un problema con Excel?

Nuova discussione

Numerazione progressiva
di Maury (utente non iscritto) data: 18/05/2009
Ciao a tutti sono nuovo e cerco aiuto per risolvere un problema, ho provato vari metodi ma non trovo quello che soddisfa le mie esigenze, vado a spiegarmi:
in excel voglio creare in una cella (c1) una numerazione progressiva (es. 1,2,3,4,5,etc etc.)ogni qual volta apro il file di base (nome del file "conto.xls"). fatto quello che devo fare nel folgio lo salvo col nome "conto1.xls". all'apertura del file "conto1.xls" la numerazione in cella (c1) non deve variare, ma solo se vado ad aprire il file "conto.xls". nessuno può aiutarmi? se non mi sono spiegato bene fatemi sapere. saluti maury

Prova così
di Biagicus74 (utente non iscritto) data: 20/05/2009
Apri il foglio conto.xls e quindi l'editor vba
quindi seleziona thisworkbook dalla finestra progetto e quindi workbook e l'evento open dai menù a tendina della finestra routine.
quindi incollaci il codice qui sotto.
attenzione alla riga
if thisworkbook.name = "conto" then
quello che è fra le virgolette è il nome del file senza l'estenzione (.xls). e' case sensitive quindi occhhio alle maiuscole nel nome del file.
la macro avviene solo ed esclusivamente all'apertura del file.
ti consiglio anche di proteggere il foglio bloccando la cella o meglio utilizzanto l'evento
selectionchange di worksheet
seleziona dalla finestra progetto il folgio dove c'è la cella c1 e dalla finestra routine dai menu a tendina seleziona selectionchange di worksheet
e inserisci il secondo blocco di codice

1 blocco

Private Sub Workbook_Open()
If ThisWorkbook.Name = "conto" Then
n = Range("c1")
n = n + 1
Range("c1") = n
End If
End Sub



secondo blocco


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$1" Then
ActiveCell.Offset(1, 0).Select
End If
End Sub

Vuoi Approfondire?