none
Código para Gerar Nova Planilha em um novo Arquivo - Me ajudem =) RRS feed

  • Pergunta

  • Boa tarde galera,

    então, estou com um problema.

    Gostaria de um código que gerasse uma noma planilha contendo todos os dados de uma planilha referencia.

    Exemplo: Eu tenho uma planilha aberta. Ao executar o código, será criada uma nova, totalmente independente da antiga. Contendo os dados, fotmação, fotos, tudo. Porém, em um arquivo novo.

    SÓ QUE, esta planilha vai ser gerada por um botão dentro de um um USERFORM. Ao clicar no botão, a nova planilha tem que ficar ativa (aparecer para o usuário) e o USERFORM tem que ficar oculto (em segundo plano).

    Entenderam?

    Muito obrigado.

    Euder

    segunda-feira, 19 de novembro de 2012 14:34

Respostas

  • Primeira dúvida:

    Private Sub cmdGerar_Click()
        Unload Me
        Application.Goto ThisWorkbook.Sheets("RM").Range("A1")
    End Sub

    Em relação à segunda dúvida, esclareça: "RM" é uma pasta de trabalho (arquivo) ou uma planilha (aba)?


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 20 de novembro de 2012 20:32
    Moderador

Todas as Respostas

  • Olá Euder, boa tarde.

    Tem um código neste endereço:

    http://www.teachexcel.com/excel-help/excel-how-to.php?i=260838

    Que acredito vá ajudá-lo na sua necessidade.

    Espero ter ajudado.


    Hezequias Vasconcelos

    segunda-feira, 19 de novembro de 2012 16:20
    Moderador
  • O código abaixo faz o que deseja, no entanto, irá fechar o formulário:

    Private Sub CommandButton1_Click()
        Unload Me
        ThisWorkbook.Sheets("Plan1").Copy
    End Sub

    Explique por que precisa deixar o formulário em segundo plano.

    No Excel, não é possível modificar uma planilha com formulário em segundo plano, logo, acho melhor você fechar o formulário após duplicar a planilha desejada.


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 19 de novembro de 2012 20:21
    Moderador
  • Benzadeus, pensei em deixar em segundo plano para quando eu fechar a planilha que foi gerada, o formulário aparecesse.

    Mas este código que você me enviou, abre a planilha. Porém a desativa. Porque quando eu executo o código, todas as janelas do Excel somem,ficam ocultas. Dai eu tenho que minimizar tudo e clicar em qualquer arquivo para reabrir todas as planilhas que antes estavam abertas. porém depois que clicar no botão, elas sumiram.

    Alguma solução? =S

    terça-feira, 20 de novembro de 2012 10:32
  • Bom dia galera,

    estou com uma dúvida, acredito ser simples, mas não consigo enxergar uma solução para ela.

    É o seguinte. 

    Eu tenho um botão chamado cmdGerar dentro de um userform. Quando eu clicar neste botão eu quero que a planilha "RM" seja exibida (Ficando em primeiro plano).

    Erro: Estou utilizando o seguinte código:

    Private Sub cmdGerar_Click()
    Application.visible = True
    End Sub

    Porém, quando este código é executado a planilha aparece e some rapidamente., não só ela como todas que estavam ativas. Aí para re-abri-la eu tenho que clicar em algum arquivo do excel.

    Alguma dica?

    Dúvida #2. Existe alguma função para eu atribuir a um botão FECHAR no qual feche a planilha RM e salve os dados automaticamente?

    Obrigado

    terça-feira, 20 de novembro de 2012 13:21
  • Primeira dúvida:

    Private Sub cmdGerar_Click()
        Unload Me
        Application.Goto ThisWorkbook.Sheets("RM").Range("A1")
    End Sub

    Em relação à segunda dúvida, esclareça: "RM" é uma pasta de trabalho (arquivo) ou uma planilha (aba)?


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 20 de novembro de 2012 20:32
    Moderador
  • Estou considerando que este tópico está fechado e continua em: http://social.msdn.microsoft.com/Forums/pt-BR/vbapt/thread/2204aba1-1fb0-470c-9d12-b5dcaf5e69aa

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    terça-feira, 20 de novembro de 2012 20:54
    Moderador