Página 1 de 1

Copiar dados de uma BASE e colar em outra pasta de trabalho

Enviado: 08 Jan 2018 às 07:57
por JeanSilva
Galera, é o seguinte:

Planilha são arquivos diferentes.
Planilha "HE TABELA MES A MES": é onde tenho a base de dados, atualizada mensalmente.
Planilha2, Planilha3, Planilha4 e Planilha5.

Preciso copiar todos os dados da planilha HE TABELA MES A MES, na aba "Base de Dados", e colar na aba "Base" que existe nas planilhas 2, 3, 4 e 5.
Apenas isso.

Seguem as planilhas para exemplo, lembrando que o nome dessas planilhas serão padronizados após o código estiver pronto.
Código: Selecionar todos
Editador pelo moderador Alexandre, a postagem continha 2 anexos duplicados.

Re: Copiar dados de uma BASE e colar em outra pasta de traba

Enviado: 08 Jan 2018 às 09:04
por alexandrevba
Bom dia!!

Eu percebi que você postou o mesmo arquivo duas vezes!
Além disso o mesmo só tem uma guia chamada Base de Dados

o que você pretende?

Pegar os dados dentro da base e criar guias diferentes?

Att

Copiar dados de uma BASE e colar em outra pasta de trabalho

Enviado: 08 Jan 2018 às 09:22
por JeanSilva
Bom dia Alexandre,

Tenho 5 planilhas como esta que eu anexei agora, com nome diferentes.

Não quero criar guias diferentes.

Nessas planilhas, todas tem uma aba "Base", quero copiar todos os dados da planilha HE TABELA MES A MES, na aba "Base de Dados", e colar na aba "Base" das outras planilhas (conforme modelo anexo).

Re: Copiar dados de uma BASE e colar em outra pasta de traba

Enviado: 08 Jan 2018 às 09:33
por alexandrevba
Bom dia!!

Vamos deixar o pessoal que entendeu responder, porque eu não entendi o que você pretende.


Att

Copiar dados de uma BASE e colar em outra pasta de trabalho

Enviado: 08 Jan 2018 às 09:41
por JeanSilva
É só copiar de uma e colar na outra :cry:

Re: Copiar dados de uma BASE e colar em outra pasta de traba

Enviado: 08 Jan 2018 às 11:43
por alexandrevba
Boa tarde!!

Eu tenho várias postagens, que faz a copia dos dados de uma guia para outra, de um arquivo para outro.

Mas há casos que que essa cópia contém determinados critérios para ser realizada e é isso que eu não estou entendendo.

Por favor use a pesquisa do fórum.

Att

Copiar dados de uma BASE e colar em outra pasta de trabalho

Enviado: 08 Jan 2018 às 13:11
por JeanSilva
Boa tarde.

Eu procurei, mas todas as pesquisas tem condições para copiar.. o que eu quero é igual ao vídeo que eu fiz da tela do pc.
Veja como é simples.

https://drive.google.com/file/d/13Sv7BK ... sp=sharing

Re: Copiar dados de uma BASE e colar em outra pasta de traba

Enviado: 09 Jan 2018 às 07:03
por gfranco
Bom dia.
Veja se atende..
Dê retorno.

Copiar dados de uma BASE e colar em outra pasta de trabalho

Enviado: 09 Jan 2018 às 07:15
por JeanSilva
Perfeito!!! Obrigadoo :D :D

Re: Copiar dados de uma BASE e colar em outra pasta de traba

Enviado: 10 Jan 2018 às 14:24
por alexandrevba
Boa tarde!!

Eu vejo que resolveu seu caso.

Lembre se de marcar seu post como resolvido.

Aqui vai minha tentativa.
Código: Selecionar todos
Sub AleVBA_6058()
Dim rng As Range, path As String, file As String, wb As Workbook
Application.ScreenUpdating = False
    path = ThisWorkbook.path
    With Sheets("Base de Dados")
        Set rng = .UsedRange
    End With
    file = Dir(path & "\" & "Planilha *.xlsb")
    Do While file <> ""
        If file <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(path & "\" & file)
            rng.Copy wb.Sheets("Base").Range("A1")
            wb.Close SaveChanges:=True
        End If
        file = Dir
    Loop
Application.ScreenUpdating = True
End Sub
Att