Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
  • Avatar do usuário
#29268
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.
Você não está autorizado a ver ou baixar esse anexo.
#29273
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
#29275
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).
Você não está autorizado a ver ou baixar esse anexo.
#29282
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
#29349
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord