Este fórum está sendo desativado

[PauloCauhy]

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

[PauloCauhy]

Postei a msg no local errado, desculpem...

[gfranco]

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?

[PauloCauhy]

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.

[gfranco]

Bom dia
Veja agora se atende.

[osvaldomp]

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

[PauloCauhy]

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