Ciao Alex, è un piacere sentirti. Come vedi sono qui per andare avanti nel progetto.

Allora: in primis ho cambiato con il tuo suggerimento la riga e la riporto,

giorniMeseArrivo = DateSerial(annoArrivo, meseArrivo + 1, 1) - DateSerial(annoArrivo, meseArrivo, 1)
giorniMesePartenza = DateSerial(annoPartenza, mesePartenza + 1, 1) - DateSerial(annoPartenza, mesePartenza, 1)
giorniPernotto = DateSerial(annoPartenza, mesePartenza, giornoPartenza) - DateSerial(annoArrivo, meseArrivo, giornoArrivo)

ReDim periodo(1 To giorniPernotto)
For i = 1 To giorniPernotto
    'ReDim Preserve periodo(1 To giorniPernotto) 'disattivata
    periodo(i) = DateSerial(annoArrivo, meseArrivo, giornoArrivo)
    giornoArrivo = giornoArrivo + 1
Next i

così mi potrai dire se sta bene e poi se non ti chiedo troppo vorrei capire con termini "per noi piccoli umani"   la differenza. Almeno voglio provarci.

Ti ringrazio tantissimo a te e al Vecchio frac per l'aiuto che mi state dando. 

Invece ritornando al  problema in questione non và. Ho provato anche io ma di il valore del foglio4 cella F20.

Ti spiego cosa mi serve.

Io ho creato con assemblaggi di codici diversi, un codice che mi crea una "Ricevuta"  dove al suo interno tra i vari dati, c è anche il numero di ricevuta.

Quindi, interessa sapere iniziando dal 4 foglio in poi il valore massimo che si trova nella cella F20. dopodicè aggiungo +1 posso  emettere una nuova ricevuta con il numero MAX trovato + 1. Non so se sono stato chiaro.

Grazie Alex

Se vuoi ti allego il codice per la creazione della ricevuta e magari mi dessi un'occhiata. Dimmi tu.

Non va.  Perchè la ricevuta non è una sola ma saranno 2,3,4, e così via. 

Ti allego il codice che uso e appena posso ti inserisco in file.

Grazie

'Crea nuova Ricevuta cliente
Dim Messaggio As String, Titolo As String, x As String, _
ws As Integer, wsc As Integer, wsX As String, wsOri As Worksheet, _
wsCopia As Worksheet, z As String, zz As String, wss As Integer, y As String

Application.ScreenUpdating = False ' acceleriamo il processo disattivando lo schermo
'Application.Calculation = xlManual

Messaggio = "La nuova Ricevuta prenderà il nome dal: Numero prenotazione composto, dal Codice cliente, anticipato da tre 000, + la Data di arrivo."
y = txtNumPrenotazione.Text
Titolo = "CREA NUOVA RICEVUTA!"
x = InputBox(Messaggio, Titolo, y) '& txtNumPrenotazione.Text
x = UCase(x)
If x = "" Then Exit Sub
wsc = Sheets.Count
For ws = 1 To wsc
    Sheets(ws).Activate
    wsX = ActiveSheet.Name
    
    If wsX = x Then
      z = MsgBox("Esiste già la ricevuta  " & y & ".  Vuoi inserire una nuova ricevuta?" & Chr(13) & "" & Chr(13) & "", _
        vbYesNo + vbCritical, "!!! ATTENZIONE !!!")
        If z = vbNo Then
            Exit Sub
            Else
10
            zz = InputBox("Inserisci una nuova ricevuta!")
            x = UCase(zz)
            If zz = "" Then
                Exit Sub
            End If
'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
'NUOVO CICLO per la seconda verifica
            For wss = 1 To wsc
                Sheets(wss).Activate
                wsX = ActiveSheet.Name
                If wsX = x Then
                   
                    z = MsgBox("Secondo Avviso!" & Chr(13) & "Esiste già una ricevuta " & y & ". " & Chr(13) & "" & Chr(13) & "", vbCritical, "!!! ATTENZIONE !!!")
                    GoTo 10
                    'RITORNA ALL'INPUTBOX
                End If
            Next wss
'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
        End If
        Exit For
    End If
Next ws
Set wsOri = Sheets("Matrice") ' Questo è il foglio che deve copiare con le varie impostazioni per la nuova ricevuta
With wsOri
    .Visible = True
    .Activate
    .Copy before:=Sheets(1)

End With
Set wsCopia = Sheets("Matrice (2)")
With wsCopia

    .Name = x
    
''All'interno del foglio appena creato inseriamo i vari dati. Non definitivo, in costruzione
Range("A26").Value = (txtRicevutaTotaleOspiti.Value)
Range("B26").Value = ("PAX. ") ' n. Persone + numero pernotti
Range("A25").Value = (txtRicevutaPernotti.Value)   ' numero pernotti
Range("B25").Value = "Periodo" + " dal " + (txtRicevutaDataArrivo.Value) + " al " + (txtRicevutaDataPartenza.Value)

Range("F20").Value = (txtRicevutaNumeroRicevuta.Value) ' numero ricevuta
Range("H20").Value = Format(Now(), "dd-mm-yyyy") ' inserisci la data di emissione ricevuta
Range("F11").Value = (txtRicevutaCognome.Value) + ("  ") + (txtRicevutaNome.Value) ' Scrivi cognome e nome e/o Ragione sociale impresa
Range("F13").Value = (txtRicevutaIndirizzo.Value) ' Indirizzo Impresa
Range("F15").Value = "( " + (txtRicevutaProvincia.Value) + " )"  ' Il risultato contenuto in txtbox deve essere tra le parentesi
Range("I25").Value = ("€.") + (txtRicevutaCostoSoggiorno.Text) ' il costo totale soggiorno
Range("I49").Value = (txtRicevutaCostoSoggiorno.Text & " EURO") ' il costo totale soggiorno
Range("F49").Value = ("€.") + (txtRicevutaCostoSoggiorno.Text) ' il costo totale soggiorno
Range("F14").Value = (txtRicevutaCap.Value) + (" - ") + (txtRicevutaLuogoDiRilascio.Value) ' inserisce Cap e luogo dell'impresa

' 1° condizione. Copia in ricevuta se trovi un valore
If txtRicevutaAcconto <> "" Then
Range("C49").Value = ("ACCONTO ") + ("€.") + (txtRicevutaAcconto.Value) + ("  DATA ") + (txtRicevutaDataAcconto.Value) ' Scrivi
Range("C52").Value = ("MODALITA': ") + ("  ") + (txtRicevutaMetodoSaldo.Value) ' Scrivi
End If
' 2° condizione. Copia in ricevuta se trovi un valore
If txtRicevutaDataSaldo.Value <> "" Then
Range("C51").Value = ("SALDO ") + ("€.") + (txtRicevutaSaldo.Value) + ("  DATA ") + (txtRicevutaDataSaldo.Value) ' Scrivi
Range("C50").Value = ("MODALITA': ") + ("  ") + (txtRicevutaMetodoAcconto.Value) ' Scrivi
End If

    
MsgBox ("Una nuova Ricevuta cliente chiamata -  " & x & "  - è stato registrata con Successo!") & Chr(13) & "" & Chr(13) & "", vbInformation, ("INFO: Operazione riuscita!!!")
End With
Application.ScreenUpdating = True
ActiveSheet.Tab.ColorIndex = 5 ' quando crei una nuova Fattura, colora di Blu la linguetta
Sheets(x).Move after:=Sheets(Worksheets.Count - 1) ' sposta il foglio creato prima del foglio chiamato AB999

 ActiveSheet.Protect Password:=""  ' Mettiamo la pro

Ales ti allego il file.

All'interno del file ci sono  tre ricevute  la N°1 "0004-01-01-2024", la 2° "0007-09-01-2024", la 3° "00014-10-03-2024" .
All'interno di questi fogli nella cella F20 c è il Num. di Ricevuta.
Quello che vorrei ottenere è: deve trovare il valore massimo della cella F20 (in questo caso è 27) tra tutti i fogli presenti tra AB0 a AB999, e memorizzarlo nella Cella M2 del foglio Generale.
Questo perchè quando andrò ad emettere una nuova ricevuta, mi carico il valore della cella M2 in Textbox gli aggiungo +1 ed avrò ottenuto un nuovo numero per la nuova ricevuta.

La cosa strana che ho notato è il fatto che se spostavo il foglio AB0 All'inizio, la formula in M2 del foglio Generali funzionava. Adesso non so cosa ho cancellato/modificato e la formula mi restituisce sempre 0 a prescindere AB0 dove lo posizioni. Mistero!

Ciao Alex, 

alexps81 ha scritto:

non entro nel merito del perché si mette in moto così il meccanismo di assegnare un nuovo numero di ricevuta

Ogni anno dal 01/01  al 31/12 la ricevuta deve avere un numero progressivo. Si parte da 1 poi 2, 3 e così via per ogni cliente. Il numero di ricevuta è univoco e non possono esserci 2 ricevute con lo stesso numero. Ecco perchè una volta inserito il primo numero, senza andare a vedere tra i vari fogli (ricevute), l'ultimo numero inserito.  Qui entra in funzione il numero massimo che riportandolo in una textbox, mi basterà prendere quel valore maggiorarlo  di 1, ed avrò il nuovo numero.

alexps81 ha scritto:

Ma tu crei tanti foglio per quante ricevute farai? Se è così avrai centinai di Fogli nel tempo.

Esatto. Un foglio con pochi dati ma  un file con tanti fogli.

alexps81 ha scritto:

Non so quanto soffrirà il tuo gestionale a sopportare centinaia di Fogli. Io invece mi genererei la ricevuta in formato PDF e creerei una cartella dove conterrei tutte le ricevute. Magari farei una cartella generale "RICEVUTE" al suo interno tante altre cartelle: "RICEVUTE_2024" , "RICEVUTE_2025", ecc...magari anche suddivise per mesi. All'interno di ogni cartella andrebbe la ricevuta in formato PDF (o anche in formato xlsx, se per caso ci fosse bisogno di modificarla). Poi nel Foglio GENERELE nella cella M2 fare scrivere il numero dell'ultima ricevuta emessa...ma dopo che è stata generata in PDF. Alla prossima ricevuta verrà interpellato il valore contenuto in foglio "Generale!M2" incrementato di 1.

Non ci avevo pensato a quanti fogli possa contenere e supportare excel.  Invece per quanto riguarda il PDF, ci avevo pensato ed ho qualcosa a portata di mano che devo modificare.

Il fatto invece di salvare anche il foglio nel formato xlsx non ci avevo pensato.

Quindi tu consigli di creare una cartella esterna e credo sia un'ottima idea. Questo farà si che il file sia più leggero/veloce.

Se ho capito bene: 

Creare una cartella: Ricevute Generali.

Al suo interno creare una cartella: Ricevute 2024, (Ricevute 2025) , al suo interno inserire sia i file PDF che i file xslx. 

Se è così non ci avevo pensato. Ottimo direi.

Buongiorno Vecchio Frac,

a titolo di curiosità/conoscenza nei limiti,  ho letto in rete le cose che hai riportato tu in poche righe ma ricche di contenuti.

Grazie per il tuo intervento.  

Ciao Alex, 

alexps81 ha scritto:

hai dato uno sguardo al mio post di ieri alle 17.32 #43092? Ti ho allegato un esempio di stampa ricevuta.

Scusami per il  notevole ritardo ma non lo avevo notato. Lo provo e ti faccio sapere. 

Alex, ho modificato come hai detto tu. Io mi sono avvicinato  ma dava errore perchè io usavo: 

Folder = "Ricevute\FormatoPDF\" & mese & " " & Year(Data)&(txtRicevutaDataEmissione) & "\"

Comunque come detto nel post precedente che erroneamente avrò cancellato, il tuo codice è molto più snello di quello che stavo elaborando io. Infatti, io stavo usando 1 codice era per il PDF e l'altro per salvare il foglio. Invece il tuo fa tutto in uno. Ingamba come sempre Alex.

Ti volevo chiedere una cosa. Secondo te è possibile che quando vado per salvare anzicchè creare la sottocartella "Ricevute" possa crearmi la sotto cartella con l'anno di riferimento in automatico ad es. Ricevute 2024.  Questo perchè potrei avere il tutto in un unica cartella es. Ricevute 2024, Ricevute 2025 e cosi via. Secondo te si potrebbe realizzare?

Gazie