|
Login
  • Page:
  • 1

TOPIC: Numero progressivo ad apertura file

Numero progressivo ad apertura file 8 years 2 months ago #8055

Ciao a tutti,

vorrei chiedervi la seguente cortesia:

Avrei bisogo di una funionalità excel (vb script o altro) che mi permetta di scrivere all'interno di una precisa cella un numero progressivo che aumenta ogni volta che apro il file.

Ad esempio se apro il file la priva volta:

Cella A1 = MO-001

Se chiudo e quindi apro il file una seconda volta:

Cella A1 = MO-002

Grazie,
Kate
The administrator has disabled public write access.

Numero progressivo ad apertura file 8 years 1 month ago #8059

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
Kate,
con VBA.
se fossero solo numeri sarebbe semplice:

Private Sub Workbook_Open()
Sheets("Foglio1").Select 'eventualmente modificare
Range("a1").Value = Range("a1").Value + 1
end sub

Ma avendo un codice alfanumerico, e supponendo tu voglia tenere la parte numerica a tre caratteri:
Private SubWorkbook_open()
Sheets("Foglio1").Select
MioNumero = CDbl(Right(Range("a1").Value, 3))
MioNumero = MioNumero + 1
Range("a1").Value = "MO-" & Format(MioNumero, "000")
End Sub

Tu sai come usare uno di questi due codici vero?
click con il tasto DX del mouse sul label di un foglio, selezioni "visualizza codice", nella finestra che ti compare, a SX c'è un elenco di fogli: selezioni con doppio click "ThisWorkbook" poi nella parte a DX della finestra incolli uno dei codici.
Ciao, Lo
Last Edit: 8 years 1 month ago by lorenzo1957.
The administrator has disabled public write access.

Numero progressivo ad apertura file 8 years 1 month ago #8060

  • lorenzo1957
  • lorenzo1957's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 849
  • Thank you received: 59
  • Karma: 51
kateridleycontini wrote:
Ad esempio se apro il file la priva volta:
Cella A1 = MO-001
davo per scontato che la prima volta avresti scritto tu.
Nessun problema, basta aggiungere una riga:
Private Sub Workbook_Open()
Sheets("Foglio1").Select
If Range("a1").Value = "" Then Range("a1").Value = "MO-000" 'riga aggiunta per numero non preimpostato
MioNumero = CDbl(Right(Range("a1").Value, 3))
MioNumero = MioNumero + 1
Range("a1").Value = "MO-" & Format(MioNumero, "000")
End Sub

Ciao, Lo
Last Edit: 8 years 1 month ago by lorenzo1957.
The administrator has disabled public write access.
  • Page:
  • 1
Time to create page: 0.489 seconds