Condividi:        

Nuemrazione progressiva excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Nuemrazione progressiva excel

Postdi tuscany » 18/05/09 16:38

Salve a tutti, spero che qualcuno sia di mio aiuto, premetto che non sono uno esperto.
La mie domande sono:
1) In una cella di excel riesco a fare una numerazione progressiva, ogni qual volta apro quel file di excel?
2) In una cella di excel riesco a mettere la data corrente?
Vado a spiegarmi meglio:
File excel con nome "CONTO"
Cella C1 devo inserire numero progressivo
Cella D1 devo inserire data attuale
Una volta salvato il file ad esempio col nome "CONTO1" il numero progressivo e la data devano rimanere invariate.

spero di essermi spiegato bene su cosa vado a cercare, e se qualcuno può aiutarmi.

saluti Maury
tuscany
Newbie
 
Post: 8
Iscritto il: 18/05/09 14:21

Sponsor
 

Re: Nuemrazione progressiva excel

Postdi Anthony47 » 18/05/09 17:37

Ciao tuscany e benvenuto nel forum.
Prova a inserire questa macro nel foglio di codice "ThisWorkbook".
Da excel, Alt-F11 per aprire l' editor delle macro; nel frame intestato Progetto - VBAProjext fai doppioclick sulla voce ThisWorkbook; copia il seguente codice e incollalo nel frame di dx:
Codice: Seleziona tutto
Private Sub Workbook_Open()
If ThisWorkbook.Name = "CONTO.xls" Then
Sheets("Foglio1").Select    '<<<<<< IL FOGLIO DA MODIFICARE
[C1] = [C1] + 1
[D1] = Now()
End If
End Sub

Questa mette in D1 data e ora corrente; se vuoi solo la data usa Int(Now())

Poi salva il file e riaprilo; ti suggerisco di salvare CONTO.xls come "suggerito di sola lettura"(tramite Strumenti /Opzioni generali della finestra Salva con nome).

Ciao, fai sapere.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Nuemrazione progressiva excel

Postdi tuscany » 19/05/09 07:27

Ciao Anthony, innanzitutto grazie per la risposta, cmq volevo dirti che ho provato ma non mi funziona niente, se hai altri suggerimenti da darmi sono qui
tuscany
Newbie
 
Post: 8
Iscritto il: 18/05/09 14:21

Re: Nuemrazione progressiva excel

Postdi Anthony47 » 19/05/09 10:01

tuscany ha scritto:se hai altri suggerimenti da darmi sono qui
Grazie per la disponibilita'.
Posso suggerire di controllare come hai eseguito le istruzioni che ti ho dato e se anche cosi' non ne vieni a capo allora spiegare che cosa hai fatto, che cosa hai ottenuto, che cosa succede quando apri il file CONTO, e che cosa non ti quadra.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Nuemrazione progressiva excel

Postdi Flash30005 » 19/05/09 10:14

tuscany ha scritto:Ciao Anthony, innanzitutto grazie per la risposta, cmq volevo dirti che ho provato ma non mi funziona niente, se hai altri suggerimenti da darmi sono qui

Prova a cambiare questa istruzione
Codice: Seleziona tutto
If ThisWorkbook.Name = "CONTO.xls" Then

con
Codice: Seleziona tutto
If ThisWorkbook.Name = "Conto.xls" Then

Con il carattere tutto maiuscolo non funzionava nemmeno a me

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Nuemrazione progressiva excel

Postdi Anthony47 » 19/05/09 10:23

Ma io ho scritto CONTO.xls perche' tuscany ha parlato di un file CONTO; se avesse scritto pincopalla avrei scritto pincopalla.xls.

Al momento penso che chi debba dire "qualcosa" di piu' sia proprio tuscany...

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Nuemrazione progressiva excel

Postdi tuscany » 19/05/09 10:27

Ciao Antony ti spigo come ho proceduto:
Ho aperto il file CONTO,
ho premuto alt+F11
di seguito sulla schermata Microsof visual basic (che mi si è aperta)
sono andato nella VBAProject (Conto.xls) parte di DX
sottocartella ThisWorkbook e ho incollato quello che mi hai scritto:
Private Sub Workbook_Open()
If ThisWorkbook.Name = "CONTO.xls" Then
Sheets("Foglio1").Select
[C1] = [C1] + 1
[D1] = Now()
End If
End Sub

Al posto della scritta "Foglio1" ho inserito CONTO in quanto è il nome del mio foglio.
Ho ripremuto ALT+F11 sono uscito ho salvato il file.
Alla riapertura il numero nella cella C1 rimane invariato.
Questo è ciò che ho fatto
tuscany
Newbie
 
Post: 8
Iscritto il: 18/05/09 14:21

Re: Nuemrazione progressiva excel

Postdi tuscany » 19/05/09 17:05

ho sbagliato nel scrivere ma il file è conto.xls
tuscany
Newbie
 
Post: 8
Iscritto il: 18/05/09 14:21

Re: Nuemrazione progressiva excel

Postdi ricky53 » 19/05/09 17:56

Ciao,
quindi "CONTO" o "conto" è il nome sia del foglio che del file xls?

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Nuemrazione progressiva excel

Postdi ricky53 » 19/05/09 18:05

Ciao,
la macro scritta così
Codice: Seleziona tutto
Private Sub Workbook_Open()
    If ThisWorkbook.Name = "conto.xls" Then
        Sheets("conto").Select
        [C1] = [C1] + 1
        [D1] = Now()
    End If
End Sub


aggiorna correttamente sia "C1" (aumentanso di 1 il contenuto) che "D1" (inserendo data e ora)

ATTENZIONE "if ThisWorkbook.Name = ..." è "CASE Sentitive" ossia vanno rispettate le maiuscole-minuscole che hai assegnato al nome

oppure devi scrivere:

If UCase(ThisWorkbook.Name) = "CONTO.XLS" Then

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Nuemrazione progressiva excel

Postdi tuscany » 19/05/09 18:34

Grazie a coloro che mi hanno riposto, adesso funziona tutto, molto gentili.
Se posso chiedere un altra informazione:
Il numero progressivo se possibile vorrei (se fattibile) che fosse.... ad es 001/09 poi 002/09 e così via fino alla fine dell'anno e poi all'inizio 2010 che diventasse 001/10, 002/10, 003/10 e cosi via.
Tutto questo è possibile o chiedo troppo?
grazie nuovamente per le Vs risposte.
Maury
tuscany
Newbie
 
Post: 8
Iscritto il: 18/05/09 14:21

Re: Nuemrazione progressiva excel

Postdi ricky53 » 19/05/09 18:49

Ciao,
velocemente utilizzando una cella di appogio la "E1":

Codice: Seleziona tutto
Private Sub Workbook_Open()
    If ThisWorkbook.Name = "conto.xls" Then
        Sheets("conto").Select
        [C1] = [C1] + 1
        [D1] = Now()
        [E1] = Format([C1], "000") & "/" & Year(Now())
    End If
End Sub


Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Nuemrazione progressiva excel

Postdi ricky53 » 19/05/09 18:52

Ciao,
non avevo letto che a cambio anno volevi iniziare da 1, prova da solo e vediamo ...
ad esempio prova a tradurre
se anno in corso è diverso da anno nel numero di E1 allora inizia da 1 ...

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: Nuemrazione progressiva excel

Postdi tuscany » 20/05/09 09:36

Funziona in parte, ma riesco senza usare la cella di appoggio E1?
Al cambio dell'anno non mi riparte da 1.
Cmq grazie per gli aiuti che mi state inviando
tuscany
Newbie
 
Post: 8
Iscritto il: 18/05/09 14:21

Re: Nuemrazione progressiva excel

Postdi tuscany » 20/05/09 09:49

Altra cosa che vorrei che mi apparisse il numero progressivo 0001/09 e non 0001/2009.
E' possibile mettere l'anno con le ultime due cifre soltanto?
Grazie nuovamente
tuscany
Newbie
 
Post: 8
Iscritto il: 18/05/09 14:21

Re: Nuemrazione progressiva excel

Postdi Flash30005 » 20/05/09 10:00

tuscany ha scritto:Altra cosa che vorrei che mi apparisse il numero progressivo 0001/09 e non 0001/2009.
E' possibile mettere l'anno con le ultime due cifre soltanto?
Grazie nuovamente


Sostituisci la riga evidenziata
Codice: Seleziona tutto
Private Sub Workbook_Open()
    If ThisWorkbook.Name = "conto.xls" Then
        Sheets("conto").Select
        [C1] = [C1] + 1
        [D1] = Now()
        [E1] = Format([C1], "0000") & "/" & MID(YEAR(NOW()),3,2)   '<<<< riga da cambiare
    End If
End Sub
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Nuemrazione progressiva excel

Postdi tuscany » 20/05/09 10:54

In che senzo riga da cambiare? e poi riesco solo in C1 senza usare l'appoggio di E1?
tuscany
Newbie
 
Post: 8
Iscritto il: 18/05/09 14:21

Re: Nuemrazione progressiva excel

Postdi ricky53 » 20/05/09 17:43

Ciao,
perchè vuoi complicarti la vita?

Devi proprio avere tutto in "C1"?
Quali vincoli hai per non utilizzare una cella di appoggio?

Pensaci!

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "Nuemrazione progressiva excel":


Chi c’è in linea

Visitano il forum: Nessuno e 54 ospiti