Numerazione progressiva automatica

Hai un problema con Excel?

Nuova discussione

Numerazione progressiva automatica
di Webbea (utente non iscritto) data: 25/11/2015 12:02:03
Buongiorno a tutti, ho un problema con il codice VBA di seguito.. Ho un file di fatturazione per il quale vorrei che ad ogni nuova apertura la numerazione salisse di 1 in automatico.

Ho inserito questo codice ma mi da errore.. Qualcuno saprebbe dirmi dove sta l'errore? Forse non lo applico correttamente nel file excel?

Scusate, ma sono un bel po' ignorante in materia....

Sub Auto_Open()

If Sheets("Foglio1").Range("F8").Value = "" Then
Sheets("Foglio1").Range("F8").Value = 0
End If

Sheets("Foglio1").Range("F8").Value = Sheets("Foglio1").Range("f").Value + 1


End Sub

di alfrimpa data: 25/11/2015 12:08:19
Ciao webbea

Il codice giusto è quello che vedi sotto (nel precedente c'era un errore) da mettere nel modulo ThisWorkbook (Questa_cartella_di_lavoro).

Alfredo

Private Sub Workbook_Open()
If Sheets("Foglio1").Range("F8").Value = "" Then
    Sheets("Foglio1").Range("F8").Value = 0
    Else
    Sheets("Foglio1").Range("F8").Value = Sheets("Foglio1").Range("f8").Value + 1
End If
End Sub

di Marius44 data: 25/11/2015 12:50:00
Ciao a tutti

Poichè non esiste una fattura n° 0 cambierei lo Zero in Uno.
Ma c'è un altro problema da tener presente.
Ci avviciniamo a fine anno. Col nuovo anno la fatturazione deve ricominciare da 1.

Ciao,
Mario
di alfrimpa data: 25/11/2015 12:52:48
Ciao Mario

Questo lo avevo pensato anch'io ma mi sono strettamente attenuto alla richiesta.

Alfredo
di Webbea (utente non iscritto) data: 26/11/2015 09:39:49
Perfetto, adesso funziona! Grazie mille! Però effettivamente Marius 44 ha ragione.. come fare per ripartire da 1 a gennaio? Devo farlo manualmente modificando nuovamente il codice o c'è un modo per farlo azzerare in automatico? Di nuovo grazie!

Vuoi Approfondire?