Allego file. Utilizza lo stesso metodo con cui inserisce le prenotazioni.

Si puoi cancellarlo, sempre se non richiami la Function giorni in altre routine, ma in ogni caso è un Function che non funziona bene. Quindi laddove la richiami dovresti cambiare metodo e adottare quello che ti ho suggerito io con DateSerial

Ti posto questa routine,che ho fatto per mio sfizio, che non fa altro che generarti in automatico il prospetto dell'anno che tu vuoi creare.

Il codice non fa altro che chiedeti l'anno , una volta inserito l'anno che vuoi generare come prospetto, ti aggounge un foglio  lo rinomina con l'anno che hai inserito e tigenera il prospetto evidenziando le Festivita Nazionali e la Pasqua relativa a quell'anno. Se ti puo servire . Il codice che ti posto lo devi inserire in un Modulo.

`Option Explicit
Sub prospettoAnno()
Dim Giorni_Festivi As Variant
Dim WB As Workbook, Anno As String, Sh As Worksheet
Dim col As Integer, riga As Integer, numgiorni As Integer, mese As Integer
Dim clic As Boolean, Festivita As Boolean
Dim giornimese  As Integer, nomemese As Integer
Dim F As Variant
    Giorni_Festivi = Array("1-1", "6-1", "25-04", "1-5", "2-6", "15-8", "1-11", "8-12", "25-12", "26-12")
    Set WB = ThisWorkbook
    Anno = InputBox("Inserisci l'anno che vuoi generare")

    With WB
        col = 3
        riga = 4




        For Each ws In Worksheets
            If ws.Name = Anno Then
                clic = 1
            End If
        Next

        If clic = 0 Then


            Set Sh = .Worksheets.Add(after:=.Sheets(.Sheets.Count))
            Sh.Name = Anno

            With Cells(riga, col - 1)
                .Value = "MESE"
                .Font.Bold = True
                .Interior.Color = RGB(171, 205, 239)
                .Borders.Color = RGB(0, 0, 0)
            End With
            For numgiorni = 1 To 31

                Cells(riga, col) = numgiorni
                Cells(riga, col).Interior.Color = RGB(0, 127, 255)
                Cells(riga, col).Borders.Color = RGB(0, 0, 0)
                col = col + 1
            Next

        Else
            MsgBox "foglio esistente"
        End If
        For mese = 1 To 12

            giornimese = DateDiff("d", DateSerial(Anno, mese, 1), DateSerial(Anno, mese + 1, 1))
            riga = riga + 1
            col = 3

            For nomemese = 1 To giornimese

                For Each F In Giorni_Festivi

                    If Day(F) = Day(DateSerial(Anno, mese, nomemese)) And Month(F) = Month(DateSerial(Anno, mese, 1)) Then
                        Festivita = True
                        Exit For
                    End If
                    Festivita = False
                Next F
                If DateSerial(Anno, mese, nomemese) = Pasqua(Year(DateSerial(Anno, mese, nomemese))) Then
                    Festivita = True

                    Cells(riga, col).Interior.Color = RGB(255, 0, 255)
                    Cells(riga, col).Borders.Color = RGB(0, 0, 0)
                    Festivita = False
                    GoTo salta
                End If


                If Festivita = True Then
                    Cells(riga, col).Interior.Color = RGB(255, 215, 0)
                    Cells(riga, col).Borders.Color = RGB(0, 0, 0)
                Else
                    Cells(riga, col).Interior.Color = RGB(0, 225, 0)
                    Cells(riga, col).Borders.Color = RGB(0, 0, 0)
                End If
salta:
                col = col + 1
            Next
            Cells(riga, 2) = MonthName(mese)
            Cells(riga, 2).Font.Bold = True
            Cells(riga, 2).Interior.Color = RGB(171, 205, 239)
            Cells(riga, 2).Borders.Color = RGB(0, 0, 0)
           
        Next
        Range("b5:ag5").Copy Range("b17")
        ActiveSheet.Rows.RowHeight = 15
        ActiveSheet.Columns.ColumnWidth = 5
        ActiveSheet.Columns(2).ColumnWidth = 10
        ActiveWindow.Zoom = 90
        Range("b21").Interior.Color = RGB(255, 215, 0)
        Range("c21").Value = "Festivita Nazionali"
        Range("b22").Interior.Color = RGB(255, 0, 255)
        Range("c22").Value = "Pasqua"
    End With
End Sub
Public Function Pasqua(Anno As Integer) As Date
Dim A As Integer, B As Integer, C As Integer, P As Integer
Dim Q As Integer, R As Integer
        
    A = Anno Mod 19: B = Anno \ 100: C = Anno Mod 100
    P = (19 * A + B - (B \ 4) - ((B - ((B + 8) \ 25) + 1) \ 3) + 15) Mod 30
    Q = (32 + 2 * ((B Mod 4) + (C \ 4)) - P - (C Mod 4)) Mod 7
    R = (P + Q - 7 * ((A + 11 * P + 22 * Q) \ 451) + 114)
    Pasqua = DateSerial(Anno, R \ 32, (R Mod 31) + 1)
    
End Function
`

Ciao @pixel ti giro una versione simile al tuo prospetto ma rifatto da capo. In pratica ho notato che nella versione che ti avevo postato un paio di giorni fa, avevi la possibilità di inserire un periodo che non va oltre 2 mesi. Cioè se per esempio volevi inserire un cliente dal 01-01-2024 al 20-03-2024 allora non potevi farlo con quel codice.

Ora ti allego un nuovo prospetto con codice più corto anche e che ti consente di inserire una prenotazione anche più lunga di 2 mesi (poi immagino che sarà difficile che un cliente ti prenoti la camera per molto tempo, però intanto è giusto che funzioni bene il prospetto).

Ovviamente non cambiare o spostare le celle/righe/colonne perché lo incasini. Se servono modifiche allora ci lavoriamo su. 

Fammi sapere come va.

Esatto. Io creo un'altra tabella sotto come quella che già ce. Poi dovrei creare un altro pulsante che mi inserisca le prenotazione nella seconda tabella "camera 2" e così per la 3.

Prova questo nuovo file...mi sto spaccando gli occhi       

pixel ha scritto:

Se inserisci la "Camera 1" con periodo Es. dal 25-12-2024 al 10-01-2025, la prenotazione la segna errata e la segna tra ottobre e novembre.

Hai ragione...hai ragione. Ho risolto. Bisognava portare il calcolo della variabile k al di fuori della condizione IF..... posta sopra.

Per quanto riguarda il problema dell'inserimento senza numero Camere....purtroppo ci deve essere il numero. 

Il mio codice si basa proprio su quello. Attraverso la function CHOOSE vado a scegliere un numero da me descritto che equivale al numero riga in cui deve andare ad agire. In pratica con la variable v mi estrapolo "CAMERA" e il numero della camera in due vettori (grazie alla function Split) poi lo passo a k=v(1) infatti v(1) è il numero camera. Ricavato il numero lo passo alla function CHOOSE dove se il numero passato a k è 1 (nr. camera) allora preleva il numero  2 (numero rigo) , se invece è passato a k il 2 allora prende 18 e così via....k = Choose(k, 2, 18, 34, 50, 66, 82, 98)

Cmq ti ho inserito una gestione degli errori così non crasha nel caso non c'è il numero stanza o altri problemi.