Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Copiar e Colar para outra pasta

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Jose Antonio



Mensagens : 6
Data de inscrição : 10/12/2012

MensagemAssunto: Copiar e Colar para outra pasta   Qui Dez 13, 2012 12:40 am

Olá Pessoal!

Tudo bem?

Preciso criar uma macro para copiar e colar Dados variaveis de uma banco de dados em excel para varias pasta de excel. Segue o exemplo abaixo. A macro tem que classificar por nome, copiar todos os dados de cada operador e copiar em pasta com o nome do mesmo no dico c. A quantidade de operador no banco de dados será sempre variavel, pois é uma atualização do sistema diario. Exlemplo abaixo dos dados abaixo.

A Macro iria primeiramente classificar por operador, depois selecionar e copiar todas as informações da operadora JULIA MARIA COSTA FRANZ inclusive o cabeçalho em pasta do excel como o nome da mesma no disco C, porem como a planilha é atualizada diariamente a quantidade de informações por operador varia. Ex: Maria tem 100, Joana tem 200...etc.

Algem poderia me ajudar???


OPERADOR CPF VALOR OCORRENCIA INCLUSAO ULT OCORRENCIA
JULIA MARIA COSTA FRANZ 93953259504 R$ 146,48 RECADO RESIDENCIA FX 76 8/9/2012 8/10/2012
JULIA MARIA COSTA FRANZ 93953259504 R$ 146,48 RECADO RESIDENCIA FX 76 8/10/2012 8/10/2012
JULIA MARIA COSTA FRANZ 1546336907 R$ 82,92 NÃO ATENDE 15/10/2012 19/10/2012
JULIA MARIA COSTA FRANZ 955797535 R$ 105,73 NÃO ATENDE 11/10/2012 17/10/2012
JULIA MARIA COSTA FRANZ 36725080472 R$ 176,44 RECADO RESIDENCIA FX 76 12/10/2012 15/10/2012
JULIA MARIA COSTA FRANZ 5941317581 R$ 105,07 RECADO RESIDENCIA FX 76 20/10/2012 27/10/2012
LARUSE ROGERIA RODRIGUES 12905012706 R$ 125,54 RECADO REFERENCIA FX 76 30/10/2012 27/9/2012
LARUSE ROGERIA RODRIGUES 49080520268 R$ 50,53 CONTATO DESCONHECE FX 4/10/2012 16/4/2011
LARUSE ROGERIA RODRIGUES 40783103204 R$ 170,36 CONTATO DESCONHECE FX 30/10/2012 2/9/2012
LARUSE ROGERIA RODRIGUES 5095428679 R$ 55,89 RECADO RESIDENCIA FX 76 8/10/2012 11/9/2012
CAMILA MARTINS DA SILVA O 17535638104 R$ 123,42 NÃO ATENDE 30/10/2012 31/10/2012
CAMILA MARTINS DA SILVA O 48108774691 R$ 154,37 CONTATO COM CLIENTE FX 76 3/10/2012 26/10/2012
CAMILA MARTINS DA SILVA O 1499568274 R$ 199,06 NÃO ATENDE 10/10/2012 31/10/2012


Att,

José Antonio
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar e Colar para outra pasta   Qui Dez 13, 2012 1:12 am

Boa noite!!

Creio que isso pode ajuda-lo
http://support.microsoft.com/kb/288402

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jose Antonio



Mensagens : 6
Data de inscrição : 10/12/2012

MensagemAssunto: Copiar e Colar para outra pasta   Qui Dez 13, 2012 7:03 pm

Alexandrevba, tudo bem!!

Mais como faço para a macro quebrar por operador e salvar em outra pasta.

Att,


José Antonio
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar e Colar para outra pasta   Qui Dez 13, 2012 7:08 pm

Boa tarde!!

Tem como mandar seu arquivo modelo para um site gratuito como sendspace ou outros e nos mandar o link.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jose Antonio



Mensagens : 6
Data de inscrição : 10/12/2012

MensagemAssunto: Re: Copiar e Colar para outra pasta   Qui Dez 13, 2012 9:16 pm

Alexandre!

Tudo bem??

Segue o Link da planilha.

4shared.com/office/n-Ufx-32/Planilha_clientes_por_operador.html


Desde ja te agradeço.

Att,

José Antonio
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar e Colar para outra pasta   Sex Dez 14, 2012 3:17 pm

Bom dia!!

Então você precisa que o código verifique no arquivo [planilha clientes por operador.xls] na guia "carteira analitico 2" e separe outro arquivo dentro da unidade C? ou esses arquivos já exitem lá?


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jose Antonio



Mensagens : 6
Data de inscrição : 10/12/2012

MensagemAssunto: Re: Copiar e Colar para outra pasta   Sex Dez 14, 2012 5:02 pm

Bom dia Alexandre!!

Tudo bem??

Exatamente isso. Atualmente tenho que abrir o arquivo "carteira analitico 2" , copiar e colar ESPECIAL "VALOR E FORMATOS", copiar as informações de cada operador em planilhas separadas no disco C.

Com o código.

As informações iriam ser atualizadas automaticamente, sem a necessariedade e copiar e colar para cada OPERADOR.


Att,

José Antonio
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Copiar e Colar para outra pasta   Sab Dez 15, 2012 12:52 am

Boa noite!!

Pronto é só usar, voc~e deve ajustar o local de destino doas arquivos.


Código:
Sub Operador()
    Dim myOperator As String, _
        myFrom    As Integer, _
        myRow      As Integer, _
        myCount    As Integer, _
        myTo      As Integer
    myRow = 2
    myFrom = 2
    While Cells(myRow, 1) <> ""

        myCount = WorksheetFunction.CountIf(Range(Cells(2, 1), Cells(1000, 1)), Cells(myFrom, 1))
        myTo = myFrom + myCount - 1
        myOperator = Cells(myFrom, 1)
       
        Range(Cells(1, 1), Cells(myTo, 8)).Copy
        Workbooks.Add
        ActiveSheet.Paste
        Range("A1").Select
        Application.CutCopyMode = False
        Selection.Copy
        Application.CutCopyMode = False
        If myFrom > 2 Then
            Rows("2:" & (myFrom - 1) & "").Select
            Application.CutCopyMode = False
            Selection.Delete Shift:=xlUp
        End If
     
        ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\" & myOperator & ".xls", FileFormat:=xlNormal, _
            Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
            CreateBackup:=False
        ActiveWindow.Close
       
       
        myRow = myFrom + myCount
        myFrom = myRow
    Wend
 
    ActiveWorkbook.Save
End Sub

 
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jose Antonio



Mensagens : 6
Data de inscrição : 10/12/2012

MensagemAssunto: Re: Copiar e Colar para outra pasta   Seg Dez 17, 2012 9:08 pm

Alexnadrevba!!

Tudo bem??

Problema resolvido....Muito obrigado.

Att,


José Antonio.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Jose Antonio



Mensagens : 6
Data de inscrição : 10/12/2012

MensagemAssunto: Re: Copiar e Colar para outra pasta   Ter Dez 18, 2012 12:27 am

Alexandre, boa noite!

Tudo bem??

O codigo ficou otimo.

Porem teria a possibilidade implementar o codigo com as informações abaixo.

Antes de salvar os arquivos por operador faço o seguinte.

Removo as linhas duplicadas das seguintes colunas:

OCORRENCIA
INCLUSAO
ULT OCORRENCIA
DIAS ATRASO
DIAS SEM TRABALHO
SITUAÇÃO

E classifico por SITUAÇÃO E VALOR (DO MAIOR PARA O MENOR)

E Copio a FORMATAÇÃO CONDICIONAL QUE ESTÁ NA PLANILHA.

Teria como acrescentar no codigo para trazer essas informações???

Att,

José Antonio
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Copiar e Colar para outra pasta   Hoje à(s) 8:59 pm

Voltar ao Topo Ir em baixo
 
Copiar e Colar para outra pasta
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Cópia de links ao copiar e colar
» [Resolvido] Como ir para outra room sem parar os acontecimentos atuais?
» Redirecionamento para outra página
» "Atalho" para outra página
» Desviar visitas para outra url

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: