Crea fogli di lavoro

Hai un problema con Excel?

Nuova discussione

Crea fogli di lavoro
di Aldo (utente non iscritto) data: 17/11/2010
La macro che ho postato crea automaticamente un certo numero di fogli di lavoro nominati con data progressiva.
potreste indicarmi come impostare la data di partenza (adesso parte da lunedì 1 gennaio 1990).
vorrei anche che il testo del nome fosse in maiuscolo.
grazie a chi mi risponderà.
Sub AggiungiNuovoFoglio() For I = 1 To 10 ActiveSheet.Copy After:=Worksheets(Worksheets.Count) ActiveSheet.Name = Format(Lun + Gen + 1 * I + 1, "dddd dd mmmm yyyy") Next I End Sub

di Franco_44 (utente non iscritto) data: 17/11/2010
Ciao
ti riporto qui le risposte che erano nell'altro post scusandomi perchè avevo "letto" grassetto anzichè maiuscolo, ma la risposta è la stessa.
per data di partenza cosa intendi la data odierna oppure iniziare da una data che vuoi tu, prova le macro cui sotto. per il maiuscolo non saprei in quanto il nome del foglio diventa grassetto al momento che lo selezioni; sentiamo altri
fai sapere se risolvi

Sub AggiungiNuovoFoglio()
'Questa macro inserisce 4 fogli (0-3) iniziando dalla data ODIERNA
For I = 0 To 3 '10 qui l'ho modificatio per provare
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(Date + 1 * I, "dd mmmm  yyyy")
Next I
End Sub

Sub AggiungiNuovoFoglio1()
'Questa macro inserisce 4 fogli (0-3) iniziando dalla data CHE VIENE INSERITA NELLA FORM
'E DEVE ESSERE INSERITA dd-mm-yyyy
Dim mioval, titolo, messaggio 'variabili per le inputbox
Dim datouno As Date
titolo = "Inserisci la Data Iniziale"
messaggio = "SCRIVI LA DATA INIZIALE"
mioval = InputBox(messaggio, titolo)
If mioval = "" Then Exit Sub
datouno = mioval
For I = 0 To 3 '10 qui l'ho modificatio per provare
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(datouno + 1 * I, "dd mmmm  yyyy")
Next I
End Sub

Crea fogli di lavoro
di Aldo (utente non iscritto) data: 18/11/2010
Ciao,
ti ringrazio molto, la seconda macro, quella che chiede da che data iniziare, e proprio quello che mi serve.
riguardo al maiuscolo, vorrei che le lettere del nome fossero trasformate in maiuscolo, in excel esiste una funzione maiusc, ma non so come applicarla.
approfitto ancora per chiederti se è possibile modificare la macro per creare i fogli con le date solo per i giorni feriali, cioè saltando i sabati e le domeniche.
di Franco_44 (utente non iscritto) data: 18/11/2010
Ciao
riguardo al maiuscolo io non so se è possibile associarlo al nome dei fogli, riguardo a rinominarli senza i festivi, almeno io non sono in grado. ma ti chiedo una cosa : perchè devi creare tanti fogli quanti sono i giorni di un anno (mi sembra che sia un lovoro fuori dall'ordinario) che cosa devi fare di preciso? ce lo puoi descrivere? può darsi che ci sia una soluzione molto meno impegnativa
di Ricky53 (utente non iscritto) data: 18/11/2010
Ciao,

dai seguito alla giusta osservazione di franco (un caro saluto) in merito ai fogli per giorno dell'anno!!!

per il maiuscolo utilizza questa istruzione.

ciao da ricky53
ActiveSheet.Name = UCase(nome che vuoi assegnare al foglio)
Crea fogli di lavoro
di Aldo (utente non iscritto) data: 18/11/2010
Perfetto il maiuscolo.
domani vi spiego tutto, adesso devo andare.
grazie ancora
di Aldo (utente non iscritto) data: 19/11/2010
Ciao a tutti,
il file in questione mi serve, ad esempio, per la gestione delle consegne.
all'apertura delle commesse di lavorazione, vengono inserite nel file, al giorno corrispondente, le indicazioni sulla consegna.
questa può essere nel giro di pochi giorni, ma anche di mesi, per cui ho bisogno che il file contenga i fogli per tutto l'anno.
riguardo ad eliminare i sabati e le domenica, è uno scrupolo per evitare che, nel caso vengano inserite per sbaglio delle consegne in questi giorni, queste non vengano più viste da nessuno e dimenticate.
resto a disposizione per ulteriori chiarimenti.
ciao e grazie.

Vuoi Approfondire?