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?
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.
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Aqui esta Wagner, ficarei muito grato.
att
Anderson Cherobin
Cadê o arquivo???
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
diz q o arquivo é muito grande.
oq posso fazer agora?
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.
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
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