Este fórum está sendo desativado

[NeiCarvalho]

Bom dia pessoal,

Quando gero um relatório no sistema e vem todo bagunçado e preciso organizar.
Ele não repete as descrições iguais.

Gostaria de saber se tem como criar uma macro para que repita o valor até encontrar um valor diferente até que não houve mais valores a serem repetidos.



Estou enviando um anexo como o relatório é gerado e como gostaria que ficasse.

Desde já agradeço

[tulio]

Bom dia NeiCarvalho
Faz o seguinte:
Selecione das células B3 à B20
Aperte a tecla F5
Clique em especial
Marque a opção "Em branco"
Clique em "Ok"
Digite "=" e clique na cálula B3
Aperte as tecla Ctrl e Enter simultaneamente

Se seguir estes passos obterá resultado. Ainda não testei nenhuma macro para automatizar o processo, mas dá pra ir quebrando o galho.

Ah, estes passos foram seguindo o anexo que vc deixou, ok?

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub RepeteConteúdos()
 With Range("B:B").SpecialCells(xlCellTypeBlanks)
  .FormulaR1C1 = "=R[-1]C"
  .Value = .Value
 End With
End Sub

[NeiCarvalho]

Boa tarde Tulio, obrigado pelo retorno.
Desse jeito não dá porque o relatório é muito grande, são mais de 300 itens.

Osvaldo, obrigado pelo retorno.
Tentei usar a Macro, porem não foi. Deu erro. os valores ficam com 0

[osvaldomp]

Experimente assim:

Código: Selecionar todos

Sub RepeteConteúdosV2()
 Range("B:B").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
 Range("B:B").Value = Range("B:B").Value
End Sub