Guru do Excel e Power BI

Enviado: **12 Jun 2018 às 19:52**

Prezados/as

Há dois meses postei um pedido de ajuda para uma solução para transpor uma quantidade muito grande de dados, com uma estrutura específica. Fui prontamente atendido pelo colega Franco, que elaborou uma macro que resolveu.
Eram duas planilhas que precisava transpor. A primeira com o fichamento de 380 obras e a segunda com 1280. Cada obra com 5 a 9 itens.
A macro funcionou perfeitamente na planilha menor, na maior não. Fiz uma série de testes na forma de colar os dados, diminui a quantidade, mesclei dados da segunda planilha com a primeira, etc etc, e nada.
Meus conhecimentos em macros são muito iniciais, alguém poderia tentar ver o que acontece?

O link para o pedido anterior é esse: viewtopic.php?f=13&t=6646&p=31953&#p31953

anexei um arquivo com uma pequena parte da planilha maior, na estrutura certa e com a macro.

Desde já agradeço

Paulo

Enviado: **13 Jun 2018 às 08:00**

Postei a msg no local errado, desculpem...

Enviado: **14 Jun 2018 às 07:12**

Bom dia.
Baixei a planilha e (pelo menos nesse exemplo que é igual ao anterior) não encontrei problemas.
Poderia anexar a planilha que efetivamente está com problemas?

Enviado: **14 Jun 2018 às 09:30**

Aqui está.
Estava suspeitando do meu excel, pois estranhamente algumas funções não estão respondendo como deveriam, mas testei agora em outro computador e também não funcionou.

Obrigado.

Enviado: **14 Jun 2018 às 11:28**

Bom dia
Veja agora se atende.

Enviado: **14 Jun 2018 às 19:54**

Código: Selecionar todos

Sub TransporDados()
 Dim a As Variant, e As Variant, i As Long, x As Long, k As Long
  e = Array("Artista", "Título", "Técnica", "Data", "Dimensões", "Cidade", _
   "Nome Extenso", "Aquisição", "Tombo", "Patrimônio FAC", "Observação")
  a = Range("A4:B" & Cells(Rows.Count, 1).End(3).Row).Value
   For i = 1 To UBound(a)
    If a(i, 1) <> "" Then
     k = Application.Match(a(i, 1), e, 0): If k = 1 Then x = x + 1
     Sheets("Destino").Cells(x + 1, k + 1) = a(i, 2)
    End If
   Next i
End Sub

obs. na célula B5691 há algo "parecido" com uma fórmula ~~~> = I – 033 ~~~> remova o sinal de igual antes de rodar o código acima

Enviado: **05 Jul 2018 às 10:27**

Amigos.
Tem vários sinais de "=" no texto pois utilizei estes como separador de conteúdo na mesma célula (não fui muito esperto ao escolher o sinal). Acho que isso que poderia estar dando problemas.

Agora funcionou como gostaria.

Mais uma vez, obrigado.

Paulo

Guru do Excel e Power BI

TRANSPOR UMA QDE MUITO GRANDE DE DADOS - MACRO NÃO RESPONDE

TRANSPOR UMA QDE MUITO GRANDE DE DADOS - MACRO NÃO RESPONDE

Re: TRANSPOR UMA QDE MUITO GRANDE DE DADOS - MACRO NÃO RESP

TRANSPOR UMA QDE MUITO GRANDE DE DADOS - MACRO NÃO RESPONDE

TRANSPOR UMA QDE MUITO GRANDE DE DADOS - MACRO NÃO RESPONDE

Re: TRANSPOR UMA QDE MUITO GRANDE DE DADOS - MACRO NÃO RESP

Re: TRANSPOR UMA QDE MUITO GRANDE DE DADOS - MACRO NÃO RESP

TRANSPOR UMA QDE MUITO GRANDE DE DADOS - MACRO NÃO RESPONDE