Notifications
Clear all

Macro para copiar dados

6 Posts
2 Usuários
0 Reactions
1,192 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boas,

Eu tenho uma planilha "Geral" onde introduzo as notas de débito que vão acontecendo durante os meses do corrente ano mas preciso que as mesmas sejam copiadas para outras planilhas do mesmo livro mas separadas por mês.

Tipo, lanço na planilha geral
17-04-2013 636 Centro de Empresas CNM 1.750,00 178.500,00 -> depois de rodar o macro ele passa para a planilha de Abril
17-05-2013 636 Centro de Empresas CNM 1.750,00 178.500,00 -> depois de rodar o macro ele passa para a planilha de Maio
17-06-2013 636 Centro de Empresas CNM 1.750,00 178.500,00 -> depois de rodar o macro ele passa para a planilha de Junho

e assim sucessivamente...

Não sei se é possível fazer isso, mas preciso da vossa ajuda.

Obs: Se precisarem do livro: http://d.pr/f/q9cM

Agradeço desde já

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

 
Postado : 24/05/2013 6:35 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Possível é, o pessoal que manja de VBA pode te dar uns exemplos.

Mas, a minha pergunta é, um filtro não resolve? Pelo que vejo, me parece ser mais prático, e a planilha fica menor, já que a macro vai duplicar todos os dados.

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 24/05/2013 6:41 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!!
Tem como postar seu arquivo compactado???

Sub CopyAleVBA8223()
'Copiar seleulas separadas, para outra guia, coluna A e B, com os dados um em baixo do outro
    Worksheets("Planilha_Origem").Range("B2").Copy Worksheets("cab.orçamento").Range("A" & Rows.Count).End(xlUp).Offset(1)
    Worksheets("Planilha_Destino").Range("F3").Copy Worksheets("cab.orçamento").Range("B" & Rows.Count).End(xlUp).Offset(1)
End Sub

Att

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

 
Postado : 24/05/2013 9:27 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

@alexandrevba
Aqui tens o link para o arquivo compactado: http://d.pr/f/dAly

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

 
Postado : 27/05/2013 2:47 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Eu fiz o que pediu, porém o Lay-out deverá ficar como eu montei!!!

O nome das guias segue um padrão fixo, Nota Débito C.E Maio13, repete sempre a parte azul com 4 letras pra o mês.

http://www.sendspace.com/file/n4jgv3

Você só poderá alterar os nomes das guias se o fizer no codigo antes, caso contrário não terá exito ao copiar os dados.

Att

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

 
Postado : 27/05/2013 5:57 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Eu tambem sou da mesma opinião do gtsalikis, acredito que com o filtro resolveria, seria mais pratico, uma vez que da versão 2007 em diante temos mais opções, mas se realmente quer por macros, segue mais uma opção filtrando por meses e adicionando as abas ja renomeadas.

[]s

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

 
Postado : 27/05/2013 9:24 pm