Este fórum está sendo desativado

[Iguma]

Prezados, boa noite!

Estou começando no VBA e Macros do Excel, estou trabalhando em uma planilha com muitos dados que preciso reorganizar, vejam se podem me ajudar com um código que me ajude a fazer algo menos "na mão", mesmo que seja por etapas, tentarei ser breve:

- Coluna A tenho a variável animais
- Linha 1 tenho datas diárias
- os valores na matriz são pesos diários registrados de cada animal por dia

Desafio: preciso montar uma nova planilha com 3 colunas, sendo A=Brinco; B=Data; C=peso. Minha dificuldade é que são muitos animais e muitos dias, consequentemente, muitos pesos. Segue um exemplo na imagem e a planilha anexa que contém a base original e também a aba de exemplo representada na imagem.

Basicamente a macro gravada segue abaixo, mas sei que está errada, pois só executa um pedaço. Podem me ajudar? Um abraço.

Sub Macro7()
'
' Macro7 Macro
'

'
Range("B4:B6").Select
Selection.Copy
Range("K4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C4:C6").Select
Application.CutCopyMode = False
Selection.Copy
Range("K7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Range("J4:J6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Range("J7:J9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A4").Select
Application.CutCopyMode = False
Selection.Copy
Range("I4:I5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5").Select
Application.CutCopyMode = False
Selection.Copy
Range("I6:I7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A6").Select
Application.CutCopyMode = False
Selection.Copy
Range("I8:I9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

[osvaldomp]

Olá, @Iguma .

Entendi que você quer como resultado uma tabela semelhante a que está na planilha Exemplo, em A15:C25.

1. você quer uma única tabela que contenha as pesagens de todos os meses (Jun, Jul, Maio e Abr) ? ou
2. você quer múltiplas tabelas, uma para cada mês, todas elaboradas na planilha Exemplo ? ou
3. você quer múltiplas tabelas, uma para cada mês, elaboradas separadamente em cada planilha? Ex. uma tabela com as pesagens de abril elaborada na própria planilha Abr. ou
4. ???

A propósito seria oportuno para facilitar a elaboração de macros/fórmulas que você siga um padrão para nomear as planilhas: assim, para todas elas ou use o nome do mês por extenso ou use as três primeiras letras.

[Iguma]

Olá, @osvaldomp,

Obrigado pelo pronto retorno.

Quero uma planilha única, com todos os meses em uma única aba. Preciso que a planilha final puxe de todas as abas mensais e organize com somente 3 colunas: brinco, data, peso.

Para dar um contexto, esses são dados fornecidos por uma empresa que pesa gado (bovinos) e eles mandam assim... cada planilha enviada corresponde a uma baia (conjunto de animais, cada animal tendo uma identificação individual, o brinco). Então recebo muitas planilhas, com muitas baias e animais, farei isso de maneira relativamente recorrente, até que a API deles esteja pronta e funcione no software proprietário...

Obrigado pela dica de padronização... realmente vem deles isso... vou arrumando a cada mês quando recebo...

Obrigado, abraço.

[osvaldomp]

Quero uma planilha única, com todos os meses ...

Olá, @Iguma .

Ok, então o resultado será inserido na planilha Exemplo.

Faltou informar se você quer uma única tabela com os dados de todos os meses ou uma tabela para cada mês. No seu exemplo você colocou somente dados referentes a Abr.