Página 1 de 1
Repetir informações da célula até a próxima seja diferente
Enviado: 26 Dez 2019 às 10:32
por 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
Repetir informações da célula até a próxima seja diferente
Enviado: 26 Dez 2019 às 10:55
por 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?
Re: Repetir informações da célula até a próxima seja diferen
Enviado: 26 Dez 2019 às 11:36
por osvaldomp
Experimente:
Código: Selecionar todosSub RepeteConteúdos()
With Range("B:B").SpecialCells(xlCellTypeBlanks)
.FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub
Repetir informações da célula até a próxima seja diferente
Enviado: 26 Dez 2019 às 13:33
por 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
Re: Repetir informações da célula até a próxima seja diferen
Enviado: 26 Dez 2019 às 13:36
por osvaldomp
Experimente assim:
Código: Selecionar todosSub RepeteConteúdosV2()
Range("B:B").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("B:B").Value = Range("B:B").Value
End Sub