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
Botões

Olá, @NunoGuimaraes . Tomei como base […]

Olá, @fernandogaseo . Segue uma solu&c[…]

Muito obrigado! De fato somente ajustar a declara[…]

Você tem linhas nas tabelas que estão[…]

MIN[dCalendario[Data]) vai retornar o data m&iacut[…]

Boa Tarde! A Macro existente na planilha em anexo,[…]

Tente assim: Dim xRg As Range Private Sub ComboB[…]

Olá pessoal! Tenho uma planilha no trabalh[…]