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

Re: [EXCEL] Numerazione progressiva

Postdi Flash30005 » 17/09/10 14:07

lascia stare momentaneamente il tuo elaborato
usa il file che ho allegato al post precedente (solo come test)

passa da Foglio1 a foglio Fattura
apparirà il messaggio che ho inserito al posto della macro
senza che ci sia alcun errore di duplicazione macro (non non univoco)
perché sicuramente tu hai messo la stessa macro in due posti diversi (macro che hanno lo stesso nome).

Quindi nel modulo1 deve esserci la macro intera composta da due routine
1) ArchivEincr
2) Numera
(non devono esserci altre routine specialmenete con lo stesso nome)
nel vba del foglio Fattura c'è lo script della Chiamata alla macro "Numera" NON l'intera routine della macro Numera altrimenti andrà sempre in errore.

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-

Sponsor
 

Re: [EXCEL] Numerazione progressiva

Postdi sprinterone » 18/09/10 16:00

Ciao. ho cancellato delle altre macro con nomi diversi, ho verificato il tuo campione e capito/copiato nel foglio fattura il "call numera "come indicato.
Tutto ora e' come mi hai ....dettato :oops:
Sub archiviaEincrementa()
'
' archiviaEincrementa 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 - 2
esci:
Sheets("fattura").Range("C14").Value = NumF
End Sub
risultato:
se lascio la fattura senza numero oppure inserisco un numero in piu' dell'ultima fattura registrata, cmq mi fa partire da "1" per poi riprendere regolarmente con la numerazione esatta.
Esempio: n°ultima Fattura in archivio=22 , clicco la macro e inserisce "1" su fattura, poi 23...24...25..ecc
Non ho cercato di modificare la sub Numera....gia' ho preso carne abbastanza! :D
P.S. Se volessi utilizzare
Worksheets("archivio").Range("D4").Value = Sheets("fattura").Range("J53").Value
per copiare in automatico su cella adiacente la scadenza a 60 gg in base alla data copiata , come e se si puo' modificare? ( almeno la creativita' non mi manca,... l'istruzione pero'...)ciao!
Giancarlo
Avatar utente
sprinterone
Utente Junior
 
Post: 51
Iscritto il: 26/01/10 10:24
Località: Monselice

Re: [EXCEL] Numerazione progressiva

Postdi Flash30005 » 18/09/10 20:36

Non riesco a capire e a motivare cosa ti succede non inserendo nessun numero di fattura o aggiungendo 1 all'ultimo numero di archivio nel foglio fattura, perché tutto ciò non è necessario e inutile:
è la macro a fare tutto questo, qualsiasi cosa tu inserisca nel campo numero fattura non verrà presa in considerazione quindi è ininfluente la digitazione in questo campo.
L'unica cosa che mi viene da pensare è che tu non abbia iniziato il tuo archivio nella riga 4 del foglio Archivio.
Per evitare ulteriori errori di distrazione, ti invio il file con comando per attivare la macro e vedrai che non succederà quanto hai descritto

download file

Ciao

P.S. Nella macro, all'interno del file, ho aggiunto la riga di comando
Codice: Seleziona tutto
Worksheets("archivio").Range("E4").Value = Sheets("fattura").Range("J53").Value + 60

per calcolare, nella colonna E, la data di scadenza
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 » 18/09/10 23:23

ciao, risolto il problema (sempre grazie a te):avevo l'archivio gia' con 22 fatture prima di modificare la macro. Le ho ristampate ed e' tutto ok :) .
Worksheets("archivio").Range("E4").Value = Sheets("fattura").Range("J53").Value + 60
mi da' risultato: CLIENTE n° DATA IMPORTO SCADENZA
Pinco palla spa 20 30-ago-10 € 1.500,00 agosto-03
...avevo gia' provato questa opzione , trovata online, ma dandomi quest'errore non te l'avevo menzionato.
Ciao!
Giancarlo
Avatar utente
sprinterone
Utente Junior
 
Post: 51
Iscritto il: 26/01/10 10:24
Località: Monselice

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] Numerazione progressiva":


Chi c’è in linea

Visitano il forum: albval e 123 ospiti