Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Seleção de planilha...
 
Notifications
Clear all

Seleção de planilhas Variaveis em VBA

 
2024 - VBA & Macros
Post Recente por Gesus 10 anos atrás
7 Posts
3 Usuários
0 Reactions
1,510 Visualizações
RSS
 AndChero
(@andchero)
Posts: 0
New Member
Topic starter
 

Boa tarde
Estou montando uma planilha para acompanhamento de despesas de veículos da
nossa empresa. Criei um menu para fazer o lançamento e uma macro que copia
oq foi digitado neste menu para outra planilha, porem gostaria que ele
copiasse para planilhas especificas para cada veiculo.

Por exemplo, se no menu eu selecionar o veiculo Outlander, ele copiasse
para uma aba chamada Outlander, se selecionasse o veiculo Pajero copiasse
para a aba Pajero, e assim por diante, incluindo uma aba para cada veiculo.

Range("B35").Select
Sheets("Menu").Select
Range("D3").Select
Selection.Copy
Sheets("Relatorio").Select
Range("C3").Select
Selection.Insert Shift:=xlDown

Neste caso ele copia sempre para a planilha "relatorios", sera que existe
maneira de colar em planilhas especificas, variaveis de acordo com a
escolha no menu?

 
Postado : 17/07/2014 1:06 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

AndChero,

Boa Tarde!

Isso é bem simples de fazer. Todavia, é preciso saber maiores informações do seu arquivo. Assim, sugiro que você faça a compactação do mesmo com ZIP e anexe a mesma aqui mesmo no fórum para podermos lhe ajudar melhor.

 
Postado : 17/07/2014 1:11 pm
 AndChero
(@andchero)
Posts: 0
New Member
Topic starter
 

Aqui esta Wagner, ficarei muito grato.

att
Anderson Cherobin

 
Postado : 17/07/2014 1:16 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Cadê o arquivo???

 
Postado : 17/07/2014 1:22 pm
 AndChero
(@andchero)
Posts: 0
New Member
Topic starter
 

diz q o arquivo é muito grande.

oq posso fazer agora?

 
Postado : 17/07/2014 1:47 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Você pode compactá-lo em pedaços do tamanho que é permitido aqui no fórum e depois anexar os pedaços do mesmo.

Pode também fazer upload do mesmo para o site SendSpace, por exemplo e colar o link aqui.

Anexando os pedaços do arquivo aqui, fica mais viável considerando que muitos não conseguem acessar, no trabalho, esses sites de armazenamento e compartilhamento de arquivos gratuitos.

Outra sugestão é você pegar uma cópia do seu arquivo, apagar a maior parte dos dados e fórmulas (de forma a que ele passe a ficar "leve", compactá-lo com ZIP e anexá-lo aqui. Também pode fazer um pequeno exemplo do que quer e anexar esse exemplo.

 
Postado : 17/07/2014 3:52 pm
 Gesus
(@gesus)
Posts: 0
New Member
 

Segue !!!

Ve se ajuda...

Sub Carros()

Sheets("Formulario").Select ' Nome da planilha com os dados
NomeCarro = Range("C2").Value ' Celula que terá o nome do Carro e este nome irá ficar na variavel

On Error GoTo ErroAtivaPlan ' Tratativa de Erro
Sheets(NomeCarro).Select 'Selecionar a planilha com o nome do carro
ErroAtivaPlan:

If ActiveSheet.Name <> NomeCarro Then
Sheets.Add 'ira inserir uma nova planilha
ActiveSheet.Name = NomeCarro 'Pega o valor da variavel (nome do Carro) e Renomeia a Nova PLanilha
End If

End Sub

Arquivo1.xlsx
 
Postado : 18/07/2014 11:56 am
Forum Jump:
  Tópico Anterior
Próximo Tópico