Notifications
Clear all

Mover

20 Posts
3 Usuários
0 Reactions
2,389 Visualizações
(@shroeder)
Posts: 57
Trusted Member
Topic starter
 

Boas,

Criei uma macro para abrir algumas abas da planilha.

Estou encontrando um erro, porque quando altero o nome da planilha, a macro deixa de funcionar.

Tem como alterar?

Fica o código. Obrigado

Sheets(Array("ExpRn1", "ExpRn2", "ExpRn3", "ExpRn4", "ExpRn5")).Select
Sheets("ExpRn5").Activate
Sheets(Array("ExpRn1", "ExpRn2", "ExpRn3", "ExpRn4", "ExpRn5")).Copy
Windows("Layout.xlsm").Activate
ActiveWindow.ScrollWorkbookTabs Sheets:=-1
Sheets("MenuInicial").Select
Range("A11").Select
Application.CutCopyMode = False

 
Postado : 10/02/2016 12:26 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Eu vc pode colocar um modelo do seu arquivo? Facilitaria corrigir seu código...

Em resumo o que vou ensinar é: use o codenome *(q está fora dos parenteses na estrutura do arquivo) ao invés do nome...
referencie a planilha pelo outro nome dela, e coloque .Name...

coloca seu arquivo aqui que devolvo rapidinho!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/02/2016 1:13 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Se eu entendi vc altera o nome do arquivo, e isso gera erro no codigo, acontece que o codigo esta procurando a planilha (ARQUIVO), Layout.xlsm e qdo vc altera o nome da erro, solução pra isso alterou o nome do arquivo tem que alterar no codigo tambem. Se nao vai dar erro mesmo.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 10/02/2016 2:56 pm
(@shroeder)
Posts: 57
Trusted Member
Topic starter
 

Sim é isso mesmo.

Tem aí um exemplo. Não posso enviar o original porque tem info confidencial do cliente. Desculpa

Valeu

 
Postado : 10/02/2016 3:16 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Ta legal identificamos o erro, mas o que vc precisa fazer isso nao esta claro

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 10/02/2016 3:22 pm
(@shroeder)
Posts: 57
Trusted Member
Topic starter
 

Preciso que ao clicar no exportar, abra as abas noutra janela

 
Postado : 11/02/2016 5:48 am
(@mprudencio)
Posts: 2749
Famed Member
 

Isso o código que vc postou já faz. Qual a dificuldade então?

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 11/02/2016 5:53 am
(@shroeder)
Posts: 57
Trusted Member
Topic starter
 

A dificuldade é ao mudar o nome da planilha, que dá erro.

 
Postado : 11/02/2016 6:05 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não consegui entender. A rotina para copiar as abas para um novo arquivo está OK " Sheets(Array("ExpRn1", "ExpRn2", "ExpRn3")).Copy"
O que deseja que "aconteça" após essa copia?
Salvar o novo arquivo:
Retornar para o arquivo base??
Ou??

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/02/2016 7:49 am
(@shroeder)
Posts: 57
Trusted Member
Topic starter
 

Voltar para o arquivo base.

Obrigado.

 
Postado : 11/02/2016 9:38 am
(@mprudencio)
Posts: 2749
Famed Member
 

Acrescente no codigo que vc postou

Windows("Arquivo base").activate

"Arquivo Base é o nome do arquivo.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 11/02/2016 10:08 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Nos dois locais onde este pedaço de código abaixo existe, ao invés de:

Sheets(Array("ExpRn1", "ExpRn2", "ExpRn3"))

use:

Sheets(Array(Plan2.Name, Plan3.Name, Plan4.Name))

Ao utilizar o codenome da planilha, ou swja, o nome na estrutura do arquivo que não está entre parenteses *(na janela do Explorador de Projeto), vc pode usar a propriedade .Name do objeto tipo planilha, de cada uma delas.... acima é o exemplo... seu código ficaria mais ou menos assim:

    Sheets(Array(Plan2.Name, Plan3.Name, Plan4.Name)).Select
    Sheets("ExpRn5").Activate
    Sheets(Array(Plan2.Name, Plan3.Name, Plan4.Name)).Copy
    Windows("Layout.xlsm").Activate
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Sheets("MenuInicial").Select
    Range("A11").Select
    Application.CutCopyMode = False

E vc agora pode mudar o nome das planilhas, à vontade!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/02/2016 11:28 am
(@shroeder)
Posts: 57
Trusted Member
Topic starter
 

Penso que não me estou explicando bem.

O que pode mudar é o nome da planilha (ficheiro) e não das abas.

Windows("Layout.xlsx").Activate

Se eu mudar o nome do ficheiro para "Teste", ele executa a macro mas dá erro

 
Postado : 11/02/2016 6:26 pm
(@mprudencio)
Posts: 2749
Famed Member
 

A nao ser que vc explique o que pretente como um todo, por exemplo qual o motivo de o ficheiro trocar o nome, nao acredito ter solução que nao seja alterar o nome do ficheiro manualmente.

Outra coisa o seu codigo é aquele mesmo???

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 11/02/2016 8:40 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ok, então vamos lá....
Se o problema é de nomenclatura, vamos os nomes oficiais em português do BRASIL ok ?

NOMENCLATURA OFICIAL DA MICROSOFT
Pasta de Trabalho
Pasta de Trabalho é o mesmo que arquivo, ou, qquer coisa que termina com .XLS ou .XLSX ou .XLSM ou .XLSB ou .XLqquer coisa) isso é arquivo, isso é pasta de trabalho. Pasta de trabalho também pode ser caracterizada por um conjunto de planilha(s).
Aqui no Brasil ninguém entende o que é ficheiro *(isso não existe), e daí o post fica com 2 páginas sem ninguém entender o que você quer

Planilha
Planilha é um conjunto de células. Normalmente nas versões mais recentes do Excel, tem 1milhão de linhas por 16mil colunas. Por padrão uma pasta de trabalho *(arquivo de Excel) possui 3 planilhas quando é criada, mas isso pode ser alterado. Uma pasta de trabalho é considerada um conjunto de planilhas.

Guia de Planilha
É a parte visível de todas as planilhas, mesmo quando não estão ativas. É a parte de baixo da planilha, onde vc clica para torná-la visível. Algumas pessoas chamam de aba, o que é um erro, conforme eu procurei no dicionário e não vi nenhuma descrição de aba que atenda a denominação de guia de planilha. MAS já que a galera fala muito em aba, segue:

Aba
Conforme http://www.dicio.com.br
aba: s.f. Parte da vestimenta que, partindo do busto, cobre os quadris: a aba da blusa. / Parte pendente anexa a alguma coisa: a aba da...
abar: abar (aba+ar) vtd 1 Colocar abas em: Abar o chapéu, a mesa, o selim. Pegar pela aba o chapéu: Elas abavam os chapéus, entortados...
abá: m. Manto de beduinos.

Conforme http://michaelis.uol.com.br/
aba1
a.ba1
sf (lat alapa) 1 Parte inferior pendente de certas peças do vestuário. 2 Borda, bordo, orla, margem, rebordo, beirada, flange: aba ou abas do chapéu, aba do telhado, aba do toldo: "As abas do mosquiteiro... entrecruzavam-se na parte inferior" (Sérgio Buarque de Holanda). 3 Parte suplementar de alguns móveis, aos quais se liga por dobradiças ou lhes fica pendente. 4 Fralda carnosa pendente da costela inferior da rês. 5 Parte da côdea do pão que termina em aresta. 6 Cada uma das duas peças de couro que pendem uma de cada lado do arreio. 7 Asa do nariz. 8 Fralda, sopé, encosta, vertente. 9 Beira, costa, lado, margem. sf pl 1 Cercania, proximidade, vizinhança. 2 Abrigo, amparo, proteção: abas do rei. 3 Os lados de uma coisa, as metades, as partes laterais, as bandas. A. cheia: o mesmo que abada, acepções 1 e 3. A. corrida: sacada ou varanda ao longo da cimalha de um prédio.
aba2
a.ba2
sm (aramaico abba) Pai; nome dado várias vezes a Deus no Novo Testamento; aplicado também a bispos e patriarcas de muitas igrejas orientais e a eruditos judeus no período talmúdico.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/02/2016 9:08 pm
Página 1 / 2