Resultado a partir de 'M1'. Sub TransporDados() Dim n As Range, k As Long, m As Long For Each n In Range("A3:A" & Cells(Rows�...

leandro_vf, Boa tarde! Veja se é assim. É isso mesmo obrigado

OI Osvaldo. Ja testei. Travou. Muito Grande refiro a quantidade de linhas, mais ou menos 800.000

Agora foi! Tava tentando fugir de um COUNT mas parece que nao tem jeito. Acho que vai funcionar na minha aplicacao. Obrigado pela ajuda. Em tempoÇ Q...

Agora foi! Tava tentando fugir de um COUNT mas parece que nao tem jeito. Acho que vai funcionar na minha aplicacao. Obrigado pela ajuda.

Cara, O resultado foi o mesmo. O Somatório foi inserido apenas no ultimo produto da sequencia, ficando os demais vazios. Vou pensar em uma segunda ma...

Ola Osvaldo! Cara a soma ta correta, mas os valores obtidos da soma precisam se repetir em cada linha do produto. Entende? Com esse codigo o somato...

Pois e. O meu tambem.

Desculpem-me pela demora! Não havia recebido o e-mail de resposta até entao. Mprudencio, mas utilizando essa fórmula, eu estaria fazendo um soma em c...

leandro_vf, Boa tarde! Veja se é assim. Oi Wagner, Antes de mais nada obg pela ajuda. Seria mais ou menos isso, so que preciso que o resultado da...

PRa quem está enfrentando o mesmo problema que eu, resolvi assim: Dim rng As Range Set rng = ActiveCell Do Set rng = rng.Offset(-1, 0) Loop While rn...