Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 33

Discussione: Macro per creare nuovo foglio excel



  1. #1
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    28
    Messaggi
    29
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    0

    Macro per creare nuovo foglio excel

    Salve,
    ho un foglio excel che tramite una macro filtra automaticamente i risulltati di una ricerca a seconda dei filtri selezionati.
    Ora vorrei creare un pulsante che attivi una macro che esporti i risultati di questa ricerca in un nuovo foglio excel (sul desktop) dove vengono incollati i risultati mostrati a schermo della ricerca precedente; se possibile vorrei anche poter selezionare le righe dalle quali iniziare/terminare a copiare e quali colonne incollare (dovrei copiare i risultati visualizzati dalla riga 5 alla 160 e le colonne A,B e C)

    Grazie a chi ha voglia/tempo di darmi una mano...

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    1831
    Versione Office
    Excel2010
    Utile ricevuti
    453
    Utile dati
    110

    Re: Macro per creare nuovo foglio excel

    Ciao
    Hai provato ad avviare il registratore di macro e fare quello che chiedi?
    Se lo fai ti ritroverai il codice bello e pronto che potrai associare ad un pulsante.

    Se incontri difficoltà, siamo qui. Ciao,
    Mario

  3. #3
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    28
    Messaggi
    29
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao
    Hai provato ad avviare il registratore di macro e fare quello che chiedi?
    Se lo fai ti ritroverai il codice bello e pronto che potrai associare ad un pulsante.

    Se incontri difficoltà, siamo qui. Ciao,
    Mario
    ho provato ma riesco solamente a selezionare e copiare, quando apro un nuovo foglio non mi continua a registrare la macro....non so proprio come fare

  4. #4
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    780
    Versione Office
    2010
    Utile ricevuti
    114
    Utile dati
    1

    Re: Macro per creare nuovo foglio excel

    strano, io ho provato e funziona, la macro è la seguente
    Codice: 
    Sub Macro1()
    '
    ' Macro1 Macro
    '
    
    '
        Range("A1:D3").Select
        Selection.Copy
        Workbooks.Add
        ActiveSheet.Paste
    End Sub

  5. #5
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    28
    Messaggi
    29
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    strano, io ho provato e funziona, la macro è la seguente
    Codice: 
    Sub Macro1()
    '
    ' Macro1 Macro
    '
    
    '
        Range("A1:D3").Select
        Selection.Copy
        Workbooks.Add
        ActiveSheet.Paste
    End Sub
    Si ma così incolla tutto in un nuovo foglio, non dentro a un nuovo file e non mi incolla solo i valori mostrati a schermo, ma tutti quelli presenti (anche non visibili, filtrati)...fino a quello ci arrivavo anche da solo...

  6. #6
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    183
    Versione Office
    Excel 2007
    Utile ricevuti
    27
    Utile dati
    4

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da sgnappi Visualizza Messaggio
    Salve,
    ho un foglio excel che tramite una macro filtra automaticamente i risulltati di una ricerca a seconda dei filtri selezionati.
    Ora vorrei creare un pulsante che attivi una macro che esporti i risultati di questa ricerca in un nuovo foglio excel (sul desktop)
    quindi, come ha capito Patel,
    in un NUOVO file....... e non nuovo foglio........


    Citazione Originariamente Scritto da sgnappi Visualizza Messaggio
    se possibile vorrei anche poter selezionare le righe dalle quali iniziare/terminare a copiare e quali colonne incollare (dovrei copiare i risultati visualizzati dalla riga 5 alla 160 e le colonne A,B e C)
    però, se non capito male e non necessario il nuovo file, potresti fare tutto nello stesso
    Codice: 
    Range("a5:c160").Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("a5").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("a5").Activate
    ciao
    Frank
    Excel 2007 win7 - Rispondo solo a Thread corredati di file contenente una struttura dei dati consona alla richieta. Studiatela bene...! E prima di postare!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  7. #7
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    28
    Messaggi
    29
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da tanimon Visualizza Messaggio
    quindi, come ha capito Patel,
    in un NUOVO file....... e non nuovo foglio........




    però, se non capito male e non necessario il nuovo file, potresti fare tutto nello stesso
    Codice: 
    Range("a5:c160").Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("a5").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("a5").Activate
    ciao
    Frank
    Grazie per la dritta, il problema è che devo creare necessariamente un nuovo file sul desktop!

  8. #8
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    780
    Versione Office
    2010
    Utile ricevuti
    114
    Utile dati
    1

    Re: Macro per creare nuovo foglio excel

    per creare un nuovo file prima crei il nuovo documento con add (non è un foglio) e poi lo salvi dove vuoi (sempre tramite registratore)

  9. #9
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    183
    Versione Office
    Excel 2007
    Utile ricevuti
    27
    Utile dati
    4

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da sgnappi Visualizza Messaggio
    Grazie per la dritta, il problema è che devo creare necessariamente un nuovo file sul desktop!
    Beh,
    metti insieme i consigli che hai ottenuto.

    E' sicuramente da costruire, ma mi sembra che le istruzioni che chiedi siano nei post precedenti a questo.

    Leggili con attenzione, elimina quello che non serve.... e tieni solo quello di cui hai bisogno...

    ciao
    Frank

    Edit:
    Patel, scusa l'accavallamento del post
    Excel 2007 win7 - Rispondo solo a Thread corredati di file contenente una struttura dei dati consona alla richieta. Studiatela bene...! E prima di postare!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  10. #10
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    28
    Messaggi
    29
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    per creare un nuovo file prima crei il nuovo documento con add (non è un foglio) e poi lo salvi dove vuoi (sempre tramite registratore)
    Non riesco proprio a crearlo col registratore questo benedetto file...Esiste qualche riga di codice per creare un nuovo documento sul desktop (magari decidendo anche il nome) ed incollare una selezione fatta precedentemente??

  11. #11
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    183
    Versione Office
    Excel 2007
    Utile ricevuti
    27
    Utile dati
    4

    Re: Macro per creare nuovo foglio excel

    prova a registrare una macro che salva il file aggiunto:

    prima lo attivi/selezioni

    poi registra macro

    salva con nome > percorso = desktop


    poi vediamo come costruire il nome file dai dati del foglio
    Excel 2007 win7 - Rispondo solo a Thread corredati di file contenente una struttura dei dati consona alla richieta. Studiatela bene...! E prima di postare!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  12. #12
    L'avatar di PieroS71
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Santarcangelo di Romag
    Messaggi
    11
    Versione Office
    2016
    Utile ricevuti
    3
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Forse posso provarci, se ho capito bene il quesito
    ma non so ancora come riportare il codice correttamente
    Spero che gli amministratori mi perdonino

    Codice: 
        Workbooks.Add
        ActiveWorkbook.SaveAs Filename:= PERCORSO & NOMENUOVOFILE & ".xls", FileFormat:=xlNormal
        Windows("NOMEFILEORIGINE").Activate
        Sheets("NOMEPAGINADATRASFERIRE").Copy Before:=Workbooks(NOMENUOVOFILE).Sheets(1)
    Ogni scelta che compiamo determina ciò che siamo / Every choice we make determines who we are / Chaque choix que nous faisons détermine qui nous sommes

  13. #13
    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    63
    Messaggi
    3278
    Versione Office
    2007 - 2013
    Utile ricevuti
    435
    Utile dati
    69

    Re: Macro per creare nuovo foglio excel

    @ Piero

    Per inserire i tag code selezionanil codice poi clicca sul pulsante con il cancelletto.
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  14. #14
    L'avatar di PieroS71
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Santarcangelo di Romag
    Messaggi
    11
    Versione Office
    2016
    Utile ricevuti
    3
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Grazie
    molto gentile
    Ogni scelta che compiamo determina ciò che siamo / Every choice we make determines who we are / Chaque choix que nous faisons détermine qui nous sommes

  15. #15
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    28
    Messaggi
    29
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Sono riuscito a realizzare questo codice che praticamente mi stampa una copia .pDF del file visibile a schermo (dandogli un nome progressivo con la data/ora).
    Dovrei solamente riuscire a salvare la stessa selezione di celle visibili su schermo in formato excel in un nuovo file (anziche PDF)...non riesco a cambiare il formato, non capisco se posso utilizzare lo stesso comando di creazione di un PDF.

    Codice: 
    Sub PDFSAVE()
    
    Application.ScreenUpdating = False
    
        Dim ws As Worksheet
        Dim strIndirizzo As String
        Dim myFile As Variant
        Dim strFile As String
        On Error GoTo errHandler
        
        Rows("3:4").Select
        Selection.EntireRow.Hidden = True
        Rows("69:69").Select
        Selection.EntireRow.Hidden = True
        Rows("131:131").Select
        Selection.EntireRow.Hidden = True
         
        Set ws = ActiveSheet
         
        'apre la finestra di dialogo per il salvataggio dei file
        'la cartella di default è la stessa della cartella di excel
        strFile = Replace(Replace("TOOLS", " ", ""), ".", "_") _
                & "_" _
                & Format(Now(), "yyyy-mm-dd\_hh-mm") _
                & ".pdf"
        strFile = ThisWorkbook.Path & "\" & strFile
         
        myFile = Application.GetSaveAsFilename _
                (InitialFileName:=strFile, _
                  FileFilter:="PDF Files (*.pdf), *.pdf", _
                  Title:="Select folder and file name")
         
        If myFile <> False Then
                ws.ExportAsFixedFormat _
                  Type:=xlTypePDF, _
                  Filename:=myFile, _
                  Quality:=xlQualityStandard, _
                  IncludeDocProperties:=True, _
                  IgnorePrintAreas:=False, _
                  OpenAfterPublish:=False
          With ActiveSheet.PageSetup
            .Orientation = xlPortrait
            .PaperSize = xlPaperA4
          End With
         
                MsgBox "PDF file has been saved."
        End If
         
    exitHandler:
                Exit Sub
    errHandler:
                MsgBox "I can't save PDF file"
        Resume exitHandler
        
        Application.ScreenUpdating = True
        
        End Sub

  16. #16
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    780
    Versione Office
    2010
    Utile ricevuti
    114
    Utile dati
    1

    Re: Macro per creare nuovo foglio excel

    cosa c'entra il pdf ? stai cambiando le carte in tavola ? stiamo cercando di farti arrivare da solo alla soluzione e tu vai a cercare soluzioni diverse in rete, vuoi imparare o no ? se no ti diamo subilto la soluzione già pronta.

  17. #17
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    183
    Versione Office
    Excel 2007
    Utile ricevuti
    27
    Utile dati
    4

    Re: Macro per creare nuovo foglio excel

    Prima di tutto un caro saluto a Patel


    ciao sgnappi,
    scusa la schiettezza, ma non ci stò:

    sei partito questa mattina alle 9:04 che non sapevi registrare una macro...... per salvare un file con quasiasi fosse il nome del file,

    ed arrivi alle 14:25 dello stesso giorno con la macro che hai allegato?

    Secondo me SEI UN MAGO nell'apprendimento, e dati i risultati ottenuti, ti cosiglio di proseguire nella strada intrapresa.

    Io lascio per manifesta incacità.

    Frank
    Excel 2007 win7 - Rispondo solo a Thread corredati di file contenente una struttura dei dati consona alla richieta. Studiatela bene...! E prima di postare!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  18. #18
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    28
    Messaggi
    29
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da tanimon Visualizza Messaggio
    Prima di tutto un caro saluto a Patel


    ciao sgnappi,
    scusa la schiettezza, ma non ci stò:

    sei partito questa mattina alle 9:04 che non sapevi registrare una macro...... per salvare un file con quasiasi fosse il nome del file,

    ed arrivi alle 14:25 dello stesso giorno con la macro che hai allegato?

    Secondo me SEI UN MAGO nell'apprendimento, e dati i risultati ottenuti, ti cosiglio di proseguire nella strada intrapresa.

    Io lascio per manifesta incacità.

    Frank
    Mi state dando solo delle mezze risposte di cui non me ne faccio nulla...il codice che ho postato l'ho aggiustato e adattato alle mie esigenze prendendo spunto da un altro file che ho trovato su internet, ed ora funziona alla grande.
    Se riusciste a darmi una mano facendomi capire come adattarlo alla creazione di un file excel sarebbe cosa molto gradita, una macro per copiare/incollare la sapevo fare anche da solo con il registratore.

  19. #19
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    183
    Versione Office
    Excel 2007
    Utile ricevuti
    27
    Utile dati
    4

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da sgnappi Visualizza Messaggio
    Sono riuscito a realizzare questo codice che praticamente mi stampa una copia .pDF
    [/CODE]

    Citazione Originariamente Scritto da sgnappi Visualizza Messaggio
    una macro per copiare/incollare la sapevo fare anche da solo con il registratore.
    visto quello che sei risucito a fare in mezza giornata...... non ne ho dubbi,
    ma no ho capito se ci hai provato......

    Frank
    Excel 2007 win7 - Rispondo solo a Thread corredati di file contenente una struttura dei dati consona alla richieta. Studiatela bene...! E prima di postare!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  20. #20
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    780
    Versione Office
    2010
    Utile ricevuti
    114
    Utile dati
    1

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da sgnappi Visualizza Messaggio
    ho provato ma riesco solamente a selezionare e copiare, quando apro un nuovo foglio non mi continua a registrare la macro....non so proprio come fare
    questo chi l'ha scritto ? inoltre devi distinguere tra foglio e documento, il documento è il file excel che puoi aprire e salvare, il foglio è solo una parte del documento che può contenere più fogli. Il tuo titolo già trae in inganno chi vorrebbe aiutarti.
    non ti abbiamo dato mezze risposte, abbiamo cercato di indirizzarti, ma tu non ci stai.

  21. #21
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    1831
    Versione Office
    Excel2010
    Utile ricevuti
    453
    Utile dati
    110

    Re: Macro per creare nuovo foglio excel

    AVVISO DA MODERATORE

    Rispettare le Regole del Forum.

    Ciao,
    Mario

  22. #22
    L'avatar di tanimon
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    _
    Messaggi
    183
    Versione Office
    Excel 2007
    Utile ricevuti
    27
    Utile dati
    4

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    AVVISO DA MODERATORE

    Rispettare le Regole del Forum.

    Ciao,
    Mario







    Frank
    Excel 2007 win7 - Rispondo solo a Thread corredati di file contenente una struttura dei dati consona alla richieta. Studiatela bene...! E prima di postare!
    Domanda: "Come avranno fatto gli utilizzatori di Excel VBA, quando non esisteva il registratore di macro?"

  23. #23

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    4527
    Versione Office
    2011/2016MAC
    Utile ricevuti
    1523
    Utile dati
    958

    Re: Macro per creare nuovo foglio excel

    Ciao a tutti,
    scusate l'intromissione, sulla scia del messaggio di Mario - a cui va un particolare saluto - mi pare di capire che sgnappi non ce la fa a completare il codice, pertanto, chiedo a lui se ha voglia di continuare con gli aiuti, al fine di capire come procedere oppure se preferisce avere la soluzione.

    @ snappi aspettiamo la tua risposta.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  24. #24
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    780
    Versione Office
    2010
    Utile ricevuti
    114
    Utile dati
    1

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    cosa c'entra il pdf ? stai cambiando le carte in tavola ? stiamo cercando di farti arrivare da solo alla soluzione e tu vai a cercare soluzioni diverse in rete, vuoi imparare o no ? se no ti diamo subilto la soluzione già pronta.

    l'avevo già proposto, ma la risposta è stata polemica

  25. #25
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    28
    Messaggi
    29
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao a tutti,
    scusate l'intromissione, sulla scia del messaggio di Mario - a cui va un particolare saluto - mi pare di capire che sgnappi non ce la fa a completare il codice, pertanto, chiedo a lui se ha voglia di continuare con gli aiuti, al fine di capire come procedere oppure se preferisce avere la soluzione.

    @ snappi aspettiamo la tua risposta.
    Scusate se sono stato polemico, ma non ci saltavo proprio fuori.
    Sto provando a creare il codice ancora adesso cercando di mettere insieme i vostri consigli:

    Codice: 
    Sub CREAXLS()
    
    Application.ScreenUpdating = False
    Range("a7:e68").Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Cells.Select
    Selection.RowHeight = 60
    Selection.ColumnWidth = 30   
    
    ActiveWorkbook.SaveAs Filename:="TOOLS.xls", _
    FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Application.ScreenUpdating = True
       
    End Sub
    Praticamente adesso la macro crea un nuovo file, contenente solamente le righe visibili a schermo che mi interessano (ridimensionandole). Tutto ok fino a questo punto!
    Il problema è che il file viene salvato giustamente col nome che ho impostato (TOOL) nei documenti; io vorrei riuscire a salvare il file sul desktop (non utilizzando però un indirizzo specifico legato all utente, bensì un indirizzo universale che porti al desktop...come si fa??), e al contempo automaticamente dovrebbe uscire la finestra che richiede dove salvare il file (che in automatico dovrebbe essere impostata su desktop).

  26. #26
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    780
    Versione Office
    2010
    Utile ricevuti
    114
    Utile dati
    1

    Re: Macro per creare nuovo foglio excel

    prova questa
    Codice: 
        DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    msgbox DesktopPath

  27. #27
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    28
    Messaggi
    29
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    prova questa
    Codice: 
        DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    msgbox DesktopPath
    Mentre attendevo un aiuto sono riuscito a sistemare il codice in modo che salvi il nuovo file sul desktop. Adesso ho l'ultimo problema: vorrei che il file non si salvasse automaticamente, ma si aprisse la finestra "salva con nome" in modo che l'utente possa decidere dove salvarlo se non lo vuole sul desktop.

    Codice: 
    Sub CREAXLS()
    
    Application.ScreenUpdating = False
    Range("a7:e68").Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Cells.Select
    Selection.RowHeight = 60
    Selection.ColumnWidth = 30
    Cells(1, 1).Select
    Dim DTAddress As String
        DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator
        ActiveWorkbook.SaveAs DTAddress & "SPECIAL_TOOLS.xls"
    Application.ScreenUpdating = True
    
    End Sub

  28. #28
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    780
    Versione Office
    2010
    Utile ricevuti
    114
    Utile dati
    1

    Re: Macro per creare nuovo foglio excel

    Codice: 
    Sub saveAsDialog()
    Dim filename As String
    ChDrive "F"
    ChDir "F:\Download\"
    fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="xlsm Files (*.xlsm), *.xlsm")
    If fileSaveName <> False Then
      ActiveWorkbook.saveas fileSaveName
    End If
    End Sub

  29. #29
    L'avatar di sgnappi
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    RE
    Età
    28
    Messaggi
    29
    Versione Office
    Excel 2013
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro per creare nuovo foglio excel

    Citazione Originariamente Scritto da patel Visualizza Messaggio
    Codice: 
    Sub saveAsDialog()
    Dim filename As String
    ChDrive "F"
    ChDir "F:\Download\"
    fileSaveName = Application.GetSaveAsFilename( _
    fileFilter:="xlsm Files (*.xlsm), *.xlsm")
    If fileSaveName <> False Then
      ActiveWorkbook.saveas fileSaveName
    End If
    End Sub
    Ho provato ad inserire l'if al termine del mio codice ma non mi appare la finestra di salvataggio, lo continua a salvare direttamente sul desktop...

  30. #30
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    71
    Messaggi
    780
    Versione Office
    2010
    Utile ricevuti
    114
    Utile dati
    1

    Re: Macro per creare nuovo foglio excel

    devi usare il mio codice, non il tuo

Discussioni Simili

  1. [Risolto] Macro per creare un nuovo foglio e copiarvi il contenuto di un foglio precedente
    Di gianfranco lazzini nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 01/02/17, 10:48
  2. userform per creare nuovo file excel
    Di sairaki87 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 24/01/17, 18:04
  3. [Risolto] Impossibile creare nuovo Macro
    Di M4x1m1l14n nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 29/12/16, 16:20
  4. Creare nuovo foglio estraendo campi da uno precedente
    Di Federico2010 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 07/10/16, 19:43
  5. Macro che crea un nuovo foglio e con imputbox lo nomina
    Di Ghibly69 nel forum Domande su Excel VBA e MACRO
    Risposte: 31
    Ultimo Messaggio: 07/01/16, 19:36

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •