come faccio ad utilizzare il formato gg-mm-aaaa invece di g-mm-aaaa

[tempusfugitPartecipante tempusfugit]

Sub duplicafogli()

Dim giorno As String, mese_anno As String, contatore As String
Dim shs As Integer, r As Integer

controllo:
contatore = InputBox("Quanti fogli vuoi creare?")

If contatore = "" Then
    MsgBox ("Devi inserire un numero")
    GoTo controllo
End If

giorno = (Day(Date) + 1) ' parte dal giorno dopo la data corrente

For r = 1 To Val(contatore)
    
    mese_anno = Mid((Date), 4, 2) & Year(Date)
    nomef = giorno & mese_anno

    
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
        shs = Sheets.Count
        Sheets(shs).Name = nomef
        
 giorno = giorno + 1
    
Next r
End Sub

Allegati:

You must be logged in to view attached files.

[Luca73Partecipante Luca73 Karma: 58 pts]

Spiegare il problema è troppo difficile?

[tanimonPartecipante tanimon Karma: 16 pts]

Ciao Massimiliano

ed un saluto a Luca  

Come ti ho detto nell'alltra tua discussione sull'argomento, rimango dell'idea che è meglio che il nome dei

fogli, come tutti i nomi degli oggetti, sia più semplice possibile e senza caratteri speciali.

Comunque visto che ti piace e lo vuoi con il trattino........

prova questa.

RICORDA:

Studiatela bene per sapere come fare le modifiche in futuro, nel caso il trattino richiesto ti crei dei problemi.

Ciao

Frank

Sub duplicafogli()

Dim giorno As String, mese As String, anno As String, contatore As String
Dim shs As Integer, r As Integer

controllo:
contatore = InputBox("Quanti fogli vuoi creare?")

If contatore = "" Then
    MsgBox ("Devi inserire un numero")
    GoTo controllo
End If

giorno = Mid((Date) + 1, 1, 2) ' parte dal giorno dopo la data corrente

For r = 1 To Val(contatore)
    
    If Len(giorno) = 1 Then
        giorno = "0" & giorno
    End If
    
    mese = Mid((Date), 4, 2)
    anno = Year(Date)
    nomef = giorno & "-" & mese & "-" & anno

    
        ActiveSheet.Copy After:=Sheets(Sheets.Count)
        shs = Sheets.Count
        Sheets(shs).Name = nomef
        
    giorno = giorno + 1
 
Next r
End Sub

[tempusfugitPartecipante tempusfugit]

Grazie come sempre per le tue ottime soluzioni, un ultima cosa, che istruzione bisogna mettere perchè nel caso si proceda ad un altra duplicazione nello stesso giorno la macro non vada in debug?, in allegato l'esempio.(errore di run time 1004).

 

Saluti.

Massimiliano

Allegati:

You must be logged in to view attached files.

[tanimonPartecipante tanimon Karma: 16 pts]

caro Massimiliano,

tu non leggi o non ti ricordi quello che leggi!!!

rileggi il post #27241 a questa discussione

macro per moltiplicare un foglio excel

Passo, e CHIUDO

Frank

[tempusfugitPartecipante tempusfugit]

Grazie, 

mi sarò espresso male, ma va bene!

 

[Autore]

Articoli