Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL] Numerazione progressiva

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

[EXCEL] Numerazione progressiva

Postdi michaltam78 » 19/11/09 18:02

Ciao a tutti gli amici del forum!
Il mio quesito di oggi riguarda la numerazione progressiva da assegnare ad una fattura.
In particolare:
nel foglio 1 esiste una cella A1 che contiene il numero del documento appunto.
All'apertura risulta vuota.
Il numero deve poter essere inserito manualmente oppure tramite un pulsante che suggerisce il numero disponibile.
Il tutto tenendo presente che alla pressione del pulsante "salva" sul foglio 2 viene aggiornato il "Registro fatture" con numero progressivo, dati cliente, importi data ecc.
Riepilogando:
nel foglio 2 la colonna A deve contenere i progressivi la colonna B il destinatario e via dicendo.
Sul foglio uno vorrei avere la possibilità di inserire un numero progressivo che tenga conto di quelli già esistenti (o che parta da 0 nel caso di un documento nuovo) tramite la pressione del suddetto pulsante "suggerisci".

Esempio
Foglio 2
A B C D
000 Pinco 13/10/2009 200,00
001 Tizio 14/10/2009 1570,00
002 Pallino 15/11/2009 300,00
004 Sempronio 17/11/2009 1754,00

Sul foglio 1 la pressione del tasto "suggerisci" deve restituire il numero 003 nella casella A1 o comunque il primo numero libero. Nel caso il numero 003 fosse già in elenco dovrebbe inserire il numero 005 e cosi via.

Questo è quello che vorrei realizzare. Finora ho costruito un documento molto interessante grazie ai vostri preziosi consigli. Spero di poter contare ancora sul vostro aiutio :-)
Grazie a tutti!
michaltam78
Utente Junior
 
Post: 70
Iscritto il: 09/10/09 10:32

Sponsor
 

Re: [EXCEL] Numerazione progressiva

Postdi michaltam78 » 19/11/09 18:06

Chiedo scusa per il formato della tabella che ho inserito come esempio... mi sono accorto che manca l'allineamento corretto.. Spero sia compresibile ugualmente.
michaltam78
Utente Junior
 
Post: 70
Iscritto il: 09/10/09 10:32

Re: [EXCEL] Numerazione progressiva

Postdi Flash30005 » 20/11/09 07:00

Prova questa macro
Codice: Seleziona tutto
Sub Numera()
UR = Sheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row + 1
For NN = 1 To UR
    If NN - 1 <> Sheets("Foglio2").Range("A" & NN).Value Then
    NumF = NN - 1
    If Sheets("Foglio2").Range("A" & NN - 1).Value = "" Then NumF = 0
    GoTo esci
    End If
Next NN
esci:
Sheets("Foglio1").Range("A1").Value = NumF
End Sub

Dal tuo post sembra che tu non abbia alcuna testata sulla riga 1 del foglio2, pertanto l'elaborazione inizia dalla riga 1
Il formato cella A1 del foglio1 deve essere "Personalizzato" 000 (anche l'intera colonna A del foglio2)

Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Numerazione progressiva

Postdi michaltam78 » 20/11/09 08:07

Effettivamente da come ho posto il tutto sul foglio 2 la riga uno non contiente intestazione.
In realta però il foglio 2 contiente più di una riga di intestazioni. L'elenco dei numeri quindi dovrebbe partire per esempio dalla cella A5.
michaltam78
Utente Junior
 
Post: 70
Iscritto il: 09/10/09 10:32

Re: [EXCEL] Numerazione progressiva

Postdi Flash30005 » 20/11/09 08:44

Come vedi a non essere precisi nel dire come stanno effettivamente le cose si rischia di dover rimettere le mani su un lavoro svolto, comunque adesso dovrebbe andare bene
Codice: Seleziona tutto
Sub Numera()
UR = Sheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row + 1
If UR = 5 Then
     NumF = 0
     GoTo esci
End If
For NN = 5 To UR
    If NN - 5 <> Sheets("Foglio2").Range("A" & NN).Value Then
    NumF = NN - 5
     GoTo esci
    End If
Next NN
esci:
Sheets("Foglio1").Range("A1").Value = NumF
End Sub


Ciao

P.s.
1) Sei sicuro che la numerazione fatture inizi da 0 (000) e non da 1?
2) La numerazione fatture deve essere in sequenza continua (senza "scarto" di numero) nell'esempio da te riportato e con la macro recupereresti la numero 3 ma la data, se reale, sarebbe successiva alla data della fattura 4, cosa che è fiscalmente errata (rischio di multe se non di denunce per evasione)
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Numerazione progressiva

Postdi michaltam78 » 20/11/09 11:26

Caro flash
devo ammettere di aver combinato un bel casino stavolta.
Cerco sempre di essere più chiaro possibile e mi rendo conto di dover liberare la mente prima di porre i miei quesiti.
In effetti la numerazione sarebbe bene se partisse da uno.
Per quanto riguarda il numero "vuoto" è più per un discorso di completezza. In realtà non dovrebbe mai presentersi la situazione di "numero mancante".
michaltam78
Utente Junior
 
Post: 70
Iscritto il: 09/10/09 10:32

Re: [EXCEL] Numerazione progressiva

Postdi Flash30005 » 20/11/09 12:09

Ok,
Codice: Seleziona tutto
Sub Numera()
UR = Sheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row + 1
For NN = 5 To UR
    If NN - 4 <> Sheets("Foglio2").Range("A" & NN).Value Then
    NumF = NN - 4
    GoTo esci
    End If
Next NN
esci:
Sheets("Foglio1").Range("A1").Value = NumF
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Numerazione progressiva

Postdi michaltam78 » 20/11/09 12:17

Grazie Flash per il prezioso aiuto!
michaltam78
Utente Junior
 
Post: 70
Iscritto il: 09/10/09 10:32

Re: [EXCEL] Numerazione progressiva

Postdi sprinterone » 14/09/10 23:18

Sub Numera()
UR = Sheets("archivio").Range("B" & Rows.Count).End(xlUp).Row + 1
For NN = 5 To UR
If NN - 4 <> Sheets("archivio").Range("B" & NN).Value Then
NumF = NN - 4
GoTo esci
End If
Next NN
esci:
Sheets("fattura").Range("C14").Value = NumF
End Sub

Salve a tutti, volendo collaudare questa formula su un foglio fattura terminato alla grande grazie esclusivamente ai consigli di Antony (sarei ancora in alto mare...), ho constatato pero' che "crea" una numerazione casuale e non progressiva. Qualcuno e' cosi' gentile da spiegarmi l'inghippo?
grazie
Giancarlo
Avatar utente
sprinterone
Utente Junior
 
Post: 51
Iscritto il: 26/01/10 10:24
Località: Monselice

Re: [EXCEL] Numerazione progressiva

Postdi Flash30005 » 15/09/10 00:10

Non ho capito se è un quesito che poni per una tua esigenza
oppure per sapere il funzionamento della macro che replichi (modificata).

Nel primo caso dovrai specificare la meta da raggiungere informando la posizione e la struttura dei tuoi dati.
Nel secondo caso dovresti rileggere il primo post della discussione dove l'utente specificava la sua esigenza:

michaltam78 ha scritto:...Sul foglio uno vorrei avere la possibilità di inserire un numero progressivo che tenga conto di quelli già esistenti (o che parta da 0 nel caso di un documento nuovo) tramite la pressione del suddetto pulsante "suggerisci"...


che è tutt'altra cosa che dare dei numeri a caso
anche perché sono stati realizzati degli appositi programmi (estrazioni numeri casuali) per tentare la fortuna al lotto :lol:

Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Numerazione progressiva

Postdi Anthony47 » 15/09/10 01:49

Leggi anche il messaggio di Flash qui sopra.
Puoi avere in una cella libera, esterna all' area che successivamente stamperai, il primo numero libero non occupato usando la formula
Codice: Seleziona tutto
=MIN(SE(CONTA.SE(Foglio2!A1:A1100;RIF.RIGA(INDIRETTO("1:1000")))<1;RIF.RIGA(INDIRETTO("1:1000"));""))
da confermare con Contr-Maiusc-Enter.
Se pensi di avere piu' di 1000 fatture, allora modifica sia quei due "1:1000" (aumentando il 1000), sia l' area di Foglio2 in cui riepilogherai le fatture emesse, cioe' la porzione "Foglio2!A1:A1100"

Questa formula considera che sia possibile che venga emessa la fattura (diciamo) 18 senza che siano state emesse la 16 e la 17; in questo caso la formula restituira' 16.
Se invece la numerazione progressiva fosse sempre garantita allora la formula sarebbe decisamente semplificabile.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: [EXCEL] Numerazione progressiva

Postdi sprinterone » 15/09/10 08:21

grazie per la solerzia :) .
Nel foglio A (fattura) vorrei modificare C14 (numerazione) in maniera sequenziale dopo aver catalogato nel foglio B((archivio)i dati dellla fattura stessa.
Uso questa Macro:
"Sub archiviaEincrementa()
'
' archiviaEincrementa Macro
'

'
Sheets("archivio").Select
Rows("4:4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("fattura").Select
Range("G14:J15").Select
Selection.Copy
Sheets("archivio").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("fattura").Select
Range("C14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archivio").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("fattura").Select
Range("C15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archivio").Select
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("fattura").Select
ActiveWindow.SmallScroll Down:=18
Range("J53").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("archivio").Select
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("fattura").Select
ActiveWindow.SmallScroll Down:=-24
Call Numera
End Sub"
e funziona per l'archiviazione, ma come letto in altri post ho provato ad aggiungere alla fine dellla suddetta macro il richiamo allla macro "numera" :
"Sub Numera()
UR = Sheets("archivio").Range("B" & Rows.Count).End(xlUp).Row + 1
For NN = 5 To UR
If NN - 4 <> Sheets("archivio").Range("B" & NN).Value Then
NumF = NN - 4
GoTo esci
End If
Next NN
esci:
Sheets("fattura").Range("C14").Value = NumF
End Sub"
e ....colpo di scena,mi restituisce dei valri ciclici ( 4,2,1,1,3,2,1,1, sempre cosi).
Struttura del foglio B:
cliente -N°fatt-Data_Imp.to.
Mi lanciate la zattera per uscire da 'sto mare di Vb?
Thanks
Giancarlo
Avatar utente
sprinterone
Utente Junior
 
Post: 51
Iscritto il: 26/01/10 10:24
Località: Monselice

Re: [EXCEL] Numerazione progressiva

Postdi Flash30005 » 15/09/10 10:52

Nella tua macro noto linee superflue es:
aggiungi due righe al foglio archivio
copi un range 8 celle suddivise in 2 righe di dati (G14:J15) dal foglio fattura
e le incolli nel foglio archivio Riga4 e riga 5
sostituisci 3 celle sulla riga 4 di quelle appena copiate
alla fine cancelli la riga 5 :?:
provo a proporti questa macro
Codice: Seleziona tutto
Sub archiviaEincrementa()
'
' archiviaEincrementa Macro
Call Numera
Sheets("archivio").Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("fattura").Range("G14").Copy Destination:=Worksheets("archivio").Range("A4")
Sheets("fattura").Range("C14").Copy Destination:=Worksheets("archivio").Range("B4")
Sheets("fattura").Range("C15").Copy Destination:=Worksheets("archivio").Range("C4")
Sheets("fattura").Range("J53").Copy Destination:=Worksheets("archivio").Range("D4")
End Sub
Sub Numera()
UR = Sheets("archivio").Range("B" & Rows.Count).End(xlUp).Row
If UR < 4 Then
UR = 4
NumF = 1
GoTo esci:
End If
For Num = 1 To UR - 3
Trov = 0
    For NN = UR To 4 Step -1
    If Sheets("archivio").Range("B" & NN).Value = Num Then
    Trov = 1
    GoTo salta
    End If
    Next NN
   If Trov = 0 Then
   NumF = Num
   GoTo esci
   End If
salta:
Next Num
    NumF = UR - 2
esci:
Sheets("fattura").Range("C14").Value = NumF
End Sub

In caso di numerazione mancante la macro recupera il numero fattura altrimenti fornisce il successivo.
Per avere la numerazione valida (fattura successiva a quella dell'archivio) dovresti inserire una chiamata alla routine "Numera" all'apertura del foglio Fattura.
Il codice da mettere nel foglio (non nel modulo) è:
Codice: Seleziona tutto
Private Sub Worksheet_Activate()
Call Numera
End Sub


Fai sapere
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Numerazione progressiva

Postdi sprinterone » 16/09/10 01:02

Grazie del codice per archiviazione, effettivamente il mio l'avevo riciclato da internet ma creava un "turbinio della pagina " fino all'avvenuta registrazione fattura nel foglio archivio.
Problemi:
"Sheets("fattura").Range("G14").Copy Destination:=Worksheets("archivio").Range("A4")
Sheets("fattura").Range("C14").Copy Destination:=Worksheets("archivio").Range("B4")
Sheets("fattura").Range("C15").Copy Destination:=Worksheets("archivio").Range("C4")
Sheets("fattura").Range("J53").Copy Destination:=Worksheets("archivio").Range("D4")",
-quando mi copia G14 mi viene copiato pure il pulsante "sfoglia da elenco" applicato a G14 stesso;
-quando copia C14 oltre al numero fattura mi riporta il bordo della cella (in questo caso tratteggiato)...niente di male, giusto per dovere di cronaca;
-quando copia C15 (data fattura) stesso problema bordo cella e mi cambia la forma da "31/ago/2010" a "31/8/2010";
_quando copia J53 (totale fattura) il risultato e' "=#RIF!+D1+D2" ovvero copia la formula utilizzata nel foglio fattura per ottenere il totale.
Ora ti arrabbi: ...dove devo inserire il codice
"Private Sub Worksheet_Activate()
Call Numera
End Sub" ?
Nel foglio e non nel modulo.....ehm.....traduci please, I don't understand ....tengo 'a capa mooolto tosta su sta robba :oops:
Grazie 1million anticipati
Giancarlo
Avatar utente
sprinterone
Utente Junior
 
Post: 51
Iscritto il: 26/01/10 10:24
Località: Monselice

Re: [EXCEL] Numerazione progressiva

Postdi Flash30005 » 16/09/10 08:34

Tutti i piccoli bug che elenchi sono dovuti a formattazioni quindi se vuoi che venga riportato solo il valore contenuto delle celle origine inverti il codice delle righe in questa maniera es:
Codice: Seleziona tutto
Sheets("fattura").Range("G14").Copy Destination:=Worksheets("archivio").Range("A4")

in
Codice: Seleziona tutto
Worksheets("archivio").Range("A4").value = Sheets("fattura").Range("G14").value

In pratica al posto della funzione Copy -> destination
"imporrai" che il valore della cella "destinazione" dovrà essere = al volore della cella origine così eviti di copiare le formule.
Per il formato data sarebbe più corretto 03/08/2010 (più leggibile) ma se vuoi avere il formato data il quella maniera devi modificare la riga codice relativa con questa
Codice: Seleziona tutto
'Sheets("fattura").Range("C15").Copy Destination:=Worksheets("archivio").Range("C4") '<<<< sostituire questa
Worksheets("archivio").Range("C4").Value = Format(Sheets("fattura").Range("C15").Value, "dd/mmm/yyyy") '<<< con questa


ciao

P.s Aggiungo che il codice private...
va sul foglio Fattura in pratica quando sei nello script del Vba sulla sinistra hai gli elementi
Fogli e moduli
dovrai cliccare due volte sul foglio fattura per scrivere quel codice nel vba del foglio stesso.
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Numerazione progressiva

Postdi sprinterone » 16/09/10 09:11

Sub archiviaEincre()
'
' archiviaEincre Macro
Call Numera
Sheets("archivio").Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("archivio").Range("A4").Value = Sheets("fattura").Range("G14").Value
Worksheets("archivio").Range("B4").Value = Sheets("fattura").Range("C14").Value
Worksheets("archivio").Range("C4").Value = Sheets("fattura").Range("C15").Value
Worksheets("archivio").Range("D4").Value = Sheets("fattura").Range("J53").Value
'
End Sub
Sub Numera()
UR = Sheets("archivio").Range("B" & Rows.Count).End(xlUp).Row
If UR < 4 Then
UR = 4
NumF = 1
GoTo esci:
End If
For Num = 1 To UR - 3
Trov = 0
For NN = UR To 4 Step -1
If Sheets("archivio").Range("B" & NN).Value = Num Then
Trov = 1
GoTo salta
End If
Next NN
If Trov = 0 Then
NumF = Num
GoTo esci
End If
salta:
Next Num
NumF = UR - 1
esci:
Sheets("fattura").Range("C14").Value = NumF
End Sub
Ciao, questa e' quella che uso e per l'archiviazione e' ok (risolto il discorso formato data).
Per quanto riguarda la numerazione invece e' andato tutto in tilt, mi da' numeri a caso mentre prima iniziava da "1" e poi prendeva il numero giusto dall'ultima fattura in archivio.
Non ho inserito
Private Sub Worksheet_Activate()
Call Numera
End Sub
perche' non ho capito bene dove andrebbbe essere inserito(nel foglio e non nel modulo)......

Grazie
Giancarlo
Avatar utente
sprinterone
Utente Junior
 
Post: 51
Iscritto il: 26/01/10 10:24
Località: Monselice

Re: [EXCEL] Numerazione progressiva

Postdi Flash30005 » 16/09/10 09:50

Non capisco perché hai cambiato questo valore nella riga
Codice: Seleziona tutto
salta:
Next Num
NumF = UR - 1 '<<<<<<<<<<<<  ??????????
esci:
Sheets("fattura").Range("C14").Value = NumF
End Sub

La mia macro riporta
Codice: Seleziona tutto
NumF = UR - 2

E' questo il motivo della numerazione errata!!! :evil:

la riga codice del formato data non deve essere questa
Codice: Seleziona tutto
Worksheets("archivio").Range("C4").Value = Sheets("fattura").Range("C15").Value

ma questa
Codice: Seleziona tutto
Worksheets("archivio").Range("C4").Value = Format(Sheets("fattura").Range("C15").Value, "dd/mmm/yyyy")


Se dici di "teenere una capa mooolto tosta" cerca almeno di leggere e copiare bene quello che ti viene postato :aaah

Per quanto riguarda lo script nel Foglio leggi la nota del mio post precedente dove ho aggiunto il P.S.
(forse mentre scrivevi la tua risposta ?)

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Numerazione progressiva

Postdi sprinterone » 16/09/10 19:43

Ciao, scusami ma avevo fatto delle prove non vedendo funzionare le macro "numera" e ti ho quotato la versione mini-modificata. pure avendola gia' riportata all'originale
NumF = NN - 2
. In riferimento al tuo P:S:
P.s Aggiungo che il codice private...
va sul foglio Fattura in pratica quando sei nello script del Vba sulla sinistra hai gli elementi
Fogli e moduli
dovrai cliccare due volte sul foglio fattura per scrivere quel codice nel vba del foglio stesso.
, ho provato ad inserirlo in questo modo nel foglio fattura :
tasto dx mouse su foglio fattura
visualizza codice
e li, nella finestra VBA ho inserito:
Private Sub Worksheet_Activate()
Call Numera
End Sub
. Ho fatto giusto?
Mi spiace, ho provato a seguire le tue indicazioni ma anche se clicco 2 volte su foglio fattura ....non vedo nessun foglio o modulo tranne la macro totale che mi hai postato (uso Office 2007, cambia qualcosa?).
Alla fine della fiera.... la numerazione mi da errore: " errore di compilazione,rilevato nome non univoco: Numera".

P.s. la formattazione della data nell'archivio e' perfetta cosi 8) !non la tocco piu!!
grazie per la pazienza abissale....
Giancarlo
Avatar utente
sprinterone
Utente Junior
 
Post: 51
Iscritto il: 26/01/10 10:24
Località: Monselice

Re: [EXCEL] Numerazione progressiva

Postdi Flash30005 » 17/09/10 02:47

Office 2007 per questo script non cambia nulla
ti invio questo file
Aprilo e prova ad andare sul foglio "Fattura" apparirà un messaggio...
Ora vai nel VBA e nel modulo1 troverai solo ed esclusivamente questo codice
Codice: Seleziona tutto
Sub Numera()
MsgBox "Sei sul foglio fattura"
End Sub

ma se clicchi due volte, rimanendo nel VBA, sul Foglio1 (Fattura)
(finestra di sinistra degli oggetti del Progetto)
apparirà questo codice
Codice: Seleziona tutto
Private Sub Worksheet_Activate()
Call Numera
End Sub

ora te lo rappresento con un'immagine
Immagine

Tutto chiaro?
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Numerazione progressiva

Postdi sprinterone » 17/09/10 13:14

Beh.....la pazienza di un santo Padovano blasonato e' nulla in confronto alla Tua !!!!! :D
Anche oggi ho imparato qualcosa: aprire e curiosare una delle tante finestre del VBA (hai visto mai che aprendo mi si ossigena il cervello in questo settore.....la vedo dura , pero'..!).
Fatto tutto, ma siamo (sorry, Sono) punto a capo:
Private Sub Worksheet_Activate()
Call Numera
End Sub
era gia' presente sul foglio "fattura" (ci avevo azzeccato l'altra notte), ma al momento in cui premo la macro .... mi restituisce "errore di compilazione -nome Numera non univoco".
Vado a farmi fare un rito Voodooo ad hoc ? :oops:
Ciao
Giancarlo
Avatar utente
sprinterone
Utente Junior
 
Post: 51
Iscritto il: 26/01/10 10:24
Località: Monselice

Prossimo

Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] Numerazione progressiva":


Chi c’è in linea

Visitano il forum: fabrizio2001 e 16 ospiti