Copiar e Colar para outra pasta

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

Boa noite!!

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

Att

Alexandrevba, tudo bem!!

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

Att,


José Antonio

Boa tarde!!

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

Att

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

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

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

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

 

Alexnadrevba!!

Tudo bem??

Problema resolvido....Muito obrigado.

Att,


José Antonio.

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