Notifications
Clear all

Separar dados entre as Abas e envia-las por e-mail

8 Posts
2 Usuários
0 Reactions
1,400 Visualizações
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Amigos, boa tarde!

Em anexo tem um exemplo do que preciso já com a macro que uso pra mandar e-mail, vou explicar a dúvida

Na Plan1 eu tenho a tabela inteira com os dados misturados, e preciso de uma macro que as separe entre as abas Interno e Externo. Após isso tem um botao de enviar que deve enviar por e-mail somente a aba selecionada.

Alguém consegue me passar uma Luz de como fazer isso. Obrigado !

 
Postado : 04/06/2014 2:19 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

O código copia da guia Plan1 para (Interno e Externo).
http://www.sendspace.com/file/4u4zmb

Att

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

 
Postado : 04/06/2014 2:35 pm
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Olá Alexandre, obrigado pela ajuda, mas andei testando a macro que vc salvou no anexo e ela não esta funcionando muito bem, esta misturando os dados, sempre em uma das duas fica uma "Linha" referente a outro tipo de nota. Tentei resolver aqui mas não deu muito certo. Saberia me apontar onde esta errado?

 
Postado : 05/06/2014 2:05 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Faça os teste.
http://www.sendspace.com/file/5bu2cb

Att

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

 
Postado : 05/06/2014 3:46 pm
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Agora sim Alexandre, a planilha q lhe enviei funcionou muito bem, mas eu devo ser uma topeira mesmo em VBA, pois não estou conseguindo migrar uma formula nenhum pouco complexa para minha planilha original. Tem como você dar uma breve explicação do código que você me passou para que eu possa entende-lo e utilizar ele de outra forma, se for possível ajusta-lo para minha planilha que segue em anexo. Obrigado.

 
Postado : 05/06/2014 11:58 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Veja se ajuda..
http://www.sendspace.com/file/bdlq23

Att

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

 
Postado : 09/06/2014 5:36 am
(@caiobispo)
Posts: 53
Trusted Member
Topic starter
 

Alexandre, obrigado pela ajuda!

Seria possivel vc me explicar a formula que utilizou para que eu possa utilizar em outros lugares. Obrigado.

 
Postado : 10/06/2014 10:10 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Veja o comentário.

Sub AleVBA_11971V3()
'Declaração das variáveis
'1ºlinha
'Aponta a guia de origem dos Dados
'2ºlinha
'Veirifica as célula povoadas
'3ºlinha
'Caso tenha só o cabeçalho o código não dispara o filtro
'4ºlinha

Application.ScreenUpdating = 0
'loop que verifica um array (critérios), cola nas guias destino
'6ºlinha (bloco do loop)
Application.ScreenUpdating = 1
End Sub

Att

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

 
Postado : 10/06/2014 10:23 am