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