Copiar todo o conteúdo de uma Aba e colar em nova

[xX_JR_Xx]

Olá amigos,
Tenho que criar um macro que copie toda a aba Atual
Encontrei aqui no fórum um código que quase resolve o meu problema, porém, faltam pequenos detalhes, mas como eu não tenho o conhecimento não consigo resolver os detalhes que faltam.

Só falta arrumar para este código copiar a planilha atual e não apenas uma específica. E se eu clicar em Cancelar ele abortar. O código que esta no exemplo cria a planilha mesmo se eu clicar em cancelar.

Veja que lá no código tem uma linha onde eu especifico apenas uma planilha para ser copiada. E eu preciso que copie a planilha atual que eu estiver e não a mesma sempre.

Código: Selecionar todos

'Define que a Planilha1 será copiada
Set wsTag = Sheets("Planilha1")

link do exemplo: viewtopic.php?t=811
Meu exemplo:

Teste 2.rar

(18.16 KiB) Baixado 169 vezes

Espero que possam me ajudar!
Um abraço e Obrigado !

[LaerteB]

Boa tarde, @xX_JR_Xx

Para que a macro copie toda a aba atual(que o correto é chamá-la de Sheet ou
planilha), substitua este linha abaixo:

Código: Selecionar todos

Set wsTag = Sheets("Planilha1")

Por esta que se segue:

Código: Selecionar todos

Set wsTag = ActiveSheet

Agora para que quando tu clicar no botão "Cancelar" do InputBox saia da macro
insira este trecho de código abaixo:

Código: Selecionar todos

    If StrPtr(nome) = 0 Then Exit Sub

Logo abaixo deste trecho que se segue do seu arquivo exemplo:

Código: Selecionar todos

nome = InputBox("Informar nome da nova planilha") 'solicita o nome da nova planilha

Verifique e teste...

Aguardando sua resposta e seu Feed Back ... se foi útil, coloque um smille ...

OBS: por gentileza não esqueça de responder se ficou de acordo com que queria,
pois com isso nos dá mais motivação para continuarmos ajudando...

LaerteB

[xX_JR_Xx]

Excelente explicação! Muito obrigado pela ajuda!