Este fórum está sendo desativado

[murilosouza]

Bom dia.

Estou montando um base de dados, que são provenientes de centenas de outras planilhas que contém vários campos mesclados ( tanto em linha quanto em colunas), além disso estes campos são variáveis e podem estar vazios.

Atualmente estou fazendo isso manualmente, mas são mais de mil planilhas se não automatizar esse processo irei levar muito tempo para copiar.

Em anexo estou enviando a planilha de onde irei copiar os arquivos que serão colados em outra planilha em colunas com os respectivos nomes, se puderem me ajudar serei muito grato!!!

Obrigado!!
Murilo

[WillianVictor]

Fala, @murilosouza!
Beleza?

As células mescladas contemplam seus valores na primeira célula, por exemplo, mesclei esse range A1:A5.
Visualmente, os dados estão em todos esses campos, mas, apenas visualmente, pois os dados em si ficam armazenados na célula A1, portanto, é fácil copiá-los se você usar VBA, assim como também é fácil referenciá-los usando fórmulas.

Enfim..
Eu não me estendi no código, deixei apenas um exemplo de como você pode seguir, já que são variáveis as possibilidades e qual o seu destino de paste.

Vê se lhe atende, e tende adaptar.

Código: Selecionar todos

Sub ie()
' /// Copiando célula inicial
Cells(3, 3).Copy

' /// Colando na aba desejada
' [ATENÇÃO!!!]
' Caso você vá colar de uma aba para outra, use este código.
' FAÇA: altere o nome da Sheets de acordo com a aba DESTINO e Cells de acordo com os campos DESTINO
Sheets("Plan3").Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

' /// Colando na pasta de trabalho (em outra planilha) desejada
' [ATENÇÃO!!!]
' Caso você vá colar de uma planilha para outra, use este código.
' FAÇA: altere o nome do Workbook de acordo com sua planilha DESTINO, a Sheets de acordo com a aba DESTINO e Cells de acordo com os campos DESTINO
Workbooks("Pasta1").Sheets("Planilha1").Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Belezinha?
Qualquer coisa, avisaê.
Abs.