Página 1 de 1
Macro de busca e copiar e colar valores
Enviado: 03 Jun 2021 às 15:09
por Daldegan
Pessoal boa tarde,
Estou com uma planilha que tem em sua maioria os dados todos horizontais e precisava verticalizar a planilha toda, só com o transpor não da, tentei com uso de formulas e também não consegui, são muitos dados e fazer manualmente levaria muito tempo, tem alguma macro que possa me ajudar, vou anexar a planilha para verem o que estou precisando de maneira melhor.
Obrigado.
Re: Macro de busca e copiar e colar valores
Enviado: 04 Jun 2021 às 15:24
por mucascosta
Veja se o anexo lhe ajuda...
Re: Macro de busca e copiar e colar valores
Enviado: 04 Jun 2021 às 15:38
por Daldegan
Então, na verdade eu precisava que ficasse tudo em 4 colunas.
1ª seria o Estado
2ª seria o Município
3ª seria o Veículo
4ª seria as quantidades
Re: Macro de busca e copiar e colar valores
Enviado: 04 Jun 2021 às 15:54
por mucascosta
Desculpe, mas qual é a lógica?
do jeito que você quer teria um grande acréscimo tanto em linhas como em colunas...
AC ACRELANDIA AUTOMOVEL 1510 366 2494 673 660 ...
No exemplo acima, veja que ACRELANDIA tem 1510 em automóvel, porém a linha apresenta, além de 1510, 366, 2924, 673, 660 ... que são valores de outras cidades...
Re: Macro de busca e copiar e colar valores
Enviado: 04 Jun 2021 às 16:01
por Daldegan
Dessa maneira que eu falei vai me ajudar na tabela dinâmica que vou criar, na hora de colocar as segmentações, na verdade só irá aumentar o numero de linhas, as colunas serão 4 mesmo.
UF Município Veículo Qtd.
AC ACRELANDIA AUTOMOVEL 1510
AC ACRELANDIA BONDE 0
AC ACRELANDIA CAMINHAO 494
AC ACRELANDIA CAMINHAO TRATOR 41
AC ACRELANDIA CAMINHONETE 749
AC ACRELANDIA CAMIONETA 56
AC ACRELANDIA CHASSI PLATAF 0
AC ACRELANDIA CICLOMOTOR 2
AC ACRELANDIA MICRO-ONIBUS 10
AC ACRELANDIA MOTOCICLETA 3424
AC ACRELANDIA MOTONETA 407
AC ACRELANDIA ONIBUS 43
AC ACRELANDIA QUADRICICLO 0
AC ACRELANDIA REBOQUE 93
AC ACRELANDIA SEMI-REBOQUE 69
AC ACRELANDIA SIDE-CAR 0
AC ACRELANDIA OUTROS 2
AC ACRELANDIA TRATOR ESTEI 0
AC ACRELANDIA TRATOR RODAS 0
AC ACRELANDIA TRICICLO 1
AC ACRELANDIA UTILITARIO 14
E assim por diante com todos os municípios.
Re: Macro de busca e copiar e colar valores
Enviado: 04 Jun 2021 às 17:27
por mucascosta
Veja se é isso...
Re: Macro de busca e copiar e colar valores
Enviado: 07 Jun 2021 às 07:56
por Daldegan
Só ficou um porém na macro, ela puxa o mesmo valor de dados para todos os municípios, mas a ideia de layout é essa mesmo.
Re: Macro de busca e copiar e colar valores
Enviado: 07 Jun 2021 às 10:12
por Daldegan
O valor da quantidade está se repetindo.
AC ACRELANDIA AUTOMOVEL 1510
AC ACRELANDIA BONDE 0
AC ACRELANDIA CAMINHAO 494
AC ACRELANDIA CAMINHAO TRATOR 41
AC ACRELANDIA CAMINHONETE 749
AC ACRELANDIA CAMIONETA 56
AC ACRELANDIA CHASSI PLATAF 0
AC ACRELANDIA CICLOMOTOR 2
AC ACRELANDIA MICRO-ONIBUS 10
AC ACRELANDIA MOTOCICLETA 3424
AC ACRELANDIA MOTONETA 407
AC ACRELANDIA ONIBUS 43
AC ACRELANDIA QUADRICICLO 0
AC ACRELANDIA REBOQUE 93
AC ACRELANDIA SEMI-REBOQUE 69
AC ACRELANDIA SIDE-CAR 0
AC ACRELANDIA OUTROS 2
AC ACRELANDIA TRATOR ESTEI 0
AC ACRELANDIA TRATOR RODAS 0
AC ACRELANDIA TRICICLO 1
AC ACRELANDIA UTILITARIO 14
AC ASSIS BRASIL AUTOMOVEL 1510
AC ASSIS BRASIL BONDE 0
AC ASSIS BRASIL CAMINHAO 494
AC ASSIS BRASIL CAMINHAO TRATOR 41
AC ASSIS BRASIL CAMINHONETE 749
AC ASSIS BRASIL CAMIONETA 56
AC ASSIS BRASIL CHASSI PLATAF 0
AC ASSIS BRASIL CICLOMOTOR 2
AC ASSIS BRASIL MICRO-ONIBUS 10
AC ASSIS BRASIL MOTOCICLETA 3424
AC ASSIS BRASIL MOTONETA 407
AC ASSIS BRASIL ONIBUS 43
AC ASSIS BRASIL QUADRICICLO 0
AC ASSIS BRASIL REBOQUE 93
AC ASSIS BRASIL SEMI-REBOQUE 69
AC ASSIS BRASIL SIDE-CAR 0
AC ASSIS BRASIL OUTROS 2
AC ASSIS BRASIL TRATOR ESTEI 0
AC ASSIS BRASIL TRATOR RODAS 0
AC ASSIS BRASIL TRICICLO 1
AC ASSIS BRASIL UTILITARIO 14
O layout está perfeito.
Re: Macro de busca e copiar e colar valores
Enviado: 07 Jun 2021 às 19:55
por osvaldomp
O código abaixo executa aqui em aprox. 30 seg; resulta 116.900+ linhas na Planilha1.
Código: Selecionar todosSub RearranjaDados()
Dim k As Long, x As Long
Application.ScreenUpdating = False
Sheets("Planilha1").Rows("2:" & Rows.Count) = ""
With Sheets("ABRIL_2021")
k = .Cells(Rows.Count, 1).End(3).Row - 2
.Range("D2:X2").Copy
Sheets("Planilha1").[C2].Resize(21 * k).PasteSpecial Transpose:=True
For x = 3 To k + 2
.Cells(x, 1).Resize(, 2).Copy Sheets("Planilha1").Cells(Rows.Count, 1).End(3)(2).Resize(21)
.Cells(x, 4).Resize(, 21).Copy
Sheets("Planilha1").Cells(Rows.Count, 4).End(3)(2).PasteSpecial Transpose:=True
Next x
End With
End Sub
Re: Macro de busca e copiar e colar valores
Enviado: 08 Jun 2021 às 08:02
por Daldegan
Bom dia Osvaldo.
o código que você enviou está deixando da seguinte maneira:
As qtds continuam se repetindo e agora sumiram os veículos, o que mandei em uma msg acima estava quase correto, só as qtds. que ainda não estão vindo de maneira correta.
AC ASSIS BRASIL 1510 366
AC ASSIS BRASIL 0 0
AC ASSIS BRASIL 494 23
AC ASSIS BRASIL 41 0
AC ASSIS BRASIL 749 161
AC ASSIS BRASIL 56 21
AC ASSIS BRASIL 0 0
AC ASSIS BRASIL 2 2
AC ASSIS BRASIL 10 3
AC ASSIS BRASIL 3424 1243
AC ASSIS BRASIL 407 134
AC ASSIS BRASIL 43 4
AC ASSIS BRASIL 0 0
AC ASSIS BRASIL 93 19
AC ASSIS BRASIL 69 0
AC ASSIS BRASIL 0 0
AC ASSIS BRASIL 2 0
AC ASSIS BRASIL 0 0
AC ASSIS BRASIL 0 0
AC ASSIS BRASIL 1 0
AC ASSIS BRASIL 14 2
AC BRASILEIA 1510 2494
AC BRASILEIA 0 0
AC BRASILEIA 494 305
AC BRASILEIA 41 195
AC BRASILEIA 749 1336
AC BRASILEIA 56 91
AC BRASILEIA 0 0
AC BRASILEIA 2 5
AC BRASILEIA 10 8
AC BRASILEIA 3424 4710
AC BRASILEIA 407 1004
AC BRASILEIA 43 20
AC BRASILEIA 0 0
AC BRASILEIA 93 136
AC BRASILEIA 69 271
AC BRASILEIA 0 0
AC BRASILEIA 2 0
AC BRASILEIA 0 0
AC BRASILEIA 0 0
AC BRASILEIA 1 2
AC BRASILEIA 14 33
Re: Macro de busca e copiar e colar valores
Enviado: 08 Jun 2021 às 08:42
por osvaldomp
Salve,
@Daldegan .
O código que passei
não apresenta o resultado que você postou, então, ou você testou outro código ou você testou em planilha diferente da que você postou ou ambos.
O código que passei
apresenta o resultado exatamente como você solicitou, veja o arquivo anexo, é cópia do seu com o código que passei instalado. Testaí
Re: Macro de busca e copiar e colar valores
Enviado: 08 Jun 2021 às 08:53
por Daldegan
@osvaldomp muito obrigado por sua ajuda, ficou perfeito.
@mucascosta obrigado também.
Re: Macro de busca e copiar e colar valores
Enviado: 08 Jun 2021 às 12:54
por mucascosta
A solução do osvaldomp é bem melhor, mais enxuta e mais objetiva. Porém, pra não passar em banco, publico a correção do meu código:
Na linha...
De: Planilha3.Cells(Z, 4).Value = Planilha1.Cells(2, J).Value
Para: Planilha3.Cells(Z, 4).Value = Planilha1.Cells(i, J).Value