[EXCEL] Numerazione progressiva

[michaltam78]

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]

Chiedo scusa per il formato della tabella che ho inserito come esempio... mi sono accorto che manca l'allineamento corretto.. Spero sia compresibile ugualmente.

[Flash30005]

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

[michaltam78]

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.

[Flash30005]

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)

[michaltam78]

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".

[Flash30005]

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

[michaltam78]

Grazie Flash per il prezioso aiuto!

[sprinterone]

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

[Flash30005]

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:

...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

Fai sapere
Ciao

[Anthony47]

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

[sprinterone]

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

[Flash30005]

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

[sprinterone]

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
Grazie 1million anticipati

[Flash30005]

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.

[sprinterone]

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

[Flash30005]

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!!!

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

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

[sprinterone]

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 !non la tocco piu!!
grazie per la pazienza abissale....

[Flash30005]

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


Tutto chiaro?
Ciao

[sprinterone]

Beh.....la pazienza di un santo Padovano blasonato e' nulla in confronto alla Tua !!!!!
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 ?
Ciao