none
Macro no Excel RRS feed

  • Pergunta

  •  

    boa tarde a todos.

     

    Estou com uma necessidade no excel:

     

    Tenho uma planilha modelo01, que contem algumas formulas.

     

    tenho uma planilha modelo02, que contem uma macro, mas gostaria de copiar os dados da planilha modelo01 via macro sem substituir a outra planilha.

     

    Para isso sei criar uma macro que salva com o nome que vc deseja, mas se existir o arquivo ele substitui pelo outro, o que gostaria é de criar uma macro da planilha modelo01 que copia os dados para a planilha modelo02 sem substituir o arquivo, e desta maneira manter a macro do arquivo02.

     

    grato pelo espaco.

    terça-feira, 18 de março de 2008 15:10

Respostas

  • Bom dia,

    Fiquei um pouco confuso com a tua explicação.

    Modelo01 e Modelo02 são planilhas em uma pasta de trabalho ou são pastas de trabalho (arquivos)?

    O que vc transfere de Modelo01 para Modelo02 são apenas os resultados de fórmulas ou estes mais a formatação das células?

    [ ]s

     

    quarta-feira, 19 de março de 2008 10:12
  • Veja se te atende.

    É recomendável salvar Modelo02 como somente leitura.

    Code Snippet
    Sub Transferir()
    Dim fName
       
        'Abre o arquivo Modelo02.xls
        Workbooks.Open ("C:\Modelo02.xls")
        With Workbooks("Modelo02")
        'Copia a planilha 1 do arquivo que contém a macro para o arquivo Modelo02
        Sheets(1).Copy After:=.Sheets(.Sheets.Count)
        'Remoneia a planilha copiada como Modelo01
        .Sheets(.Sheets.Count).Name = "Modelo01"
        End With
        'Abre a caixa de diálogo Salvar Como para informar o nome do arquivo a ser salvo
        fName = Application.GetSaveAsFilename
        If fName = False Then Exit Sub
        'Salva o arquivo Modelo02 com um novo nome definido pelo usuário
        Workbooks("Modelo02").SaveAs (fName)
       
    End Sub

     

     

    [ ]s

     

    quarta-feira, 19 de março de 2008 14:39

Todas as Respostas

  • Bom dia,

    Fiquei um pouco confuso com a tua explicação.

    Modelo01 e Modelo02 são planilhas em uma pasta de trabalho ou são pastas de trabalho (arquivos)?

    O que vc transfere de Modelo01 para Modelo02 são apenas os resultados de fórmulas ou estes mais a formatação das células?

    [ ]s

     

    quarta-feira, 19 de março de 2008 10:12
  • Bom dia,

     

    Modelo01 e modelo02 são arquivos distintos.

     

    No modelo02 só tem uma macro que eu quero preservar.

     

    No modelo01 quero criar uma macro que copia toda a informação (formula, resultado, formatação), para a planilha modelo02, sem excluir a macro que existe da modelo02.

     

     

     

    quarta-feira, 19 de março de 2008 13:57
  • Veja se te atende.

    É recomendável salvar Modelo02 como somente leitura.

    Code Snippet
    Sub Transferir()
    Dim fName
       
        'Abre o arquivo Modelo02.xls
        Workbooks.Open ("C:\Modelo02.xls")
        With Workbooks("Modelo02")
        'Copia a planilha 1 do arquivo que contém a macro para o arquivo Modelo02
        Sheets(1).Copy After:=.Sheets(.Sheets.Count)
        'Remoneia a planilha copiada como Modelo01
        .Sheets(.Sheets.Count).Name = "Modelo01"
        End With
        'Abre a caixa de diálogo Salvar Como para informar o nome do arquivo a ser salvo
        fName = Application.GetSaveAsFilename
        If fName = False Then Exit Sub
        'Salva o arquivo Modelo02 com um novo nome definido pelo usuário
        Workbooks("Modelo02").SaveAs (fName)
       
    End Sub

     

     

    [ ]s

     

    quarta-feira, 19 de março de 2008 14:39