none
Macro Excel RRS feed

  • Domanda

  • Ciao a tutti,
    non sono un drago con le macro di Excel e stavo provando a scrivere una macro, associata ad un pulsante, che crea una copia di un foglio.

    Ho fatto con 3 righe

        Sheet5.Copy After:=Sheets(Sheets.Count)
        Name = Sheets(Sheets.Count).Range("A1").Value
        Sheets(Sheets.Count).Name = Name

    Adesso però volevo far si che in due celle definite vengano inseriti il nome dell'utente e la data.

    Per il nome utente ho fatto una funzione

    Function CatturaUserNameOffice()
        CatturaUserNameOffice = Application.UserName
    End Function

    Che ho inserito in una cella e funziona, per la data ho fatto la stessa cosa

    Function DataOdierna()
        DataOdierna = Now()
    End Function

    Ma poi si aggiorna e su tutti i foglio ho sempre lo stesso giorno… come posso fare per inserire un valore che resti statico ?

    Spero di essermi spiegato.
    Grazie

    mercoledì 16 gennaio 2019 07:47

Risposte

  • Ciao,
    ecco la "macro", copio un foglio che uso come template e compilo la cella C3 con la data.

    Sub Macro3()

        Sheet5.Copy After:=Sheets(Sheets.Count)
        Name = Sheets(Sheets.Count).Range("A1").Value
        Sheets(Sheets.Count).Name = Name
        Sheets(Sheets.Count).Cells(3, 3) = Date
    End Sub

    Ho risolto così.

    • Contrassegnato come risposta OttobreRosso venerdì 18 gennaio 2019 07:20
    venerdì 18 gennaio 2019 07:20