Este fórum está sendo desativado

[pedropadrao]

Olá amigos, gostaria de um script para uma planilha banco de dados que varra uma pasta do servidor que possuem dados diarios em várias planilhas padrão e mande para uma planilha bando de dados.

O nome das planilhas são janeiro-01, janeiro-02.... para todos os dias do mês e todas possuem uma alimentação e um formato padrão, porém está em linhas, ou seja, gostaria de importar transpondo os dados. Então segue o modelo das planilhas diarias e como gostaria de dispor na planilha BD.

Por exemplo, essas planilhas janeiro1 e 2 estão em uma pasta do servidor, gostaria de copiar delas os dados em um range especifico e colar na planilha bd, caso tenho uma solução sem transpor, já me ajuda muito.

Em suma, varre as planilhas diárias da pasta, e importa transpondo. Preciso consolidar alguns dados.

[JFBERNARDES]

Olá Pedro.

Reparei que você tem um módulo VBA na planilha "bd" então apenas escrevi o código pra você colar no final do seu código deste mesmo módulo.
Considerei que você vai ativar a macro com ambas as planilhas abertas. Caso você queira ativar a macro somente com a planilha BD aberta posso alterar o código.

Segue abaixo:

Código: Selecionar todos

Sub transportar_transpor()
'seleciona janela correta caso seja ativado de outra sheet
    Windows("janeiro-01.xlsx").Activate
'seleciona os dados
    Range("B4:Y17").Select
'copia os dados
    Selection.Copy
'seleciona BD (destino)
    Windows("bd.xlsm").Activate
    Range("C2").Select
'colar com transpor
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
'seleciona a primeira célula (não precisa dessa parte do código se não quiser
    Range("C2").Select
End Sub

[pedropadrao]

Seria apenas com a BD aberta

[pedropadrao]

Seria na verdade, buscar numa pasta X dentre varias workbooks sem abri-las e numa worksheet especifica, ambas sao padronizadas.