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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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