Este fórum está sendo desativado

[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.

[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

[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).

[alexandrevba]

Bom dia!!

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


Att

[JeanSilva]

É só copiar de uma e colar na outra

[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

[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

[gfranco]

Bom dia.
Veja se atende..
Dê retorno.

[JeanSilva]

Perfeito!!! Obrigadoo

[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