Può essere utile che una procedura aumenti un certo valore in una cella, così da tener conto delle diverse modifiche apportate dagli utenti.
Per il lancio automatico di una macro all’apertura di un file (in cui essa è contenuta), è sufficiente dare alla macro il nome Auto_open.
Immaginiamo che in A1 ci sia il numero progressivo. Per aumentarlo sarà sufficiente registrare il contenuto in una variabile (es. X), aumentare di uno e restituire il risultato a A1:
X = sheets(“foglio1”).range(“a1”) + 1
sheets(“foglio1”).range(“a1”).value = X
Ovviamente il foglio deve essere foglio1 o bisogna cambiare un po’ la macro. Per salvare il comando è:
ActiveWorkbook.Save
Per salvare con nome il comando è:
ActiveWorkbook.SaveAs Filename:= “C:\Cartel1.xls”
Il nome con cui si salva è una stringa di testo che può includere per esempio l’ora o il giorno di salvataggio usando il comando DATE.
Riepilogando:
– – –
Sub Auto_Open
Dim X as integer
X = sheets(“foglio1”).range(“a1”)+1
sheets(“foglio1”).range(“a1”).value = X
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= “C:\Cartel1.xls”
End Sub
– – –