Tópicos relacionados a códigos VBA, gravação de macros, etc.
#67147
Opa pessoal! Boa tarde!

Estou quebrando a cabeça aqui e não consegui resolver com uma macro que transponha os dados de uma matriz retangular, ignorando dados em branco, e jogando eles todos em uma coluna (mantendo o indexador da linha como dado na coluna ao lado - Identifiquei em vermelho na imagem)

Por fórmulas até tive algum avanço... Mas gostaria mesmo de um VBA que eu executasse e fizesse automático
Você não está autorizado a ver ou baixar esse anexo.
#67151
Olá, @GabrielFurtado .

Fica fácil elaborar uma solução se a questão é bem explicada, como você fez e se o resultado desejado é colocado corretamente na planilha de exemplo, como você fez. Parabéns! :D

Veja se o código abaixo atende. Funciona para qualquer quantidade de dados. O resultado será colocado nas colunas I:J.
Código: Selecionar todos
Sub RearranjaDados()
 Dim k As Long, v As Long
  For k = 3 To Cells(Rows.Count, 3).End(3).Row
   v = Cells(k, 3).End(2).Column - 3
   Cells(Rows.Count, 9).End(3)(2).Resize(v) = Cells(k, 3)
   Cells(Rows.Count, 9).End(3)(2 - v, 2).Resize(v) = Application.Transpose(Cells(k, 4).Resize(, v).Value)
  Next k
End Sub
GabrielFurtado agradeceu por isso

Oi Osvaldo, blzz Dei uma reformulada nas quest&ot[…]

Boa Tarde Sou novo no BI. Gostaria de saber como […]

Filtro suspenso bugado

Anexa o arquivo, oferecer uma soluçã[…]

Ajuda para Vincular colunas.

Na sua Planilha2 vc tem uma fórmula em q pa[…]

Faaala @DJunqueira . Camarada, vc salvou uma v[…]

@DJunqueira , Muuuito obrigada! :)

Conexão odbc

Bom dia pessoal, estou com problemas em fazer co[…]

Adidas Yung-1 Pas Cher

Adidas Yung-1 Pas Cher https://www.solewishes.co[…]