inserire un dato con dicitura diversa per conteggio

Devi andare nell'Editor del VBA.

Digita Alt+F11 e accedi all'Editor VBA

Tra le varie macro presenti nel Modulo1 c'è la macro denominata "EliminaFogliGiornalieri" e come prima riga la costante dichiarata a livello di routine

Const nFogliIniziali As Long = 6

Quando fai modifiche strutturali ti conviene rendere visibili tutti i fogli in modo da posizionare i nuovi fogli sempre prima dei fogli giornalieri.

Nel file c'è una macro "SheetsVisible" che scopre tutti i fogli.

Ci sarebbe anche un'altra macro che nasconde i fogli il cui ciclo è indicato con

For i = 6 to Worksheets.Count

Andrebbe modificato anche quel valore 6 se si aggiungono dei fogli.

La cosa migliore sarebbe dichiarare una costante a livello di modulo e assegnare quella costante ad entrambe le macro.

Si tratta di togliere la costante come prima riga della routine e riportarla all'inizio del modulo dopo Option Explicit

E poi utilizzarla anche nella macro che nasconde i fogli al posto del 6.

ciao

Perdonami CasanManer ho provato ad eliminare la costante:

Const nFogliIniziali As Long = 6 .

Ho agiunto altri fogli ma le tabelle perdono i dati

Grazie Mille, eccellente!Te ne sono grato :)

-:)

l'indicazione della E nelle celle delle colonne OCCG1 e seguenti nel foglio Prenotazioni pensi che non vada bene ?

Penso sia poco utile e crei solo complessità (nel dover calibrare le formule per tener conto che è presente una lettera invece di un valore "0/1").

Ma se pensi che visivamente sia più chiaro per te vedere che per quella data vi è una eliminazione la si può lasciare.

Visto che la si lascia ho inserito anche una formattazione condizionale che evidenzia con uno sfondo rosso (non troppo marcato) la presenza della E.

Non ho replicato la riga che conteggia le eliminazioni perché non mi sembra realmente utile.

In Revenue colonna OCC: vorrei fossero riportate solo le prenotazioni per le quali non vi sia stata l'eliminazione, stessa cosa nelle colonne DBL e SUI

In una precedente risposta, alla mia domanda su quale valore dovesse essere restituito in presenza di "E" avevi risposto che volevi che venisse indicato 1 e non 0. Ma vabbé.

Le prenotazioni eliminata dovranno solo essere contate in Vr (foglio revenue e foglio revenue modificare) - e chiaramente nei fogli giornalieri

Inoltre non voglio considerare occupate anche le camere per le quali la prenotazione sia stata eliminata.

Così mi sembra avere più senso.

A questo punto ti metto il file modificato.

Sono partito da una versione che avevo in memoria dove anche nei giornalieri ho fatto uso delle tabelle.

La procedura VBA che crea i fogli partendo da quello base rinomina in modo adeguato le tabelle.

Tieni presente che ora la procedura per eliminare i fogli giornalieri elimina tutti i fogli a partire dal sesto in base alla posizione.

È quindi FONDAMENTALE che i fogli giornalieri siano sempre posizionati DOPO i primi fogli.

Se tu dovessi aggiungere degli altri fogli abbi l'accortezza di andare a modificare nella procedura "EliminaFogliGiornalieri" la costante:

Const nFogliIniziali As Long = 6

Altrimenti se tu lanciassi questa procedura per eliminare i fogli giornalieri, per poi ricrearli con eventuali modifiche alle formule nel "FoglioGiornalieroBase", andresti ad eliminare anche i fogli aggiunti che si trovino dalla posizione 6.

Ho fatto anche qualche modifica alle intestazioni (es. Vr+ e Vr- su tutte le varie tabelle per uniformare il tutto) e ho modificato le formule in Revenue per prendere le intestazioni del tipo camera.

Nel foglio che hai postato avevi inserito "DBL" e "SUI" ma una delle formule aveva ancora come riferimento "tpl". In questo modo si automatizza la formula se mai dovessi cambiare la sigla del tipo camera.

Questo è il file: MyRevenue 4 - Microsoft mod 20241123.xlsm

ciao